Elsa Matilde

Creo entender que ya sabes de antemano en qué hoja debe buscar el dato para cada textbox. Por ejemplo los campos Empresa1 y Cargo se buscarán en hoja de igual nombre y así. Entonces, estas instrucciones te pueden servir para cada grupo de campos. Set...

Esta sería la macro que tendrás que colocarla en el Editor (entra con atajo de teclado ALT y F11), insertar un módulo y allí copiar el siguiente código: Sub buscaA1() 'x Elsamatilde 'se recorre el rango For Each cd In Range("C3:N18") 'si la celda...

¿Podrías explicar un poco más lo que necesitas 'extraer'? ¿Y dónde copiarlo?

Si la hoja no tiene otros datos debajo de la tabla que necesitas rellenar, debes buscar la última fila desde alguna columna que esté completa, suponiendo entonces que sea la col A agrega esta instrucción: x = Range("A" & Rows.count).end(xlup).Row...

No queda claro si el rango va desde fila 15 hasta el final o solo hasta fila 21. Dejo comentarios en el mismo código para que lo ajustes. Sub creaHojasCodigo() 'x Elsamatilde Sheets("HOJA").Select 'se recorre la col B desde fila 15 .... ajustar fin...

Como se ve que el formulario tiene campos de fecha, revisa si no estás en algún paso utilizando un control Calendar. Revisa desde el menú Herramientas, Referencias si no hay alguna que aparece con el texto FALTA. Si alguna falta es posible que...

Como me recomendaste la consulta entiendo que habrás visto una respuesta mía sobre este tema. Difícil que recuerde alguna respuesta en particular con la cantidad que ya he enviado, pero veamos si esta macro te sirve, sino comentame. Si observamos en...

Ya me ocuparé de este tema y te comentaré a continuación. Sdos. Elsa https://elsamatilde.blogspot.com/

Te dejo un ejemplo para que veas cómo se arma una cadena con argumentos variables. En la imagen verás dónde y cómo escribí los datos variables: Si la fórmula fuese: "=VLOOKUP(RC[-1],'[prueba foro.xlsm]Hoja3'!R1C1:R27C6,6,0)" Con las variables te...

Si la hoja tiene muchas fórmulas, conviene pasar el cálculo a modo manual antes de arrastrar las celdas y luego volverlo a automático: Sub mejorarMacro() 'guardar la última fila para no tener que escribirlo en cada línea finx = Range("A" &...