Makro pro kopirovani do druheho listu jinak Vyřešeno

[mika6]

Dobry den,
pls o radu.
Potrebuju vlozit bunky C4:C7 z listu "vypocet" do listu "tisk" ale postupne do sloupcu A az H a pak zase do noveho radku A az H a pak zase do noveho radku A az H a porad dokola do zaplneni oblasti tisku.
Mam neco vytvoreno ale vklada se mi to jen do sloupce A a jen pod sebe

Diky

[Reklama]

[Azuzula]

Ahoj,
své makro nahraď tímto:

Kód: Vybrat vše

Sub Cena_()
Dim rngZapis As Range
Dim max_radku As Integer, a As Integer, b As Integer

'********************************
max_radku = 42 'určuje kolik řádků položek cen se maximálně může zapsat (vždy násobky 4 +2)
'********************************

Set rngZapis = Range("C4:C7") 'uloží si oblast dat do proměnné

Worksheets("tisk").Select
For a = 2 To max_radku Step 4 'prochází řádky
    For b = 1 To 8 ' prochází sloupky
        If Cells(a, b) = "" Then
            Range(Cells(a, b), Cells(a + 3, b)) = rngZapis.Value 'zapíše data na list
            GoTo konec
        End If
    Next
Next
MsgBox "konec stránky, tento záznam nebyl zapsán", vbInformation
konec:
Sheets("vypocet").Select
End Sub


[mika6]

Óóó díky