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

• #8101 Delila_1 veterán zsotesz81 #8100

  Új Válasz 2010-09-10 19:37:41 #8101

  Ú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 zsotesz81 #8100 üzenetére

  Ha már megadtad a feltételben, hogy szám esetén másoljon, mi szükség van a másik két feltételre?

  Sheets("data").Select
  For b = 1 To 15
  If IsNumeric(Cells(b, 2)) = True Then
  oszlop = Worksheets("result").Range("IV1").End(xlToLeft).Column + 1
  Worksheets("result").Cells(1, oszlop) = Cells(b, 2)
  End If
  Next

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