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

• #25653 Delila_1 veterán Wyll #25652

  Új Válasz 2015-02-28 12:28:48 #25653

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

  Ezt nem írtad, de hamarosan átírom ennek megfelelően.
  Most éhes vagyok.

  Szerk.: befért az ebéd elé.

  Sub Szetdob()
  Dim sor As Long, ide As Long, oszlop As Integer
  
  sor = 3
  Do While Cells(sor, 1) > ""
  oszlop = Cells(sor, 1) * 3 + 2
  Cells(2, oszlop) = Cells(sor, 1)
  
  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ó étvágyat!

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