Poner titulo de un MSGBOX

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

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.

:-))


"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.

:-))

;)

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