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

• #9308 Heno1974 csendes tag

  Új Válasz 2011-02-02 18:49:52 #9308

  Ú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

  

  Heno1974

  csendes tag

  syasztok.tudna nekem segítteni valaki??
  sub szürés ()

  For k = 1 To 2000
  Let x = ActiveCell

  ActiveCell.Offset(1, 0).Range("A1").Select
  Let y = ActiveCell
  If y = "" Then
  GoTo TestforBlank
  End If
  If x = y Then
  Selection.EntireRow.Delete
  ActiveCell.Offset(-1, 0).Range("A1").Select

  End If

  Next k

  TestforBlank:
  End sub

  a K val áll i hibával,
  szürni szeretnék 2003 excelbe, hogy az ismétlődéseket távolítsa el .
  azt is meg kéne adni, hogy ha nincs adat akkor fejezze be a szürést.
  valahogy igy kellene asszem:
  For k <> "null"
  ha jól tudom.
  számokat kéne szürnöm, de K nál kiáll hibával

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