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

• #21582 Delila_1 veterán ildikol #21581

  Új Válasz 2014-05-12 12:54:09 #21582

  Ú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 ildikol #21581 üzenetére

  Megadom a címet privátban.

• #21580 Delila_1 veterán ildikol #21579

  Új Válasz 2014-05-12 12:32:43 #21580

  Ú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 ildikol #21579 üzenetére

  Ki tudod tenni a füzetet egy elérhető helyre?

• #21578 Delila_1 veterán ildikol #21577

  Új Válasz 2014-05-12 11:51:35 #21578

  Ú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 ildikol #21577 üzenetére

  Az a gyanúm, hogy nem pontosan másoltad a makrót. A
  Cells(Target.Row, "Q") = Time sor határozza meg a beírandó MOST() függvény helyét.

  Képet akarsz betenni? Annak nincs sok értelme. Tedd ki a fájlt egy elérhető helyre, de előbb a nem publikus adatok helyett írj bele kamu értékeket.

• #21576 Delila_1 veterán ildikol #21575

  Új Válasz 2014-05-12 11:38:25 #21576

  Ú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 ildikol #21575 üzenetére

  Töröld ki az If Target.Column = 16 Then sort, és a hozzá tartozó utolsót, az End If-et.

  Lesz egy káros hatása. Ahányszor beírsz valamit az első lapra, annak a sorát átmásolja egy új sorba a másik lapra. Mire kitöltöd a teljes sort (A-tól P-ig), 16 új sorod lesz a másoltakat tartalmazó lapon.

• #21574 ildikol újonc ildikol #21513

  Új Válasz 2014-05-12 11:10:50 #21574

  Ú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

  

  ildikol

  újonc

  válasz ildikol #21513 üzenetére

  Kösziköszi

  A dátumot és időt beírja, de sajnos abba a cellába, ahol állok éppen, én pedig azt szeretném, hogy bárhol állok a sorban, mindig a Q oszlop megfelelő sorába tegye a dátumot, időt. Hogy írjam át ehhez?

• #21515 Delila_1 veterán ildikol #21513

  Új Válasz 2014-05-09 14:52:23 #21515

  Ú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 ildikol #21513 üzenetére

  Az első makrót a laphoz rendeld. Gondolom, akkor kell másolni a sort, ha egyrészt a P oszlopban egy bizonyos érték van, másrészt ha a sor ki van töltve a P-ig. Az eseménykezelő makró ezeket a feltételeket figyeli.

  Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column = 16 Then 'P oszlopba írtál
  Application.EnableEvents = False
  Cells(Target.Row, "Q") = Time 'aktuális idő beírása
  Application.EnableEvents = True
  
  If Cells(Target.Row, "P") = "Ezt kell másolni" Then 'ezt a szöveget írd át
  Masol Target.Row 'Masol makró meghívása, az aktuális sor értékének átadásával
  Else
  Application.CutCopyMode = False
  End If
  End If
  End Sub

  A második makró, ami a másolást végzi, modulba kerüljön. Azért van szükség 2 makróra, mert a laphoz rendelt csak a saját lapján tud intézkedni, de a változó(ka)t, mint most az aktuális sor számát, át tudja adni a másiknak, ami végrehajtja a másolást.
  Nálam a Munka1 lapra írok, a Munka2-re másol a makró. Ezeket írd át a saját lapjaid nevére.

  Sub Masol(sor)
  Dim usor As Long
  usor = Application.CountA(Sheets("Munka2").Columns(1)) + 1
  Sheets("Munka1").Rows(sor).Copy Sheets("Munka2").Cells(usor, 1)
  Application.CutCopyMode = False
  End Sub

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