Buen dia, tengo una macro que funcionaba bien pero hoy me esta dando este error 1004, en la orden de cargar una fila para despues copiar y pegar datos me tira error. (en rojo con carita)
No entiendo lo que busque esta todo ok, que podria ser alguna ayuda🤔🤔🤔🤔??
'Revisa las celdas
existe = False
For Each C In Range("C6:C10")
If C.Value = "" Then
celdas = celdas & " " & C.Address(False, False)
existe = True
End If
Next
If existe Then
MsgBox "Falta introducir el Datos en las celdas : " & celdas
Exit Sub
End If
'Agrega fila
Rows("16:16").Select Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove 🥵
Range("C6:C10").Select
Selection.Copy
Range("B16").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Range("C8:C10").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("C8").Select
'Bloquea hoja
ActiveSheet.Protect Password:="TANGO"
Application.ScreenUpdating = True
End Sub
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
Buen dia, tengo una macro que funcionaba bien pero hoy me esta dando este error 1004, en la orden de cargar una fila para despues copiar y pegar datos me tira error. (en rojo con carita)
No entiendo lo que busque esta todo ok, que podria ser alguna ayuda🤔🤔🤔🤔??
Sub REGISTRAR3()
'
' REGISTRAR3 Macro
'
Application.ScreenUpdating = False
Sheets("REGISTRO").Select
'Desbloquea hoja
ActiveSheet.Unprotect Password:="TANGO"
'Revisa las celdas
existe = False
For Each C In Range("C6:C10")
If C.Value = "" Then
celdas = celdas & " " & C.Address(False, False)
existe = True
End If
Next
If existe Then
MsgBox "Falta introducir el Datos en las celdas : " & celdas
Exit Sub
End If
'Agrega fila
Rows("16:16").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove 🥵
Range("C6:C10").Select
Selection.Copy
Range("B16").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Range("C8:C10").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("C8").Select
'Bloquea hoja
ActiveSheet.Protect Password:="TANGO"
Application.ScreenUpdating = True
End Sub