La consultazione del forum è libera per tutti.
Per poter porre un quesito è invece necessario essere un utente registrato (clicca qui se non lo sei).
Tutti gli utenti che richiedono un supporto, come da REGOLAMENTO, sono caldamente invitati ad allegare un file di esempio con l'indicazione di quello che si desidera ottenere.
Ciao
ho già questo modulo esistente con questo comando:
Option Explicit
Public WithEvents CommandButton As CommandButton
Private Sub CommandButton_Click()
Range("R16").Value = Range("R16").Value & CommandButton.Caption
End Sub
volendo cancellare con lo stesso pulsante i dati delle celle B18:H18 come posso modificare il comando?
Grazie
ciao
c'è una sezione apposita per le macro dove girovagano i vbaisti esperti
comunque prova ad aggiungere
Range("B18:H18").ClearContents
Option Explicit
Public WithEvents CommandButton As CommandButton
Private Sub CommandButton_Click()
Range("R16").Value = Range("R16").Value & CommandButton.Caption
Range("B18:H18").ClearContents
End Sub
oppure richiama la macro che ti ho messo con Call
ciao
c'è una sezione apposita per le macro dove girovagano i vbaisti esperti
comunque prova ad aggiungere
Range("B18:H18").ClearContentsOption Explicit Public WithEvents CommandButton As CommandButton Private Sub CommandButton_Click() Range("R16").Value = Range("R16").Value & CommandButton.Caption Range("B18:H18").ClearContents End Suboppure richiama la macro che ti ho messo con Call
ho provato con l'aggiunta dopo R16, ma non funziona
Devo attivare qualcosa dopo aver aggiunto il testo :
Range("B18:H18").ClearContents
dimenticavo: le 4 celle sono frutto di 4 unioni
B18 (B18 e C18) D18 (D18 e E18) etc influisce sul comando?
ciao
dovrebbe darti errore
perchè le celle sono unite.
si dovrebbe usare
Range("B18:H18") = ""
ma perchè non alleghi il file con la tua macro
Range("B18:H18") = ""
provato,,,,non funziona
Option Explicit
Public WithEvents CommandButton As CommandButton
Private Sub CommandButton_Click()
Range("R16").Value = Range("R16").Value & CommandButton.Caption
Range("B18:H18") = ""
End Sub
ciao
non sono esperto di vba
il tuo codice dove lo hai inserito
perchè a me non funziona
niente non mi funziona
probabile che mancandomi tutti i codici non funzioni.
aspettiamo i vbaisti
tu hai parecchi pulsanti forse è quello
Ho appena inserito una Macro e RIESCO (OK) a cancellare , ma contemporaneamente cancella altre celle che non seleziono durante la registrazione della macro
ciao
non so cosa dirti mettimi la macro
ciao
mi sembra tu abbia risolto
chiudi la discussione per favore
