For Next - Cykly -Excel VBA

Pavel.D

Přidáno: 24.07.13 08:48

Zdravím, prosím o nápovědu k tomuto problému: Vytvářím něco jako dodací list na balíky, mám náklad třeba 200 ks a ty jsou zabaleny do 3 balíků po 60 ti kusech. Potřebuji aby se mi vygenerovaly 3 dodací listy v šabloně kde na dvou bude 60/200 (jako balík 60 ks ze 200) a poslední bude označen jako zbytkový 80/200 a poslalo se do tisku, zároveň v patičce je označení tisku 1/3, 2/3, 3/3. Data jsou v řádcích na Listu1, šablona je na Listu2 Po vygenerování a tisku dat z prvního řádku Listu1 načti další řádek na Listu1 a pokračuj v cyklu až do posledního obsazeného řádku. Sub Tisk1() Dim EnvironConst1 As String Dim i As Long Dim balik, naklad, prvni_strana, posledni_strana, zbytkovy_balik As Long 'balik 'naklad prvni_strana = Range("F9") posledni_strana = Range("H9") zbytkovy_balik = Range("J7") EnvironConst1 = Environ("UserName") For i = prvni_strana To posledni_strana Step 1 prvni_strana = i Range("F9") = i If i = posledni_strana And zbytkovy_balik > 0 Then Range("F7") = Range("J7") ActiveSheet.PageSetup.CenterFooter = ("&B&8 strany: " & prvni_strana & " / " & posledni_strana) ActiveSheet.PageSetup.LeftFooter = ("&B&8Uživatel: " & EnvironConst1) ''********* vloží do patičky listu - do levého oddílu ****&B&12 - font tučné velikost 8 ActiveWindow.SelectedSheets.PrintOut End If Next i End Sub Tento kód není OK, Děkuji za radu P.D.

Luboš

Přidáno: 28.08.14 10:55

Dobrý den,

zkouším si možnosti VBA pro zautomatizování tabulky a narazil jsem při cyklu For.. Next. V druhém cyklu mi hlásí " 'End If' bez bez bloku If".

Kód: Sub Nulovani_Radku() ' ' Nulovani_Radku Makro ' ' Dim Bunka As Long For I = 8 To 61 If I = 39 Then I = 40 If I = 43 Then I = 46 For J = 7 To 24 Cells(I, J) = 0 Cells(I, J).NumberFormat = "# ###" Next J Next I For I = 8 To 61 If I = 39 Then I = 40 If I = 43 Then I = 46 For J = 7 To 23 Step 2 If CellR3C6 = True Then Cells(I, J) = "A" Else Cells(I, J) = "B" End If 'ActiveCell.FormulaR1C1 = _ ' "=IF(R3C6,SUMIFS(KAR!C23,KAR!C90,""<=""&R4C6,KAR!C21,IC2,KAR!C6,""=097"",KAR!C31,R5C[-1]), 'SUMIFS(KAR!C23,KAR!C90,R4C6,KAR!C21,RC2,KAR!C6,""=097"",KAR!C31,R5C[-1]))" Next J Next I End Sub

Jojo

Přidáno: 02.09.14 08:29

To Luboš: "If" je potrebné ukončiť s "End If" napr. If I = 39 Then I = 40 If I = 43 Then I = 46 End If End If alebo ak je na tom istom riadku, tak napr. If I = 39 Then I = 40 If I = 43 Then I = 46

jipi

Přidáno: 17.10.14 16:16

Dobrý den po dlouhé době. Mám problem. rád bych automaticky přerušil (nikoliv ukončil) na základě hodnoty v buňce chod makra (cyklus) pro úpravy v listu a pokud hodnota v buňce po úpravách docílí danou hodnotu, spuštěné makro bude pokračovat v chodu a provede další přerušení- nepřeruší na základě hodnoty v buňce děkuji ze help. jipi

Stanislav

Přidáno: 11.02.15 13:49

Dobry den, V prvom kroku dakujem za takuto prehladnu stranku. Vedeli by ste mi prosim poradit s takymto prikladom ( cez For sa mi podarilo menit Range U ale neviem ako dostat do cyklu aj zmenu Rozsahu"- aktualne to robim rucne, ale.. nie som s tym spokojny :( )

Pocet opatkovani = i ( napr.: 5)
---------------------------------------------

---------------------------------------------
Dakujem za kazdu pomoc, ci napovedu

Vladimír

Přidáno: 29.05.15 11:30

Dobrý den mám v excelu dva sloupce; v každém řádku je 15 - 18ti místné číslo Potřebuji aby mi excel (přes VBA) vypsal všechny variace - tj aby nejdříve vzal z prvního sloupce první hodnotu a k té přiřazoval postupně hodnoty z druhého sloupce; poté z 1.sloupce 2. a opět všechny z 2. sloupce atd. Lze to nějak udělat? Děkuji za odpověď

Pavel Lasák

Přidáno: 01.08.15 14:29

To Vladimír: Využitím vnořených funkcí. V buňkách A1, A2, A3, B1, B2, B3, B4 jsou hodnoty. Do C1 atd. se zapisuje "sloučení".

Ivana

Přidáno: 06.02.16 21:46

Prosím o radu, jak se v cyklech lze odkázat na jiný list. Potřebovala bych, aby se některé řádky (příp. kombinace řádky/sloupce) počítaly z řádků na odlišných listech. Díky

Pavel Lasak

Přidáno: 05.07.16 00:25

To Ivana: Stejně jako mimo cyklus Vybírat a označovat buňky..

Mirek

Přidáno: 28.11.16 00:45

Dobrý den, mám tabulku Typ Množství Hmotnost A 2 1 B 3 4 C 1 8 Pro graf bych potřeboval to vložit do jednoho sloupce tolikrát, kolikrát je to množství, tedy 1 1 4 4 4 8 šlo by to udělat pomocí VBA? funkce asi na to není? Děkuji za odpověd

Jojo

Přidáno: 29.11.16 08:02

To Mirek: -- Ak bude Typ, Množství, Hmotnost v stĺpcoch A,B,C a tieto nadpisy hlavičiek v riadku č.1, tak nasledujúci kód zapíše výstupné hodnoty pre Typ a Hmotnosť do stĺpcov D+E od riadku 2: rwOut = 2 ' prvý riadok pre výstup For rw = 2 To 4 ' riadky pôvodné For mn = 1 To Cells(rw, "B") ' Množstvo Cells(rwOut, "D") = Cells(rw, "A") ' Typ Cells(rwOut, "E") = Cells(rw, "C") ' Hmotnosť rwOut = rwOut + 1 Next mn Next rw