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

• #41096 the radish senior tag the radish #41095

  Új Válasz 2019-05-18 09:37:50 #41096

  Ú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

  

  the radish

  senior tag

  válasz the radish #41095 üzenetére

  Sikerült megoldani:

  Sub sbDelete_Rows_IF_Cell_Contains_String_Text_Value()
Dim lRow As Long
Dim iCntr As Long
lRow = 100000
For iCntr = lRow To 1 Step -1
If Cells(iCntr, 1).Value = "SZUM" Then
Rows(iCntr).Delete
End If
Next
End Sub

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