Elsa Matilde

Imaginemos que en Hoja1, col A = art y col B hacia derecha el nombre de los clientes. En Hoja2, imaginemos que en A1 está el art y en B1 el clie. En C1 para obtener el precio coloca esta fórmula:...

Te conviene utilizar SET (debo haber escrito cientos de ejemplos aquí, con el buscador del foro los encontrarás): Ej: Set busco = Range("H:H").Find(.....) 'aquí no va select if not busco is nothing then MsgBox "Lo encontré" Else MsgBox "NO lo...

Cuando insertás el control Imagen vas a la propiedad Picture y desde allí insertás tu imagen. Bien, si es mucho más grande, ajustá la propiedad PictureSizeMode a Strech, y así se verá reducida al tamaño de tu control.

Insertá la línea de negrita para poder observar qué rango se está seleccionando. Puede ser que no encuentre el final y se vaya hasta el fin de la hoja (así me pasó en las pruebas) y por eso se excede el copiado al rango que le queda para pegarlo....

Para estos casos lo mejor es que enciendas la grabadora de macros, realices todos los pasos (configurar e imprimir) . Al finalizar, detené la grabadora y en un módulo del editor encontrarás la rutina. Luego podes escribirla aquí x si necesita de...

Ya te envié imagen del evento Open, creo que no tendrás inconvenientes, sino te lo enviaré colocado cuando resuelva este tema.

Lo mejor es que diseñes la tabla con la grabadora de macros encendida, para tener bien declaradas las referencias. Luego si necesitas ayuda para ajustarla, déjamela escrita aquí.

Te dejo un ejemplo para copiar las col 1,3 y 5 en col 10. Así lo debes hacer con el resto, siempre indicando la col destino (no lo aclaras aquí). Sub uneColumnas() 'x Elsamatilde 'se trabaja en hoja activa 'col 1,3 y 5 en co 10 (J) Range("A1:A" &...

El evento 'Change' se ejecuta ante cada cambio de celda... quizás cuando limpias una se vuelve a ejecutar. Dejá escrito aquí un pequeño ejemplo con datos fila y col para comprender mejor lo que intentas lograr.

Te dejo unas instrucciones, ajustá el nombre de la carpeta o ruta: Sub guardaPDF() 'x Elsamatilde nbreLibro = Range("B1") ruta = "D:\carpetas Datos\descargas\TRABAJO\" ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ ruta & nbreLibro &...