Problemas con if y sendkeys
Hola experto,
Tengo un problema al utilizar un IF en una macro tengo el siguiente código:
If Not Range("D14").Select = Empty Then
ActiveCell.End(xlDown).Select
ActiveCell.Offset(1, 0).Select
ActiveCell.PasteSpecial Paste:=xlPasteValues, operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Else
ActiveCell.PasteSpecial Paste:=xlPasteValues, operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End If
La macro debe identificar si el rango elegido tiene algún valor que baje hasta la siguiente celda activa y pegue la información y si no tiene valor alguno que la pegue en la celda seleccionada, así si la vuelvo a correr revise que no haya dato y pegue o si hay baje a la siguiente vacía y pegue, espero haberme explicado y me puedas ayudar ¡Muchas Gracias!
Tengo un problema al utilizar un IF en una macro tengo el siguiente código:
If Not Range("D14").Select = Empty Then
ActiveCell.End(xlDown).Select
ActiveCell.Offset(1, 0).Select
ActiveCell.PasteSpecial Paste:=xlPasteValues, operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Else
ActiveCell.PasteSpecial Paste:=xlPasteValues, operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End If
La macro debe identificar si el rango elegido tiene algún valor que baje hasta la siguiente celda activa y pegue la información y si no tiene valor alguno que la pegue en la celda seleccionada, así si la vuelvo a correr revise que no haya dato y pegue o si hay baje a la siguiente vacía y pegue, espero haberme explicado y me puedas ayudar ¡Muchas Gracias!
1 Respuesta
Respuesta de emoren
1
Bueno no entiendo muy bien lo que quieres hacer, pero acá le dejo esa macro arreglada de tal forma que le funcione bien:
if (Range("D14").value <>Empty) Then
ActiveCell.Offset(1, 0).Select
ActiveCell.PasteSpecial Paste:=xlPasteValues, operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Else
ActiveCell.PasteSpecial Paste:=xlPasteValues, operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
end if
Espero sea lo que necesita, si es así NO OLVIDAR PUNTUAR Y FINALIZAR LA PREGUNTA, de lo contrario no finalice la consulta hasta obtener los resultados deseados, que tenga un feliz día!
if (Range("D14").value <>Empty) Then
ActiveCell.Offset(1, 0).Select
ActiveCell.PasteSpecial Paste:=xlPasteValues, operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Else
ActiveCell.PasteSpecial Paste:=xlPasteValues, operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
end if
Espero sea lo que necesita, si es así NO OLVIDAR PUNTUAR Y FINALIZAR LA PREGUNTA, de lo contrario no finalice la consulta hasta obtener los resultados deseados, que tenga un feliz día!
perfect muchas gracias efectivamente como lo pones en la macro que me envías el error estaba en el activecell.end me sirvió bastante saludos
