Luis Mondelo

Te mando mi solución: Tenemos la fecha de ingreso anotada en la celda C3 Tenemos la fecha de retiro anotada en la celda D3 Escribe esta fórmula en otra celda: =SI(SIFECHA(C3;D3;"y")>0;SIFECHA(C3;D3;"y")&"...

En el siguiente enlace te dejo un archivo con la solución http://share.cx.com/jtd3WG No olvides finalizar la consulta

Te mando mi solución. Ejecuta esta macro y todo listo Sub ejemplo() 'por luismondelo valor = Range("a1").Value Set busca = ActiveSheet.Range("s6:ad6").Find(valor, LookIn:=xlValues, lookat:=xlWhole) If Not busca Is Nothing Then ubica =...

Escribe la fórmula así: (En la celda D3 tiene que estar anotado el año y el libro registro.xls tiene que estar abierto) =BUSCARV($A5;INDIRECTO("'C:\Users\Puesto11\Desktop\Trabajo\[REGISTRO.xls]"&D3&"'!$A$2:AW500");4;FALSO) recuerda finalizar

Te mando la solución en cuanto esté libre, ahora estoy liado

En un momento te mando la solución

Te mando mi solución con esta macro: Sub prueba() 'por luismondelo Range("a1").Select Do While ActiveCell.Value <> "" lista = lista & "," & ActiveCell ActiveCell.Offset(0, 1).Select Loop lista = Mid(lista, 2, Len(lista) - 1) Range("a2").Value = lista...

No has dicho en qué celda está la lista validada. En mi ejemplo me voy a imaginar que está en la celda D1. Entonces escribimos esta fórmula en la celda E1: =buscarv(d1;a2:b45;2;falso) Recuerda finalizar

Te mando mi solución con este ejemplo e instrucciones: -Tenemos las dos primeras columnas que mandas en la hoja1 (columnas B y D) -Ejecutamos esta macro y nos hará el informe que pides en la hoja2 Sub ejemplo() 'por luismondelo Sheets("hoja1").Select...

Te mando mi solución y estas son las instrucciones: -Posiciónate en la primera celda con datos de tu tabla empezando por la izquierda y arriba, en tu caso tienes que ponerte encima de la celda que tiene el importe 510 -Después de posicionarte en ella...