sandi70
26.04.12,12:15
Čaute!!!

Vie mi niekto napísať kód pre vymazanie?

Napr. Mám v bunkách A1 až D10 určité slová a chcem to jedným kliknutím na button vymazať.

Ak je niekto taký dobrý Ďakujem!!!
zk24
26.04.12,10:49
Sub Delete_button()
Range("A1 : D10").ClearContents
End Sub


akurát ze ten range v zátvorke má byť bez medzier, ale kedže je tam ":" a "D" tak mi to prepisovalo na ":D"...
sandi70
26.04.12,18:05
Zadal som to takto:

Private Sub CommandButton1_Click()
Sub Delete_button()
Range("A1 : D10").ClearContent
End Sub


a nefunguje to... to range som dal bez medzier
monchi
26.04.12,18:30
Chyba ti tam "s" na konci
nie Range("A1 : D10").ClearContent ale Range("A1 : D10").ClearContents

/M
zk24
27.04.12,08:30
Ešte ma napadá, že ak ide o takéto jednoduché makrá, tak je jednoduchšie si možno to makro nahrať. Dať "record Macro", vykonať akciu akú chcete, uložiť makro a ked máte pridaný "button" tak iba right-click a "assign macro", ak by ste to teda nevedeli spojazdniť.