Problema en macro

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!

2 Respuestas

Respuesta
1
Si creo que te explicaste bien, ya te paso el código en el día
Proba con este codigo a ver como te resulta en vez de usar un IF usas un do While
ActiveSheet. Range("D14"). Activate ' (ACTIVO LA CASILLA D14 DE LA HOJA "DATOS")
Do While Not IsEmpty(ActiveCell) ' (ACA LE DIGO QUE SI LA CELDA ACTIVA NO ESTA VACIA QUE SE VAYA A LA FILA SIGUIENTE)
ActiveCell.Offset(1, 0). Activate
Loop
    With ActiveCell
.PasteSpecial Paste:=xlPasteValues, operation:=xlNone, SkipBlanks:=False, Transpose:=False
End With
Respuesta
1
Aquí le mando la solución a su problema
Sub pegar_Dato()
On Error GoTo problema
    If Not IsEmpty(Range("D14").Value) Then
        ActiveCell.End(xlDown).Offset(1, 0).Select
        ActiveSheet.Paste
        Application.CutCopyMode = False
    Else
        ActiveSheet.Paste
        Application.CutCopyMode = False
    End If
problema:
If Err.Number = 1004 Then
    MsgBox "No a seleccionado que dato desea copiar", vbCritical, "Error al Intentar copiar información"
Exit Sub
End If
End Sub
Cualquier consulta o duda me escribes

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas