Jump to content

MsgBox con datos de celdas


Maria_80

Recommended Posts

Hola,

Adjunto ejemplo donde intento crear un MsgBox con los datos de las celdas de una columna. Me sale error en la "cadena" que creo, adjunto ejemplo y os pongo el código:

Primero defino el rango, que puede ser variable:

x= Range("A" & Rows.count).End(xlUp).Row

For i = 2 to x

If range ("A" & i) <> "" then cadena = cadena & range("A" & i) & ", "

next i

MsgBox "EL listado de ciudades es: " & cadena

(me sale error justo ahí... a la hora de montar el MsgBox)

Gracias!

 

 

 

 

ejemplo_msgbox.xlsm

Link to comment
Share on other sites

Sub MostrarMsgBox() '<--- El nombre de la macro no puede ser MsgBox

x = Range("A" & Rows.Count).End(xlUp).Row
For i = 2 To x
   If Range("A" & i) <> "" Then cadena = cadena & Range("A" & i) & "; "
Next i
MsgBox "Este es el listado de ciudades:" & cadena

End Sub

Que conste que me ha costado un poquito darme cuenta del error. 🙂

Edited by Antoni
Link to comment
Share on other sites

1 minute ago, Antoni said:

Sub MostrarMsgBox() '<--- El nombre de la macro no puede ser MsgBox

x = Range("A" & Rows.Count).End(xlUp).Row
For i = 2 To x
   If Range("A" & i) <> "" Then cadena = cadena & Range("A" & i) & "; "
Next i
MsgBox "Este es el listado de ciudades:" & cadena

End Sub

Que conste que me ha costado un poquito darme cuenta del error. 🙂

Anda! muchas gracias! Pues ya está solucionado ;).

Link to comment
Share on other sites

×
×
  • Create New...

Important Information

Privacy Policy