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

• #2653 Delila_1 veterán Impi2000 #2652

  Új Válasz 2007-10-03 13:54:12 #2653

  Ú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 Impi2000 #2652 üzenetére

  Szia Impi2000!

  Íme a makró:

  Sub adatmásolás()
  If Cells(6, 2) = "" Then
  Cells(6, 2).Value = Cells(1, 1).Value
  Else
  Range("B6").Select
  Selection.End(xlDown).Select
  sor = Selection.Row + 1
  If sor > 65530 Then
  sor = 7
  End If
  Cells(sor, 2).Value = Cells(1, 1).Value
  End If
  Range("A1").Select
  End Sub

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