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

• #44200 Delila_1 veterán benjoe1 #44199

  Új Válasz 2020-06-05 15:36:53 #44200

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

  Makróval megoldható.
  Első oszlop projektek, másodikba ír a makró, 3-tól az első sorban vannak a hetek.
  A makrót modulba tedd, a füzetet makróbarátként kell mentened.

  Sub Heti_Arbevetel()
Dim oszlop As Integer, uoszlop As Integer, sor As Long

Columns("B:B") = ""
Range("B1") = "Tervezett" & vbLf & "árbevételek"
sor = 2: uoszlop = Cells(1, Columns.Count).End(xlToLeft).Column

Do While Cells(sor, 1) <> ""
For oszlop = 3 To uoszlop
If Cells(sor, oszlop) > "" Then Cells(sor, 2) = Cells(sor, 2) & Cells(1, oszlop) & ", "
Next
If Len(Cells(sor, 2)) > 0 Then Cells(sor, 2) = Left(Cells(sor, 2), Len(Cells(sor, 2)) - 2)
sor = sor + 1
Loop
Columns("B:B").EntireColumn.AutoFit
End Sub

  Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

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