rmunozmarino

jrgces respondió: No es necesario recurrir a VBA. Yo preparé hace tiempo un libro de ejemplo con fórmulas para validar tanto NIFs como NIEs: http://www.jrgc.es/ejemplos_funcvarias/averiguar_letra_DNI.xls Saludos_

Elsa Matilde respondió: La siguiente macro solicita el valor a rellenar. Luego filtra la col en cuestión por 'vacíos' rellenando cada celda. En este ejemplo el fin de rango lo da la col B y la tabla empieza en fila 4... ajusta estas referencias en tu hoja. Sub macroRMM() 'x...

Dante Amor respondió: Y quiero introducir un cero 0 en la tercera posición empezando por la izquierda Ejecuta la siguiente macro, los resultados quedarán en la misma columna A: Sub Macro4() With Range("A1", Range("A" & Rows.Count).End(xlUp)) .Value =...

Dante Amor respondió: Si lo quieres con fórmula el resultado en la columna B: ="0"&IZQUIERDA(A2;1)&"-"&EXTRAE(A2;2;2)&"-"&DERECHA(A2;6) Si lo quieres con macro y el resultado en la columna B: Sub PonerGuiones() With Range("B2:B" & Range("A" & Rows.Count).End(3).Row)...

Adriel Ortiz Mangia respondió: [Hola prueba la macro con los ajustes solicitada Sub Buscar_3() 'Por Dante Amor Application.ScreenUpdating = False ' Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") Set h3 = Sheets("Hoja3") h3.Cells.ClearContents u3 = 2 ' For i = 2 To h2.Range("D"...

James Bond respondió: Prueba esta macro, busca las facturas que hay en la hoja 2, cuenta cuantas hay de cada una en la hoja 1 y en un solo paso las copia todas a la hoja 3, eso reduce bastante el tiempo de funcionamiento. Sub copiar_facturas() Dim x As WorksheetFunction...