Dante Amor

Tienes pendiente por valorar estas respuestas: MACRO lenta como volver más rápido EJECUTAR macro a cierta fecha y a cierta hora

Envíame tu archivo para revisarlo y adaptar la macro. Solamente como recomendación: Las bases de datos deben crecer sus registros hacia abajo no hacia la derecha, si tuvieras tus datos hacia abajo, podrías hacer una tabla dinámica y obtener...

H o l a: Te anexo la macro Sub BorrarFilas() 'Por.Dante Amor Set h = Sheets("Ingreso") u = h.Range("B" & Rows.Count).End(xlUp).Row If u > 1 Then h.Rows(u - 1 & ":" & u).ClearContents End Sub S a l u d o s

Te anexo el código: 'aquí nueva instrucción Set b = h4.Columns("C").Find(h1.[C7], lookat:=xlWhole) If Not b Is Nothing Then h2.Range("AW" & u) = h4.Cells(b.Row, "F") End If ' Sal u dos

H o l a: Para lograr lo que pides, primero tienes que poner en cada registro, la ruta del archivo y el nombre del archivo. Lo tienes que poner en otra columna. Por ejemplo: ¿O de qué forma la macro va a saber en dónde está el archivo y cómo se llama?

H o l a: Después del End If te falta otro End If No he probado la macro porque no entiendo por qué tienes 2 ciclos. Si pones el End If que te hace falta y logras el resultado que esperas. Entonces podrías valorar la respuesta. Si no logras el...

Pero si lo que encuentra son varios resultados. Pones la letra "A" y en la columna "C" tienes esto: "Amigo" "Amor" "Antes" Etc. ¿Qué es lo que quieres que te aparezca? Para eso se ocupan los Combobox. Es complicado lograr eso que quieres en una celda.

H o l a: Supongo que si no existe, entonces el código debe empezar con 1. Prueba con la siguiente macro Sub LlenarTextbox() 'Por.Dante Amor Set h1 = Sheets("BBDD") vmax = 0 Set r = h1.Columns("D") Set b = r.Find(ComboBox1, lookat:=xlWhole) If Not b...

H o l a: No es necesario que los renombres, lo más conveniente es que pongas todos los archivos en una sola carpeta. Después de procesar la macro podrás borrar los archivos de esa carpeta, y para la siguiente ejecución de la macro, colocar nuevamente...

H o l a: Te anexo el código para ingresar un nuevo cliente, en el formulario debes capturar el cliente y la carpeta, el código busca en la hoja el orden que le corresponde al nuevo cliente y lo inserta. Private Sub CommandButton9_Click() 'Por.Dante...