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

Programy pro práci v kanceláři (Word, Excel, Access…=>Office)

Moderátor: Mods_senior

mika6
nováček
Příspěvky: 2
Registrován: říjen 14
Pohlaví: Muž
Stav:
Offline

Makro pro kopirovani do druheho listu jinak

Příspěvekod mika6 » 10 říj 2014 23:01

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 :mad:

Diky
Přílohy
Cena_.xls
(250.5 KiB) Staženo 47 x

Reklama
Azuzula
Level 3
Level 3
Příspěvky: 452
Registrován: leden 12
Bydliště: Země, bohužel...
Pohlaví: Žena
Stav:
Offline
Kontakt:

Re: Makro pro kopirovani do druheho listu jinak

Příspěvekod Azuzula » 11 říj 2014 15:38

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
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.

mika6
nováček
Příspěvky: 2
Registrován: říjen 14
Pohlaví: Muž
Stav:
Offline

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

Příspěvekod mika6 » 11 říj 2014 22:09

Óóó díky :smile:


  • Mohlo by vás zajímat
    Odpovědi
    Zobrazení
    Poslední příspěvek
  • (Ne)vypínání druhého monitoru
    od cechasso » 12 dub 2023 00:40 » v Problémy s hardwarem
    0
    783
    od cechasso Zobrazit poslední příspěvek
    12 dub 2023 00:40
  • Nastavení druhého routeru Příloha(y)
    od šulda » 28 led 2024 11:10 » v Administrace sítě
    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
  • Kopírování řádků s funkcí když Příloha(y)
    od Martyn20 » 20 črc 2023 16:50 » v Kancelářské balíky
    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

Zpět na “Kancelářské balíky”

Kdo je online

Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 7 hostů