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
Makro pro kopirovani do druheho listu jinak Vyřešeno
Makro pro kopirovani do druheho listu jinak
- Přílohy
-
- Cena_.xls
- (250.5 KiB) Staženo 47 x
-
- Level 3
- Příspěvky: 452
- Registrován: leden 12
- Bydliště: Země, bohužel...
- Pohlaví:
- Stav:
Offline
- Kontakt:
Re: Makro pro kopirovani do druheho listu jinak
Ahoj,
své makro nahraď tímto:
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
Pokud je to vše.
Vše co znám z VBA jsem se naučila tady na fóru, na Office.lasakovi, david-zbiral.cz a hlavně hledáním na googlu.
SZ není poradna, na pokládání dotazů je tu fórum. Děkuji.
Vše co znám z VBA jsem se naučila tady na fóru, na Office.lasakovi, david-zbiral.cz a hlavně hledáním na googlu.
SZ není poradna, na pokládání dotazů je tu fórum. Děkuji.
-
- Mohlo by vás zajímat
- Odpovědi
- Zobrazení
- Poslední příspěvek
-
- 0
- 783
-
od cechasso
Zobrazit poslední příspěvek
12 dub 2023 00:40
-
- 2
- 769
-
od šulda
Zobrazit poslední příspěvek
28 led 2024 16:12
-
-
Excel - automatický export listů xls do pdf včetně pojmenování Příloha(y)
od kalosek » 28 čer 2023 20:31 » v Kancelářské balíky - 2
- 1840
-
od kalosek
Zobrazit poslední příspěvek
29 čer 2023 19:39
-
-
- 3
- 1791
-
od Melvidor
Zobrazit poslední příspěvek
21 črc 2023 08:41
-
-
Obnoveni ztracenych fotek z telefonu pri kopirovani do pc
od Dizzy66 » 21 led 2024 17:08 » v Vše ostatní (sw) - 2
- 1023
-
od šulda
Zobrazit poslední příspěvek
23 úno 2024 07:12
-
Kdo je online
Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 7 hostů