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

• #22012 Delila_1 veterán LordVader80 #22011

  Új Válasz 2014-06-16 12:53:42 #22012

  Ú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 LordVader80 #22011 üzenetére

  Az eredeti lapon lévő, A1 cellában kezdődő táblázat adatait másolja a makró a Munka2 lapra abban a sorrendben, ahogy írtad.

  Két helyen kell módosítanod a makróban, ahol megjelöltem.
  '* ha nem az A1-ben kezdődik a táblázatod, '** ha nem Munka2 a másolat lap neve.

  Sub Egymas_ala()
  Dim ter As String, CV As Object, sor As Long
  
  Range("A1").Select '*
  ter = Selection.CurrentRegion.Address
  
  sor = 1
  For Each CV In Range(ter)
  Sheets("Munka2").Range("A" & sor) = CV.Value '**
  sor = sor + 1
  Next
  End Sub

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