Condividi:        

Messaggio contenente riferimento contenuto cella

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Messaggio contenente riferimento contenuto cella

Postdi Ricky0185 » 25/09/22 09:08

Buongiorno, debbo inserire in un messaggio il riferimento ad un nome dell’ultima cella occupata della colonna B. Messaggio:
Codice: Seleziona tutto
…… inserita nell'ultima cella vuota della colonna B, sotto al nome ……

Appunto mi serve riportare nel messaggio il nome contenuto nell’ultima cella occupata della colonna B. Ho provato
Codice: Seleziona tutto
Sub Prova()
Dim A
A = Range("b1000.End(xlUp)").Value
MsgBox "Il valore della cella B1459=" + Str(A)
End Sub

Tanto per vedere di ricavare il contenuto della cella B1459, ma
Errore di run-time 1004 – Metodo Range dell’oggetto Global-non riuscito.
Forse debbo dimensionare A.
Buona Votazione
R
Ricky0185
Utente Senior
 
Post: 257
Iscritto il: 10/12/19 20:38

Sponsor
 

Re: Messaggio contenente riferimento contenuto cella

Postdi Anthony47 » 25/09/22 10:26

Assumendo che l'ultima cella occupata non sia sempre B1459, prova con
Codice: Seleziona tutto
Sub Prova()
Dim A As Range
Set A = Range("b1000").End(xlUp)
MsgBox "Il valore della cella " & A.Address(0, 0) & " è: " & Str(A)
End Sub
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Messaggio contenente riferimento contenuto cella

Postdi Ricky0185 » 25/09/22 12:59

Purtroppo:
Immagine
Ricky0185
Utente Senior
 
Post: 257
Iscritto il: 10/12/19 20:38

Re: Messaggio contenente riferimento contenuto cella

Postdi Ricky0185 » 25/09/22 13:23

Prova e riprova....così funziona
Codice: Seleziona tutto
Sub Prova()
Sheets("Foglio1").Range("b1000").End(xlUp).Select
setA = Selection
MsgBox Selection.Value
End Sub

ora non mi resta che scoprire come inserire il risultato nel messaggio della macro
Codice: Seleziona tutto
.....nell'ultima cella vuota della colonna B, sotto alla cella contenente XXXX......

dove XXXX è il contenuto dell'ultima cella della colonna B, e cioè il contenuto del MsgBox della macro Prova.
Ciao
Ricky0185
Utente Senior
 
Post: 257
Iscritto il: 10/12/19 20:38

Re: Messaggio contenente riferimento contenuto cella

Postdi Ricky0185 » 25/09/22 14:50

Trovato
Codice: Seleziona tutto
...nell'ultima cella vuota della colonna B, sotto alla cella contenente " & Range("b1000").End(xlUp) & "....

Perciò Risolto. Grazie comunque per il tuo interessamento.
Saluti
R
Ricky0185
Utente Senior
 
Post: 257
Iscritto il: 10/12/19 20:38

Re: Messaggio contenente riferimento contenuto cella

Postdi Anthony47 » 26/09/22 00:54

Trovato
Meno male, perche' io quel pezzo di domanda non l'avevo capito!
Alla prossima...
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea


Torna a Applicazioni Office Windows


Topic correlati a "Messaggio contenente riferimento contenuto cella":


Chi c’è in linea

Visitano il forum: Marius44 e 49 ospiti