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

• #20300 Delila_1 veterán torment #20297

  Új Válasz 2014-02-01 14:42:26 #20300

  Ú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 torment #20297 üzenetére

  Írd be a Munka2 lapra a 3 soros címet (ha még nem tetted meg), a makró elvégzi a többit.

  Sub Valami()
  Dim sor1 As Long, sor2 As Long, oszlop As Long
  Dim WS1 As Worksheet, WS2 As Worksheet
  
  Set WS1 = Sheets("Munka1")
  Set WS2 = Sheets("Munka2")
  
  WS1.Activate
  sor1 = 2: sor2 = 4
  
  Do While Cells(sor1, 1) > ""
  For oszlop = 1 To 5
  WS2.Cells(sor2, oszlop) = Cells(sor1, oszlop)
  Next
  
  For oszlop = 6 To 9
  WS2.Cells(sor2 + 1, oszlop - 4) = Cells(sor1, oszlop)
  Next
  
  For oszlop = 10 To 13
  WS2.Cells(sor2 + 2, oszlop - 8) = Cells(sor1, oszlop)
  Next
  
  sor1 = sor1 + 1: sor2 = sor2 + 3
  Loop
  End Sub

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