Forums Últimos mensajes - Powered by IBM
 

MOSTRAR MENSAJE DE CELDA VACIA?????

27/02/2007 - 01:21 por Israel | Informe spam
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
 

Leer las respuestas

#1 Israel
27/02/2007 - 01:25 | Informe spam
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

Preguntas similares