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

gracias por responder... hice lo que me sugeriste, pero ahora me devuelve el
siguiente mensaje:
End If sin bloque If..
pero no endiendo bien lo que me dices de que hace falta una linea.. te
refieres solo a End If o algo más.. Saludos...

"Héctor Miguel" escribió:

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

hola.. ya encontre el problema.. en realidad tenias razón con lo de end If
gracias por ello.. pero luego no me funcionaba. me parece que era debido a la
cantidad de numero que contenia en "NFC", pues el codigo que tengo aqui es de
19 caracteres, cuando se lo cambie me funcionó perfectamente..

pero ahora tengo otro problema con buscarv... es que tengo al siguente
formula SI(F8="","",BUSCARV(F8,NCF!$A$1:$B$4,2,0)), pero no me funciona como
espero porque quiero que cuando me busque el numero que pido tambien me
traiga el formato, pues en las diferentes lineas tengo formatos especiales
diferentes... no se como hacerlo... espero que tengas la respuesta... gracias