Dante Amor

H o l a: Para hacer la macro tienes que poner: Primero, las condiciones que se deben cumplir en la hoja1 para pasar los registros a la hoja2. Segundo, qué resultado y en cuáles columnas esperas de las fórmulas, para saber si se cumplen, y entonces,...

H o l a: En esta celda B7 tienes los artículos: 1, 115, 162, ¿209 . Separados por comas? ¿Lo necesitas con fórmulas o puede ser con una macro? Podrías poner una imagen de cómo tienes los datos y el resultado que esperas, por ejemplo en la celda C7.

En esta línea H1. Range(Rango). Picture = LoadPicture(archivo) Rango, no es un objeto, podría ser así: H1. Range(Rango).Picture = LoadPicture(archivo) Prueba y me comentas. Si tienes problemas, envíame tu archivo para revisarlo. Mi correo...

H o l a: Pues para tener un archivo de 25 megas, yo creo que el tiempo es adecuado. Lo principal que hace que una macro se demore es el pegado especial. Una opción es pasar celda por celda el valor de una hoja a otra, por ejemplo: H1....

H o l a: No me pusiste en cuál encabezado se debe registrar cuando G16 es numérico. Lo estoy poniendo en el encabezado 2. Te anexo la macro. Sub CopiarDatos() 'Por.Dante Amor Set h1 = Sheets("ing colpatria") Set h2 = Sheets("colpatria") Set h3 =...

H o l a: Te anexo la macro Sub CopiarDatos() 'Por.Dante Amor Set h1 = Sheets("ing colpatria") Set h2 = Sheets("colpatria") ' If UCase(h1.[G16]) = "CONSULTA" Or UCase(h1.[G16]) = "CONTROL" Then If UCase(h1.[G16]) = "CONSULTA" Then vbruto = "45870"...

H o l a: De esa forma me queda más claro, preparo la macro y te la envío.

H o l a: Te anexo la macro actualizada. Sub Buscar2() 'Por.Dante Amor Set h2 = Sheets("BASE") Set h3 = Sheets("INGRESAR_CITA") Set h4 = Sheets("AGENDA") Set h5 = Sheets("REAGENDAR") h3.[D8:D24].ClearContents ' If h3.[D6] = "" Then MsgBox "Número de...

H o l a: Te anexo la macro actualizada, de esta forma ya no es necesario, ocultar la aplicación, ni mostrar las hojas, ni volver a ocultar las hojas. Sub ALMACENAR() 'Por.Dante Amor Set h2 = Sheets("CLIENTES") Set h3 = Sheets("FORMULARIO") ' If...

H o l a: Envíame tu archivo con un ejemplo en la hoja "Registro", con la hoja "Diseño" con el puro diseño y en otra hoja me pones el resultado que esperas. También envíame el PDF resultante. Recuerda poner tu nombre en el asunto. s a l u d o s