Anónimo
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!
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 de antorchas
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
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 de snaki Fco
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
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