MS Excel

ahoj, už se několik hodin trápím s touto drobností a ne a ne na to přijít..
Mám VBA formulář, který data přenáší na jeden list (takový větší souhrn dat z formuláře). Jedno pole ve formuláři (ID) se tedy uloží do souhrnu třeba do bunky A1 a s hodnotou "123" formulář zároveň vytvoří automaticky list s názvem "123". Do této doby je vše OK, ale když chci smazat právě list "123" tak se mi to nedaří. Formulář také obsahuje combobox, který zobrazuje hodnoty všech ID. Když vyberu právě hodnotu 123, a tlačítkem spustím jednoduché makro, tak mi vyskočí error s chybou 9, nemá někdo ponětí, jak to vyřešit? jde o lehký případ, ale nefunguje mi :/

Private Sub TlacitkoVymazatID_click()
Sheets(VymazatID).Delete 'do VymazatID se vybere hodnota z comboboxu=123
end sub

poradí mi někdo prosím

Zaslat odpověď >

Pavlus(2.8.2016 8:21)#032191

Run-time error 9 = Subscript out of range.
Tudíž je nejspíš problém s názvem listu. Zkontroluj si přiřazení jména listu do proměnné (ComboBox1.Value, pokud tam nemáš "Value", tak zkus přidat). Případně ještě před mazáním listu zkus požadovaný list vybrat "Sheets(VymazatID).Select".
P.citovat

paRrRez(2.8.2016 8:40)#032193

Děkuji, VALUE funguje, tolika promrhaných hodin, kvůli takové kravince :D.. nojo, pro příště budu vědět

citovat

paRrRez(2.8.2016 16:01)#032205

mohl bych Vás ještě požádat o opravu tohoto kódu?

Private Sub Tlacitko_click()
Sheets(ID.Value).Activate
PrazdnyRadek = Range("A4:A10").End(xlUp).Row
If (PrazdnyRadek + 1) <= 10 Then
MsgBox "OK " & PrazdnyRadek'pokud bude funkční zbytek kodu si dopíši
Else
MsgBox "Dosažen limit"
End If

Jde mi jen o to, aby kód fungoval v oblasti A4:A10, nějaký čísla mi to sice hází, ale trochu nesmyslná, mám tedy oblast v excelu A4:A10, kam je možné zapisovat zmíněné ID, v bunce A11 už jsou další data a nelze do nich zapisovat, bohužel mi nějak asi nefunguje nalezení prázdného řádku nebo posledního vyplněného řádku v této oblasi, asi se to vztahuje na celý sloupec.citovat

Pavlus(2.8.2016 17:44)#032206

Vyhledání prázdného (resp. obsazeného) řádku se zapisuje trochu jinak, takto pro oblast nefunguje. Dalo by se zapsat takto:
Posledni_obsazeny_radek = Range("A11").End(xlUp).RowPřípadně si pomoci funkcí COUNTBLANK, a zjistit počet prázdných buněk v oblasti:
Pocet_volnych_bunek = Application.WorksheetFunction.CountBlank(Range("A4:A10"))P.citovat

Téma: odstranění listu makrem

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje