MS Excel

Téma: Opakování makra - next I

Zaslal/a Nomi 18.6.2019 15:30

Zdravím , potřeboval bych pomoc s makrem, aby se opakovalo pořádku.
Jde mi o to že mám na řádku informace které makrem přes comobox ručně člověk oveřuje (mám i automaticky ale to nemusí být správně) Proste aby vyskočilo okno s údaji a človek klikne na ano - ne - zrušit, po kliknutí ano se udělá makro A, na ne makro B, a po dokončení by vyskočilo znova okno na rozhodnutí ale o řádek níže a tak dokola, dokud by nebyl na konci nebo se nekliklo na cancel. + jestli jde při spuštění aby začal od řádku který je zrovna vybrán.
Snad pomůže příloha kde to mám nějak rozpracované, ale moc mi to nefunguje. Sem to měl udělané že vždy prováděl na řádku 2 (nevím jak zapracovat tu proměnou řádku) pak ho odstranil a tím mohl znova pracovat s řádkem 2, ale to je nevhodné a po té sem se v tom nějak zamotal a takto to dopadlo.
Sem úplný amatér a makra okoukávám různě z netu, tak že se nedivte co jsme to vytvořil.

PS: makro A a B není součástí - pro ukázku stačí jen vyskočení MSG "A" nebo "B"

Příloha: zip

43552_1111.zip (135kB, staženo 24x)

Zaslat odpověď >

birgis(20.6.2019 11:04)#043569

Něco takového?

Do Until ActiveCell.Value = Empty
i = MsgBox("Je to muž?" & Chr(13) & Chr(10) _
& "SML: " & Cells(ActiveCell.Row, 1) & Chr(13) & Chr(10) _
& "Jméno: " & Cells(ActiveCell.Row, 2) & Chr(13) & Chr(10) _
& "Příjmení: " & Cells(ActiveCell.Row, 3), vbYesNoCancel, " pokračovat")
Select Case i
Case vbNo
MsgBox "Dopln_zena"
Case vbYes
MsgBox "Dopln_muz"
Case vbCancel
Exit Do
End Select
ActiveCell.Offset(1, 0).Select
Loop

Příloha: zip

43569_2222.zip (138kB, staženo 21x)

citovat

Nomi(20.6.2019 13:41)#043571

birgis napsal/a:

Něco takového?

Supr děkuji moccitovat

Téma: Opakování makra - next I

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje