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

• #4487 Delila_1 veterán amdk7 #4485

  Új Válasz 2009-02-07 08:05:24 #4487

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

  Ha rendezheted az adatokat, akkor a "szemét" sorok elkülönülnek a CAL-lal kezdődő soroktól, és könnyen törölhetőek.
  Ha ez nem tehető meg, ez a rövid kis makró elintézi:

  Sub torl()
  sor = 1
  Do While Cells(sor, 2) <> ""
  Cells(sor, 2).Select
  If Left(Cells(sor, 2), 3) <> "CAL" Then
  Selection.EntireRow.Delete
  sor = sor - 1
  End If
  sor = sor + 1
  Loop
  End Sub

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