Ciao ti da errore perche la subname prende il nome dal testo della combobox e le macro che ho inserito io si chiamano "Archivio_1" e "Archivio_2" e non
"Archivio_1" + nome del foglio, per fare come dici dovresti creare tante macro quanti sono i nomi dei fogli, oppure quanti sono gli Input1-2 che scrivi.
ma da quello che hai scritto, riesco a recepire che hai diversi fogli dai quali vuoi eliminare una riga che hai selezionato, a questo punto e se è cosi non serve una userform, tranne se non fa anche altri compiti,
inoltre vuoi eliminare la riga intera oppure un pezzo di riga dalla colonna "A" alla "H"
guarda questa macro da inserire nel Modulo "Questa cartella di lavoro" oppure "Thisworkbook" se hai la versione in Inglese
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Dim r
If Not Intersect(Target, [a6:a21]) Is Nothing Then
r = Target.Row
If Cells(1, 1) = 1 Then 'se in a1 è inserito 1
Rows(r & ":" & r).Delete Shift:=xlUp 'cancella l'intera riga
Else ' se in a1 è inserito 2
Range("A" & r & ":H" & r).Delete Shift:=xlUp 'cancella fino alla colonna "H"
End If
End If
End Sub
Basta fare DoppioClick sulla colonna "A" dalla riga 6 alla 21 di tutti i fogli
sfrutta l'evento "DoppioClick" su tutti i fogli io ho reso sensibile la colonna "A" da "A6:A21", ma puoi cambiare a piacere indicando quale range vuoi.
Visto che non conosco se vuoi eliminare l'intera riga o parte di essa ti ho inserito un flag nella cella "A1" di tutti i fogli, se in "A1" trova 1 allora cancella l'intera riga se trova 2 parte di essa se non trova niente non cancella niente
ti allego anche il file con la macro inserita
nel caso non fosse cosi, e vuoi per forza usare l'userform devi creare una variabile publica che chiamerai "Foglio" o quello che vuoi e nelle 2 macro "Archivia_1 e _2" devi selezionare il foglio indicato nella variabile pubblica, ed inoltre devi trovare la riga che hai selezionato per poi cancellarla, solo in questo modo potrai usare solo 2 macro altrimenti più macro per ogni foglio di lavoro.
Ciao By Sal (8-D
[Modificato da by sal 04/08/2022 16:06]
se ti piace la soluzione sostienici con una DONAZIONE a piacere. Grazie
clicca qui