Messaggio contenente riferimento contenuto cella

[Ricky0185]

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

[Anthony47]

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

[Ricky0185]

Purtroppo:

[Ricky0185]

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]

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

[Anthony47]

Trovato

Meno male, perche' io quel pezzo di domanda non l'avevo capito!
Alla prossima...