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

• #16559 Delila_1 veterán Sziszmisz #16556

  Új Válasz 2013-01-31 08:19:27 #16559

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

  Nem biztos, hogy jól értem a feladatot, mert elég rossz példát adtál meg a csatolt képen.
  Jobb lett volna, ha a címsor Alma, Kék, Jobb, Egyéb, ill. Körte, Piros, Bal, Egyéb. A képen az O:R tartomány minden tételnél azonos.
  Gondolom, a sorok O:R tartományában azt kell feltüntetni, hogy az egyes tételek melyik címsor alá tartoznak. A lenti makró ezt oldja meg.

  Sub Katalogus()
  Dim sor As Integer, usor As Integer, sor1 As Integer
  usor = Cells(Rows.Count, "A").End(xlUp).Row
  
  For sor = usor To 1 Step -1
  If Cells(sor, "A") = "" Then GoTo Tovabb
  If Cells(sor, "A") = "+" Then
  sor1 = sor
  Do While Cells(sor1, "A") = "+"
  sor1 = sor1 - 1
  Loop
  Cells(sor, "O") = Cells(sor1, "A")
  Cells(sor, "P") = Cells(sor1, "B")
  Cells(sor, "Q") = Cells(sor1, "C")
  Cells(sor, "R") = Cells(sor1, "D")
  End If
  
  Tovabb:
  Next
  End Sub

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