Collegare una macro a diversi fogli excel in VBA

Question

Ciao,

Io ho inserito nel foglio 1 più Command button che devono rimandare alla stessa macro (con userform ecc..) e voglio che in base alla command button selezionata mi registri i dati inseriti nella userform in fogli diversi.

Esempio:

Se schiaccio sopra il Command Button "Prova1" voglio che i dati siano registrati nel foglio con nome Prova1

Se schiaccio sopra il Command Button "Prova2" voglio che i dati siano registrati nel foglio con nome Prova2

Come posso fare?

Answer 1

File scaricato e rilevato i seguenti errori :-)

Non avevi creato un modulo standard dove inserire la dichiarazione pubblica

Public WsDestinazione As Worksheet

Nelle due macro "click" delle CommandButton non avevi anteposto l'istruzione Set

Quando si assegna ad una variabile che rappresenta un oggetto (ad es. cartella di lavoro, foglio di lavoro, cella o intervallo di celle) occorre anteporre sempre l'istruzione Set.

Quindi:

Private Sub PinotBianco_Click()

  Set WsDestinazione = ThisWorkbook.Worksheets("PinotBianco")

  UserForm1.Show

End Sub

Private Sub PinotGrigio_Click()

  Set WsDestinazione = ThisWorkbook.Worksheets("PinotGrigio")

  UserForm1.Show

End Sub

Nella tua funzione "riga" avevi messo il punto prima di Range ma non avevi inserito il riferimento al foglio di lavoro impostato tramite WsDestinazione.

Quindi andava scritta così:

Function riga()

Dim i, n As Integer

  With WsDestinazione

    For i = 4 To 100000

      If .Range("A" & i) = "" Then

        n = i

        Exit For

      Else

      End If

    Next i

    riga = n

  End With

End Function

Qui trovi il tuo file modificato con le correzioni: File

Un consiglio è quello di scrivere il codice "a scalare". Personalmente lo trovo più leggibile rispetto ad un codice scritto "piatto". Ma sono scelte personali :)

Answer 2

Hai messo il link ad una serie di file.

Elimina quel link e postano uno diretto al file :)

Answer 3

https://drive.google.com/drive/my-drive

Eccolo!

Answer 4

Ma "Public WsDestinazione As Worksheet" è stato dichiarato nel modulo VBA del Foglio di lavoro o in un modulo standard?

Se non è presente un modulo standard digita Alt+IM e viene creato un modulo standard.

E scrivi solo lì l'istruzione:

Public WsDestinazione As Worksheet

Eventualmente, privo di dati personali, inserisci il link al file cariato in dropbox o altro servizio cloud, per dare un'occhiata.

Answer 5

Gentilissimo ma non ho risolto il problema con la selezione della riga giusta!

Private Sub CommandButton1_Click()

Dim riga As Integer

For riga = 4 To 500

With WsDestinazione

If .Range("A" & riga) = "" Then

.Range("B" & riga) = UserForm1.ComboBox1

.Range("C" & riga) = UserForm1.TextBox2

...

Se inserisco il punto mi dice come errore: necessario aggiungere oggetto