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

• #44665 Delila_1 veterán zsolti_20 #44664

  Új Válasz 2020-08-21 16:32:08 #44665

  Ú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 zsolti_20 #44664 üzenetére

  A kép szerinti felső táblázat másolásához.

  Sub HovaMasoljon()
Dim oszlop As Integer, ide As Variant

For oszlop = 10 To 12 'J-től L-ig
ide = Application.Match(Cells(7, oszlop), Rows(1), 0)
Range(Cells(8, oszlop), Cells(10, oszlop)).Copy Cells(2, ide)
Next
End Sub

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