MOSTRAR MENSAJE DE CELDA VACIA?????

On 26 feb, 18:21, "Israel" wrote:

Duda el siguiente programa me hicieron el favor de ayudarme a
realizarlo

la Duda es la siguiente:
Si no coloco nada en la columna "A"(celdas vacias) y acciono el macro
me copia informacion en la hoja 3, quisiera que no me copiara nada de
la hoja(siempre y cuando no exista o este vacia las celdas en la hoja
1) y mostrarme un cuadro de texto "no existe y/o celda vacia" y pues
si existe la celda en la hoja dos pues que coloca la informacion
pedida(es lo que hace el codigo)

Les agradeceria que me ayudaran a resolver esta pequeña duda

es urgentisimo

Sub Botón1_AlHacerClic()
Dim Origen As Range
On Error Resume Next
With Worksheets("hoja2")
Set Origen = .Cells.Find( _
What:=Worksheets("hoja1").Range("b2"), _
After:=.Range("a1"), _
LookAt:=xlWhole)
End With
If Origen Is Nothing Then
MsgBox Worksheets("hoja2").Range("b2") & " NO se encuentra !!!"
Exit Sub
End If
With Worksheets("hoja3")
Origen.Resize(5).EntireRow.Copy _
Destination:=.Cells(Rows.Count, "a").End(xlUp).Offset(5)
End With
Set Origen = Nothing
End Sub

perdon otra duda quisiera que me busque en un rango de a3 hasta a6000
de la columna "A" de la hoja 1
pueden checar mi codigo y la verdad no puedo meter ese rango en mi
codigo de busqueda

Sub Botón1_AlHacerClic()
Dim Origen As Range
On Error Resume Next
With Worksheets("hoja2")
Set Origen = .Cells.Find( _
What:=Worksheets("hoja1").Range("A2"), _
After:=.Range("a2"), _
LookAt:=xlWhole)
End With
If Origen Is Nothing Then
MsgBox Worksheets("hoja2").Range("b1") & " NO se encuentra !!!"
Exit Sub
End If
With Worksheets("hoja3")
Origen.Resize(5).EntireRow.Copy _
Destination:=.Cells(Rows.Count, "a").End(xlUp).Offset(5)
End With
Set Origen = Nothing
End Sub

hola, Israel !

__ 1 __

Si no coloco nada en la columna "A"(celdas vacias) y acciono el macro > me copia informacion en la hoja 3
quisiera que no me copiara nada de la hoja (siempre y cuando no exista o este vacia las celdas en la hoja1)
y mostrarme un cuadro de texto "no existe y/o celda vacia" y pues si existe la celda en la hoja dos
pues que coloca la informacion pedida (es lo que hace el codigo) [...]

__ 2 __

... otra duda quisiera que me busque en un rango de a3 hasta a6000 de la columna "A" de la hoja 1
pueden checar mi codigo y la verdad no puedo meter ese rango en mi codigo de busqueda

[para ambos casos]... las modificaciones que le estas haciendo a los codigos 'originalmente' propuestos...
-> no estan siguiendo el 'patron' de los supuestos [que dicho sea de paso... tampoco hubo alguna retro-alimentacion] :-((

1) lo que busca el codigo... es lo que le indicas en la linea que dice...
What:=Worksheets("hoja1").Range("b2"), _

2) en donde lo esta buscando ??? -> en donde le indicas en las lineas que dicen...
With Worksheets("hoja2")
[... otras lineas ...]
After:=.Range("a1"), _

3) 'como' lo esta buscando ??? -> de manera exacta... por la instruccion dada en la linea que dice...
LookAt:=xlWhole)

4) si NO lo encuentra... [ya sea porque 'donde' lo busca es una columna 'vacia' o no existe una coincidencia 'exacta'...
[simplemente] NO asigna el valor a la variable -> Set Origen = .Cells.Find( _ [etc. etc. etc.]

[en resumen]... verifica/comprueba/modifica/... en ambos codigos [modificado y adaptaciones] lo siguiente:
a) que le estas diciendo que busque ??? -> argumento What:b) donde le estas indicando que lo busque ??? -> las instrucciones With Worksheets(... y -> After:c) como coinciden [o no] los datos anteriores con tus lineas del MsgBox ??? [NO coinciden] ;)

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

__ el codigo 1 __

Sub Botón1_AlHacerClic()
Dim Origen As Range
On Error Resume Next
With Worksheets("hoja2")
Set Origen = .Cells.Find( _
What:=Worksheets("hoja1").Range("b2"), _
After:=.Range("a1"), _
LookAt:=xlWhole)
End With
If Origen Is Nothing Then
MsgBox Worksheets("hoja2").Range("b2") & " NO se encuentra !!!"
Exit Sub
End If
With Worksheets("hoja3")
Origen.Resize(5).EntireRow.Copy _
Destination:=.Cells(Rows.Count, "a").End(xlUp).Offset(5)
End With
Set Origen = Nothing
End Sub

__ el codigo 2 __

Sub Botón1_AlHacerClic()
Dim Origen As Range
On Error Resume Next
With Worksheets("hoja2")
Set Origen = .Cells.Find( _
What:=Worksheets("hoja1").Range("A2"), _
After:=.Range("a2"), _
LookAt:=xlWhole)
End With
If Origen Is Nothing Then
MsgBox Worksheets("hoja2").Range("b1") & " NO se encuentra !!!"
Exit Sub
End If
With Worksheets("hoja3")
Origen.Resize(5).EntireRow.Copy _
Destination:=.Cells(Rows.Count, "a").End(xlUp).Offset(5)
End With
Set Origen = Nothing
End Sub