Új hozzászólás Aktív témák

• #40593 sztanozs veterán Lasersailing #40592

  Új Válasz 2019-03-28 15:33:46 #40593

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  sztanozs

  veterán

  válasz Lasersailing #40592 üzenetére

  Pff, összekevertem az even-t az iseven-nel

• #40590 Delila_1 veterán Lasersailing #40588

  Új Válasz 2019-03-28 13:48:15 #40590

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz Lasersailing #40588 üzenetére

  =párose(sor()) és =páratlane(sor())

• #40589 sztanozs veterán Lasersailing #40588

  Új Válasz 2019-03-28 13:45:45 #40589

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  sztanozs

  veterán

  válasz Lasersailing #40588 üzenetére

  Miért kell az =row() az =even(row())=row() végére?

• #40588 Lasersailing senior tag Lasersailing #40587

  Új Válasz 2019-03-28 12:42:43 #40588

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Lasersailing

  senior tag

  válasz Lasersailing #40587 üzenetére

  Bocsánat most nézem, hogy a képlet bemásolása nem sikerült:
  =even(row())=row()

• #40572 Bocimaster csendes tag Lasersailing #40571

  Új Válasz 2019-03-26 22:03:31 #40572

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Bocimaster

  csendes tag

  válasz Lasersailing #40571 üzenetére

  - végül is egynek nagyon jó köszi - de ha még van 2-3 ilyen 34000+ sorom - lehúzni is sok

  De köszönöm, és már meg is csináltam, amit mondtál.

• #40541 Ronyman aktív tag Lasersailing #40540

  Új Válasz 2019-03-25 14:22:24 #40541

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Ronyman

  aktív tag

  válasz Lasersailing #40540 üzenetére

  Nem teljesen értem, de lehet én felejtettem ki egy fontos dolgot.

  Tehát Beosztás munkalap így néz ki

  A oszlop : NÉV
  B oszlop: Munkakör
  C oszlop: munkaidő (kinek hány órát kell dolgozni)

  D oszlop: munkaidő kezdete
  E oszlop: munkaidő vége
  F oszlop: pihenőidő
  G oszlop:üres
  H oszlop: napi ledolgozott órák száma

  A "D" oszloptól "H" oszlopig naponta ismétlődik.

  Az első név az "A7" cellában van.

  Jelenléti ív munkalap

  A oszlop: Napok felsorolása
  B oszlop:munkaidő kezdete
  C oszlop: munkaidő befejezése
  F oszlop: ledolgozott napi munkaidő

  Az első nap 03.01. az "A4"-es cellától kezdődik.

  Eddig azt a képletet használtam: "B4" cellában ez volt írva

  =FKERES(B$1;beosztás!A$7 : FH$25;4;0)

  Na de akkor ezt a képletet hogy kellene átalakítanom, hogy másolhatóvá tegyem a képletet?

• #40515 huan őstag Lasersailing #40514

  Új Válasz 2019-03-22 13:13:50 #40515

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  huan

  őstag

  válasz Lasersailing #40514 üzenetére

  Nem, én értettem félre.
  Majdnem tökéletes, annyiban kellene még módosulnia, hogy pl. amikor a B5-ben üreset talál, ne az egész C1>C5-ig 1900.01.00-legyen, hanem az utolsó nem üres B-oszlop tartalom, azaz 2018.10.04.
  Mit pl. a B14 vagy B15-ben nincs dátum, ott természetesen 1900.01.00 is jó.

• #40513 huan őstag Lasersailing #40512

  Új Válasz 2019-03-22 12:44:00 #40513

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  huan

  őstag

  válasz Lasersailing #40512 üzenetére

  Szia
  Ezzel az a bajom csak, hogy nem a legutolsó B-oszlop dátumom lesz a C-oszlop mindegyikénél, ahol azonos A-oszlopelemek vannak.
  (a képen C1>C5-ig B4 van; C6>C13-ig C13 van)

• #33356 Delila_1 veterán Lasersailing #33355

  Új Válasz 2016-12-02 13:56:43 #33356

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz Lasersailing #33355 üzenetére

  Ha a sor kell, akkor

  Sub NyolcNagySora()
Dim i As Byte, sor As Byte

sor = 43
For i = 1 To 8
Sheets(2).Cells(sor + i, "M") = _
Application.Match(Application.Large(Sheets(1).Columns(2), i), _
Sheets(1).Columns(2), 0)
Next
End Sub

• #33354 Fferi50 Topikgazda Lasersailing #33351

  Új Válasz 2016-12-02 13:33:46 #33354

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Fferi50

  Topikgazda

  válasz Lasersailing #33351 üzenetére

  Szia!

  Az előző hozzászólásom hibás volt, kimaradt belőle az interior egy helyen.

  A feltételes formázás alapján színezett cellák tényleges formátumát a 2010-es Exceltől meg tudod nézni a DisplayFormat tulajdonsággal,
  If ActiveSheet.Cells(sm, 44).DisplayFormat.Interior.Color=ActiveSheet.Cells(sm,44).FormatConditions(1).Interior.Color Then

  megvizsgálja, hogy a cella tényleges színe egyezik-e a feltételes formázásban megadott színnel.

  A feltételeid azt vizsgálják, hogy milyen a cella feltételes formázása, ezért viselkedik úgy, ahogy írtad.

  Üdv.

• #33353 Fferi50 Topikgazda Lasersailing #33351

  Új Válasz 2016-12-02 13:05:13 #33353

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Fferi50

  Topikgazda

  válasz Lasersailing #33351 üzenetére

  Szia!

  A feltételes formázás alapján színezett cellák tényleges formátumát a 2010-es Exceltől meg tudod nézni a DisplayFormat tulajdonsággal,
  If ActiveSheet.Cells(sm, 44).DisplayFormat.Color=ActiveSheet.Cells(sm,44).FormatConditions(1).Interior.Color Then

  megvizsgálja, hogy a cella tényleges színe egyezik-e a feltételes formázásban megadott színnel.

  A feltételeid azt vizsgálják, hogy milyen a cella feltételes formázása, ezért viselkedik úgy, ahogy írtad.

  Üdv.

• #33352 Delila_1 veterán Lasersailing #33351

  Új Válasz 2016-12-02 12:39:11 #33352

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz Lasersailing #33351 üzenetére

  Egyszerűbb lenne a NAGY (LARGE) függvénnyel. Most formázol a függvénnyel, majd a makróban visszaszámolod a formázás eredményét.

  Sub NyolcNagy()
Dim i As Long, sor As Byte

sor = 43
For i = 1 To 8
Sheets(2).Cells(sor + i, "M") = Application.Large(Sheets(1).Columns(2), i)
Next
End Sub

• #33280 Delila_1 veterán Lasersailing #33279

  Új Válasz 2016-11-21 16:23:29 #33280

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz Lasersailing #33279 üzenetére

  Nincs mit.

• #33276 Delila_1 veterán Lasersailing #33275

  Új Válasz 2016-11-21 16:12:31 #33276

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz Lasersailing #33275 üzenetére

  range(cells(20, "L"), cells(opsm, "L")), vagy

  range(cells(20, 12), cells(opsm, 12)), vagy

  range("L20:L" & opsm)

• #32475 Aladaar tag Lasersailing #32204

  Új Válasz 2016-08-27 02:29:21 #32475

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Aladaar

  tag

  válasz Lasersailing #32204 üzenetére

  Valaki lenne olyan kedves átírni a következő képletet nem tömbfüggvényesre?
  köszi,
  A.

  {=HA($B2>=0;B2*C2;-(MAX(HA($E$2:$E2<-SZUMHA($B$2:$B2;"<0");$F$2:$F2))
  -(SZUMHA($B$2:$B2;"<0")+MAX(HA($E$2:$E2<-SZUMHA($B$2:$B2;"<0");$E$2:$E2)))
  *INDEX($C$2:$C2;HOL.VAN(MIN(HA($E$2:$E2>=-SZUMHA($B$2:$B2;"<0");$E$2:$E2));$E$2:$E2;0))
  +SZUMHA(OFSZET(D2;-1;0;-SOR(D2)+1;1);"<0")))}

• #32266 RedHarlow aktív tag Lasersailing #32265

  Új Válasz 2016-08-08 10:16:28 #32266

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  RedHarlow

  aktív tag

  válasz Lasersailing #32265 üzenetére

  Köszönöm, a második működik és pontosan így gondoltam. Ezer hála! : )

• #32265 Lasersailing senior tag Lasersailing #32264

  Új Válasz 2016-08-08 09:43:13 #32265

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Lasersailing

  senior tag

  válasz Lasersailing #32264 üzenetére

  Na szóval a végleges (A vastagonszedést programkód közben nem igazán értelmezte, ami így utólag érthető... Elnézést!):

  Sub redharlow()

Dim sor As Integer
Dim oszlop As Integer
Dim ujsor As Integer
Dim sn As String


'program
sor = 1
sn = ActiveSheet.Name
Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Name = "eredmeny"
ujsor = 1
'fejlécet
Sheets("eredmeny").Cells(1, 1) = "Név"
Sheets("eredmeny").Cells(1, 2) = "C oszlop"
Sheets("eredmeny").Cells(1, 3) = "D oszlop"
Sheets("eredmeny").Cells(1, 4) = "E oszlop"
Sheets("eredmeny").Cells(1, 5) = "Dátum"
Sheets("eredmeny").Cells(1, 6) = "Ft"


Do
sor = sor + 1
For oszlop = 7 To 66
If Not (IsEmpty(Sheets(sn).Cells(sor, oszlop))) Then
ujsor = ujsor + 1
Sheets("eredmeny").Cells(ujsor, 1) = Sheets(sn).Cells(sor, 2)
Sheets("eredmeny").Cells(ujsor, 2) = Sheets(sn).Cells(sor, 3)
Sheets("eredmeny").Cells(ujsor, 3) = Sheets(sn).Cells(sor, 4)
Sheets("eredmeny").Cells(ujsor, 4) = Sheets(sn).Cells(sor, 5)
Sheets("eredmeny").Cells(ujsor, 5) = Sheets(sn).Cells(1, oszlop)
Sheets("eredmeny").Cells(ujsor, 6) = Sheets(sn).Cells(sor, oszlop)
End If
Next oszlop
Loop Until IsEmpty(Sheets(sn).Cells(sor, 1))


End Sub

• #32203 Aladaar tag Lasersailing #32202

  Új Válasz 2016-07-28 08:50:38 #32203

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Aladaar

  tag

  válasz Lasersailing #32202 üzenetére

  Igen, tényleg egyszerűbb lenne, de év közben már nem válthatunk, meg amúgy sem az én jogköröm eldönteni.

Új hozzászólás Aktív témák