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

• #8122 Delila_1 veterán Kobe #8120

  Új Válasz 2010-09-11 16:06:06 #8122

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

  Ez a makró az A oszlopban A1-től figyeli, van-e megjegyzés. Ha nincs, törli a sort.

  Sub DelRow()
  Dim sor As Integer
  
  sor = 1
  Do While Cells(sor, 1) <> ""
  If Range(Cells(sor, 1).Address).Comment Is Nothing Then
  Rows(sor).EntireRow.Delete
  sor = sor - 1
  End If
  sor = sor + 1
  Loop
  End Sub

  Az A helyett 2 helyen a Cells(sor,1)-ben írd át az 1-et az oszlopod sorszámára. Ha nem az első sortól akarod a vizsgálatot végrehajtani, a sor=1-et írd át.
  A makró feltételezi, hogy a kérdéses oszlop minden cellájában van valamilyen adat, ott is, ahol nincs megjegyzés.

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