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

• #12275 Delila_1 veterán mr.nagy #12274

  Új Válasz 2011-12-09 16:42:02 #12275

  Ú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 mr.nagy #12274 üzenetére

  F=0
  For sor% = Range("A4").End(xlDown).Row To 2 Step -1
  If Cells(sor%, "I") = Cells(1, 20).Value And Cells(sor%, "P") = Cells(1, 21).Value Then
  Rows(sor%).Delete
  F=1
  End If
  If F=0 then Msgbox "Üzenet"
  Next

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