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

• #10877 m.zmrzlina senior tag Pale #10873

  Új Válasz 2011-07-18 00:28:23 #10877

  Ú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

  

  m.zmrzlina

  senior tag

  válasz Pale #10873 üzenetére

  A létező legprimitívebb megoldás és ha valóban bolondbiztossá kell tenni akkor sok dolog lesz még vele de kiindulásnak talán jó:

  Sub atmasol()
  Dim sor As Integer
  sor = 1
  Worksheets("Munka1").Select
  
  Do Until IsEmpty(Cells(sor, 1).Offset(1, 0)) = True
  
  If Cells(sor, 8) <> "" Then
  Range(Cells(sor, 1), Cells(sor, 8)).Copy Worksheets("Munka2").Range("A" & Worksheets("Munka2").Cells(Rows.Count, 1).End(xlUp).Row + 1)
  End If
  sor = sor + 1
  
  Loop
  
  End Sub

  Munka1-en vannak a kiinduló adatok és Munka2-re teszi az eredményt, illetve azt feltételeztem, hogy az A oszlopban a lista aljáig egyetlen cella sem üres. Valamint a H oszlop üres celláiban <szóköz> sem lehet.

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