Luis Mondelo

Mándame un excel con un pequeño ejemplo para mandártelo solucionado. No hace falta que me mandes todos los datos sino un ejemplo aislado [email protected]

Si lo que quieres es mostrar solo el resultado necesitas una sentencia como esta: Range("a1").Value = Application. WorksheetFunction. VLookup(range("d1"). Value, sheets("valores"). Range("03:p10"), 2, False) recuerda finalizar

Una sentencia tipo sería así: range("b5").value = cdbl(textbox1)

En el siguiente enlace te dejo un ejemplo http://share.cx.com/wYbh65 Recuerda finalizar

Escribe esta fórmula en la celda B1 =izquierda(a1;hallar(" ";a1)-1) Recuerda finalizar la consulta

Te preparo un ejemplo y te lo mando. Tendrás que esperar un poco, ahora estoy ocupado impartiendo un curso de excel. Respóndeme a este mensaje con un ok para tenerlo pendiente en mi bandeja

La fórmula sería así: En mi ejemplo estamos evaluando el contenido de la celda F8 =SI(F8="";"";TEXTO(F8;"mmm")) recuerda finalizar

Con esta macro nos posicionamos en la hoja1 y copiamos la celda B5 en la hoja2 y se pegará en la primera celda libre de la columna A Sub proceso() 'por luismondelo sheets("hoja1").select range("b5").copy...

Algo así no hace falta resolverlo con macros, con un formato condicional te puede quedar de maravilla. Mándame el archivo con los datos de ejemplo y te lo mandaré confeccionado. [email protected]

La línea quedaría así: Fila=5 Columna=10 Worksheets("Formato"). Range("A1").Copy Destination:=Worksheets("Data"). Cells(fila, columna) recuerda finalizar