Eduard Caballero

Prueba con este código, fíjate que esta en el click del Label Private Sub Label1_Click() Worksheets("Hoja1").Activate Set resp = Cells.Find(What:=TextBox1.Text, After:=ActiveCell, LookIn:=xlFormulas, _ LookAt:=xlWhole, SearchOrder:=xlByRows,...

Acá tienes la fórmula =SI(O(A2=0;A2=1);"<160";SI(Y(A2>=2;B2<10);"<130";SI(Y(A2>=2;10<=B2<=20);"<100";SI(Y(C2="si";B2>20);"<100"))))

Prueba lo siguiente Private Sub CommandButton1_Click() Worksheets("Hoja1").Activate Set resp = Cells.Find(What:=TextBox1.Text, After:=ActiveCell, LookIn:=xlFormulas, _ LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _...

Esto lo puedes hacer mediante subtotales o usando tabla dinámica. Adjunto en my Skydrive el archivo con tus datos de ejemplo...

Acá tienes la fórmula SI(Y(A1="INT";A5<100000);"SOLO";"UDF") Pero tengo una curiosidad, ¿qué pasa cuando A1 es CAP? De igual forma espero haberte ayudado

Buscardato= Worksheets("Hoja1").Range("A2").Value Suponiendo que es la celda A2 de la Hoja1 Tu deberías colocar el nombre de la hoja y tu celda de referencia

Aca tienes un ejemplo adaptado a lo que quieres http://cykwsq.blu.livefilestore.com/y1pAa2jIBLuqOpwU2PrBscfDjR4ZQVN_7BL4hwQCq0S9eV12OTWAbx-2hRGV4qNY4ifbSkmqPvTmz4O6f3BTd0kxGb__tBF56-1/Factura.xlsm?download&psid=1

¿Cuáles puntos de la planilla de ejemplos necesitas resolver?

Como veo que maneas código puedo recomendarte: En lugar de un for podrías usar, un hacer mientras la celda este vacía Do While Not IsEmpty(ActiveCell) Si no logras hacerlo sube un ejemplo de lo que quieres para tratar de ayudarte.

¿Puedes colocar el código que estas usando? O quizá subir el archivo para ver el ejemplo.