Error 1004 en línea de código VBA Excel
Espero te encuentres bien
En los Proyectos me sale esto y me apunta a la línea Range("C7 etc
Private Sub CommandButton1_Click() 'Limpia para nueva factura
Range("C7,C12,B14:E23").value = ""
CheckBox1.value = False
[C7].Select
End SubLa macro es esta de un boton que tengo en la hoja7(Factura).
En el evento
Private Sub Workbook_BeforeClose(Cancel As Boolean) 'Cierra libro en la hoja Inicio
'Por.Dante Amor http://www.todoexpertos.com/ preguntas/6lykvraeujuqkklx/ en-macro-excel-crear-una -hoja-para-filtro?nid= gcqp5uuggnw63hkpgkvpruesh8l mdfsm9jt9ttunabr3&utm_source= todoexpertos&utm_medium=Email Notification&utm_campaign=AskerQuestion_ ExpertMessageAdded
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Hoja7.Select
Sheets(7).Range("C7,C12,B14:B23,E14:E23").value = ""
[C7].Select
On Error Resume Next
Sheets("Temp").Delete
Hoja5.Select
Application.DisplayAlerts = True
Application.ScreenUpdating = True
' ActiveWorkbook.Save
End SubTambien tengo esta linea, incluso le agregue Sheets(7) al .Range y igual
Al pisa rel botón en la hoja o al cerrar este proyecto, es igual, me manda ese error y dando vueltas en estos Proyectos_Ventas1, 2, 3 y 4 sucede esto y hasta hace días no lo hacia, funcionaba bien. La función de esto es limpiar lda factura para nueva ejecucción
¿Cuál será la corrección?
2 respuestas
Hola temp01
Me manda nuevo ahora en esta línea Sheets("Factura").Select
Antes era en la otra
Sheets("Factura").Select
Sheets("Factura").Range("C7, C12, B14:B23, E14:E23").value = ""Falta mia no haber mencionado esto, ya lo habia probado, asi tambien y a DESPROTEGER la hoja y sucede lo mismo
Envíame tu archivo [email protected] para revisarlo saludos
Después de haber probado, cerré el libro dejando tu sugerencia activa en el evento ThisWorkbook_Open, resulta que co nesta tu respuesta lo volvía a abrir ver si estaba tu sugerencia, lo cerré y nada me mencionó.
Como sea te lo envío ya porque faltan pocos minutos para que el gobierno corte la energía electric = de 4pm a 7pm
Desproteja la Hoja factura saludos!
¿Qué más dice el mensaje error? ¿Podrías poner el mensaje completo del error?
¿Qué le cambiaste a la hoja?
¿Protegiste la hoja?
¿Combinaste algunas celdas?
Prueba limpiando celda por celda:
Por ejemplo:
For Each c In Range("C7,C12,B14:E23")
c.Value = ""
NextO de plano:
Range("C7").Value = ""
Range("C12").Value = ""
Range("B14").Value = ""
Range("B15").Value = ""
'...
Range("E23").Value = ""En estos casos ayudaría si pones una imagen de cómo tienes los datos.
Hola dante
¿Qué más dice el mensaje error? ¿Podrías poner el mensaje completo del error?
1ª antes de temp01, con el que siempre ha tenido
después con el de temp01
¿Qué le cambiaste a la hoja? nada
¿Protegiste la hoja? la desprotegi para probar sin passw también y lo mismo
¿Combinaste algunas celdas? ninguna, todo igual como antes
El error "Subíndice fuera del intervalo" es porque estás seleccionando una hoja que no existe.
¿Intentaste limpiar celda por celda?