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

• #40847 Delila_1 veterán oke #40846

  Új Válasz 2019-04-19 11:41:03 #40847

  Ú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 oke #40846 üzenetére

  Ha visszateszed a kiszűrteket, minek az egész?!

  Ez a makró két lapra szedi szét a szükséges, és a törlendő sorokat.

  Sub Torles()
Dim sor As Long, talal As Variant, usor As Long, ide As Long
Sheets("Eredeti").Select
usor = Range("A" & Rows.Count).End(xlUp).Row
For sor = usor To 2 Step -1
talal = Application.Match(Cells(sor, 1), Columns(12), 0)
If VarType(talal) = vbError Then
ide = Sheets("Ideiglenes").Range("A" & Rows.Count).End(xlUp).Row + 1
Rows(sor).Copy Sheets("Ideiglenes").Cells(ide, 1)
Range("A" & sor & ":D" & sor).Delete Shift:=xlUp
End If
Next
End Sub

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