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

• #25651 Delila_1 veterán Wyll #25650

  Új Válasz 2015-02-28 12:04:09 #25651

  Ú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 Wyll #25650 üzenetére

  A Forrásadatok az A2 cellában van (formázással az A2:D2 közepére lehet tenni a vízszintes elrendezés menüpontban).

  Sub Szetdob()
  Dim sor As Long, ide As Long, oszlop As Integer
  
  sor = 3
  Do While Cells(sor, 1) > ""
  Select Case Cells(sor, "A")
  Case 1
  oszlop = 5
  Case 2
  oszlop = 8
  Case 3
  oszlop = 11
  End Select
  
  ide = Cells(Rows.Count, oszlop).End(xlUp).Row + 1
  Range(Cells(sor, 2), Cells(sor, 4)).Copy Cells(ide, oszlop)
  
  sor = sor + 1
  Loop
  End Sub

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