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

• #2990 Delila_1 veterán Amazonas #2989

  Új Válasz 2008-01-16 10:19:08 #2990

  Ú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 Amazonas #2989 üzenetére

  Inputboxban kérdezem le a másolandó lap nevét, mert az havonta változni fog.

  Sub masol()
  lapnev = InputBox("Melyik a lezárt hónap?", "Adatátvitel az új hónap lapjára", Default)
  Sheets(lapnev).Select
  sor = 2: sor_uj = 2
  Do While Cells(sor, 1) <> ""
  If Cells(sor, 24) = "" Then
  Range(Cells(sor, 1), Cells(sor, 23)).Select
  Selection.Copy
  ActiveSheet.Next.Select
  Cells(sor_uj, 1).Select
  ActiveSheet.Paste
  sor_uj = sor_uj + 1
  ActiveSheet.Previous.Select
  End If
  sor = sor + 1
  Loop
  End Sub

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