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

• #33286 Fferi50 Topikgazda bandus #33284

  Új Válasz 2016-11-22 15:06:23 #33286

  Ú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

  

  Fferi50

  Topikgazda

  válasz bandus #33284 üzenetére

  Szia!

  Próbáld ezt a makrót:

  Sub transzp()
Dim honnan As Range, hova As Range, xx As Integer, cl As Range
Set honnan = Range("A1:A14") 'innen kell másolni
Set hova = Range("A20") ' ez a másolási cél első cellája
For Each cl In honnan.Cells
hova.Offset(0, xx).Value = cl.Value
xx = xx + 2
Next
End Sub
  Üdv.

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