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

• #8102 Fire/SOUL/CD félisten zsotesz81 #8100

  Új Válasz 2010-09-10 19:55:19 #8102

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz zsotesz81 #8100 üzenetére

  Hali!

  Ez egy kicsit hosszabb kód, de azért írtam így, hogy más "technikát" is láss benne, amit a későbbiekben tudsz hasznosítani esetleg...

  Private Sub CommandButton1_Click()
  
  Dim SrcSheet As Object
  Dim DestSheet As Object
  Dim My_Range As Range
  Set SrcSheet = ThisWorkbook.Sheets("Munka1")
  Set DestSheet = ThisWorkbook.Sheets("Munka2")
  Set My_Range = SrcSheet.Range("A1:" & Range("A1").End(xlDown).Address)
  
  SrcSheet.Select
  My_Range.Select
  DestSheet.Select
  DestSheet.Range("A1").Select
  For Each CurrCell In My_Range
  If IsNumeric(CurrCell.Value) Then
  ActiveCell = CurrCell.Value
  ActiveCell.Offset(0, 1).Select
  End If
  Next CurrCell
  SrcSheet.Select
  Set My_Range = Nothing
  Set SrcSheet = Nothing
  Set DestSheet = Nothing
  
  End Sub

  Fire.

• #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