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

• #40845 Delila_1 veterán oke #40844

  Új Válasz 2019-04-19 07:10:22 #40845

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

  Nincs más hátra, soronként kell vizsgálódni.

  Az A oszlop dátumai szerint keresek. Azokat a dátumokat, amiknek a sorát meg kell hagyni, az L oszlopban sorolom fel.

  Sub Torles()
Dim sor As Integer, talal As Variant, usor As Integer

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 Rows(sor).Delete
Next
End Sub

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