Poner titulo de un MSGBOX

31/03/2005 - 09:11 por DANILO ARANGO | Informe spam
HOLA A TODOS!!

Alguien me puede ayudar!!!!
como se puede poner en un TITULO DEL MSGBOX algo que esta en otra celda..
por ejemplo:

Columa A columna B
1 45594646 381500
2 47894464 381500
3 75957985 500000

tengo una macro que va bajando por las celdas e la columna B y cuando
encuentra un valor determinado saca un msgbox, pero lo que quiero es que me
muestre el numero de la identificacion que esta en la columna A, me gustaria
que quedara asi:

msgbox texto del mensaje + titulo + texto o valor de la culumana A
ejemplo:
msgbox "datos incorrectos", 16, "comparar CC 75957985" 'siendo este el
valor de A3
teniendo en cuenta que son listados muy grandes

GRACIAS A TODOS
DANILO

Preguntas similare

Leer las respuestas

#1 KL
31/03/2005 - 09:46 | Informe spam
Hola Danilo,

Deberias exponer el codigo que usas ya que la sentencia especifica depende
de la variable que usas para la celda/fila vigente (me imagino que usas un
bucle para "bajar por las celdas"). Usando los datos que has proporcionado
hasta el momento:

MsgBox "datos incorrectos", 16, "comparar " & Range("A3")

Si estoy en lo correcto respecto a como es tu macro, entonces tu macro
podria ser algo asi:

Sub Test()
Dim celda As Range
With ActiveSheet
For Each celda In .Range("A2:A20")
If celda.Offset(0, 1) = 50000 Then
MsgBox "datos incorrectos", 16, _
"comparar " & celda.Value
Exit For
End If
Next celda
End With
End Sub

Saludos,
KL
Respuesta Responder a este mensaje
#2 Héctor Miguel
31/03/2005 - 09:47 | Informe spam
hola, Danilo !

... poner en un TITULO DEL MSGBOX algo que esta en otra celda.
... macro que va bajando por... la columna B... saca un msgbox
... que me muestre el numero de la identificacion que esta en la columna A
... msgbox "datos incorrectos", 16, "comparar CC 75957985" 'siendo este el valor de A3



'depende' de la forma en que la macro 'vaya bajando' por la columna 'B' -???- [p.e.]
-> si utilizas una estructura del tipo 'For Contador = 1 To x...Next'
-> MsgBox "datos incorrectos", 16, "comparar CC " & Range("a" & Contador)
-> si utilizas una estructura del tipo 'For Each Variable In Selection...Next'
-> MsgBox "datos incorrectos", 16, "comparar CC " & Variable.Offset(, -1)
-> si utilizas codigo 'diferente'... comentas datos adicionales?

saludos,
hector.
Respuesta Responder a este mensaje
#3 KL
31/03/2005 - 09:51 | Informe spam
:-))


"Héctor Miguel" wrote in message
news:
hola, Danilo !

... poner en un TITULO DEL MSGBOX algo que esta en otra celda.
... macro que va bajando por... la columna B... saca un msgbox
... que me muestre el numero de la identificacion que esta en la columna
A
... msgbox "datos incorrectos", 16, "comparar CC 75957985" 'siendo este
el valor de A3



'depende' de la forma en que la macro 'vaya bajando' por la columna
'B' -???- [p.e.]
-> si utilizas una estructura del tipo 'For Contador = 1 To x...Next'
-> MsgBox "datos incorrectos", 16, "comparar CC " & Range("a" &
Contador)
-> si utilizas una estructura del tipo 'For Each Variable In
Selection...Next'
-> MsgBox "datos incorrectos", 16, "comparar CC " &
Variable.Offset(, -1)
-> si utilizas codigo 'diferente'... comentas datos adicionales?

saludos,
hector.

Respuesta Responder a este mensaje
#4 Héctor Miguel
31/03/2005 - 09:56 | Informe spam
:-))



;)
Respuesta Responder a este mensaje
#5 DANILO ARANGO
01/04/2005 - 08:51 | Informe spam
hola kl y hector

GRACIAS POR SU AYUDA!!!!

Con la respuesta que me dio hector me dio aunque no lo hice en el titulo si
no en el mensaje del texto!!!
-> si utilizas una estructura del tipo 'For Each Variable In Selection...Next'
-> MsgBox "datos incorrectos", 16, "comparar CC " & Variable.Offset(, -1)

aqui esta la macro, apenas le estoy trabajando y como no es que sea muy buen
programador,,, pero con lo poco que se y con lo que he aprendido de todos
ustedes me defiendo bien,,,

Sub SalariosIncorrectos()
Dim Celda As Range
Range([b1], [b65536].End(xlUp)).Select
For Each Celda In Selection: If IsEmpty(Celda) Then GoTo siguiente
Preguntar = True
If Preguntar Then
With ActiveWindow
Fila = Celda.Row
Filas = .VisibleRange.Rows.Count + .VisibleRange.Row - 2
If Fila > Filas Then .ScrollRow = .VisibleRange.Row + (Fila - Filas)
End With
Select Case LCase(Celda)
Case Is >= 500000: MsgBox "Datos incorrectos' Verifique Por Favor !!!
En CC " & Celda.Offset(, -1), vbCritical, "Corregir Datos en Fila " &
Celda.Address
End Select
End If
siguiente:
Next
End Sub

Decidi que el valor de la columna A estuviera en el texto y no en el titulo

KL el codigo que me enviaste lo voy atulizar en otro libro...si algo te
comento!!!
Gracias

KL tengo otra pregunta para la voy a poner como pregunta nueva en el foro el
titulo es MACRO PARA GUARDAR ARCHIVO
Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaSiguiente Respuesta Tengo una respuesta
Search Busqueda sugerida