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

• #29259 Delila_1 veterán coldfirexx #29251

  Új Válasz 2015-10-29 19:36:42 #29259

  Ú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 coldfirexx #29251 üzenetére

  Itt a makró:

  Sub Nevek()
  Dim usor As Long, ter As Range, ide As Long, CV As Range
  
  usor = Range("H" & Rows.Count).End(xlUp).Row
  Set ter = Sheets("egyes").Range("H3:H" & usor).CurrentRegion
  
  For Each CV In ter
  ide = Sheets("kettes").Range("A" & Rows.Count).End(xlUp).Row + 1
  If CV = "IGEN" Then Cells(CV.Row, "F").Copy Sheets("kettes").Cells(ide, "A")
  Next
  End Sub

  Modulba kell tenned, ahogy a Téma összefoglalóban le van írva.

  Szerk.: a válasz elküldése után jutottam az olvasásban oda, hogy kaptál egyszerű, nem makrós megoldást.

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