macro condicional

hola, 'anonimo/a' !

hola.. tengo la siguiente macro pero no funciona completamente (...)
el error esta en la condicion y no se como solucionarlo...

(segun el codigo que expones) parece que estas recibiendo un error provocado por una instruccion "If sin End If"

corrige esta parte de tu codigo:
de:
If Sheets("FACTURA").Range("F8").Value = ("1") Then
Sheets("NCF").Range("B1").Value = Sheets("NCF").Range("B1") + 1
ActiveSheet.Protect Password:="1496", DrawingObjects:=True, Contents:=True

a:
If Sheets("FACTURA").Range("F8").Value = ("1") Then
Sheets("NCF").Range("B1").Value = Sheets("NCF").Range("B1") + 1
End If ' <= esta linea hace falta !!!
ActiveSheet.Protect Password:="1496", DrawingObjects:=True, Contents:=True

saludos,
hector.

__ el codigo expuesto __

Sub Imprime_Numerancf()
ActiveSheet.PrintOut 'Copies=2
ActiveSheet.Unprotect ("1496")
Sheets("FACTURA").Range("G10").Value = Sheets("FACTURA").Range("G10") + 1
If Sheets("FACTURA").Range("F8").Value = ("1") Then
Sheets("NCF").Range("B1").Value = Sheets("NCF").Range("B1") + 1
ActiveSheet.Protect Password:="1496", DrawingObjects:=True, Contents:=True
'Save=True
End Sub