Ú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.

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