Cześć,
Mam kody, któy dodaje zdanie w zaleźności od danych w tabeli, Jak są 4 wiersze wypełnione, to będą 4 zdania, itd.
Potrzebuję te zdania przekopiować makrem do innego sheetu w takiej formie w jakiej się generują tutaj.
Jak robię to ręcznie, to widzę, że do scalonych komórek mogę użyć funkcji concat tylko że po każdym zdaniu musi być wstawiony tzw. "blank row". To jest podejście ręczne, zastanawiam się jak mogę to zapisać makrem aby po każdym zdaniu mieć blank row i aby to się przyklejało gdzie indziej.
Próbowałam użyć , ale wstawia mi się nowy wiersz w połowie zdania
vbNewLine
Mój kod bez "nowej lini:
Private Sub Generuj_Click()
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim h As Integer
table = Range("E5", Range("F5").End(xlDown)).Rows.Count
Range("E5", Range("F5").End(xlDown)).Select
'Range("E5").Select
j = 1
k = 4
ActiveSheet.Shapes.AddShape(msoShapeRectangle, 15, 15, 100, 50).Select
For i = 1 To table
Worksheets("Spolki").Cells(i + 4, j + 8) = "Inwestycja w spółkę " & Worksheets("Spolki").Cells(RowIndex:=k + 1, ColumnIndex:=5) & " w kwocie przypadającej na PFR " & Worksheets("Dashboard").Range("C3") & " FIZ: " & Worksheets("Spolki").Cells(RowIndex:=k + 1, ColumnIndex:=6) & " " & Worksheets("Dashboard").Range("C9")
Application.ScreenUpdating = True
k = k + 1
Next i
End Sub

I z vbNewLine:
Private Sub Generuj_Click()
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim h As Integer
table = Range("E5", Range("F5").End(xlDown)).Rows.Count
Range("E5", Range("F5").End(xlDown)).Select
'Range("E5").Select
j = 1
k = 4
ActiveSheet.Shapes.AddShape(msoShapeRectangle, 15, 15, 100, 50).Select
For i = 1 To table
Worksheets("Spolki").Cells(i + 4, j + 8) = "Inwestycja w spółkę " & Worksheets("Spolki").Cells(RowIndex:=k + 1, ColumnIndex:=5) & " w kwocie przypadającej na PFR " & Worksheets("Dashboard").Range("C3") & " FIZ: " & Worksheets("Spolki").Cells(RowIndex:=k + 1, ColumnIndex:=6) & " " & Worksheets("Dashboard").Range("C9") & vbNewLine
Application.ScreenUpdating = True
k = k + 1
Next i
End Sub

Jak mogę zapisać kod, aby nowa linia dodawała się na końcu każdego zdania?