Elsa Matilde

Te devuelvo el libro con mi propuesta: en lugar de líneas de división, inmovilicé paneles (desde menú Vista), estando seleccionada la celda G21. Espero te sirva así.

Leyendo tu código se observan 2 errores: Field:= Campo pero Campo no aparece en las instrucciones. Según tu imagen debiera ser: Field:= 3 O anteponer una instrucción que diga cuál es la columna. Por ejemplo: Campo = 3 CritDdeStr este es el primer...

No entiendo porqué necesitas tantos GoTo... pero te comento que se pueden escribir varias instrucciones 1 una sola fila, separadas por 2 puntos. Por ejemplo: GoTo 201 : GoTo 202 : GoTo 203

Según el resumen de aclaraciones, creo que lo más efectivo será que coloques una col adicional para 'marcar' si se ha cumplido o no. Puede ser una letra, la palabra SI o cualquier texto para marcarlo. En la imagen se observa el agregado en la...

Ya te envié libro con los cambios. Para trabajar con la Hoja2 debes utilizar el formulario: Userform1_nvo. Podrías agregar otro botón, al que le debieras asignar la nueva llamada: Option Explicit Sub OpenForm() Load UserForm1 UserForm1.Show End Sub...

Leyendo tu fórmula veo que buscas la 3ra columna en el rango L:F. Intenta cambiarlo a Range("F1:L" & lastRow1) y ajusta el 3er argumento (3) si hiciera falta. *Te invito a mirar el video Nª 29 de mi canal: 3 Métodos de búsqueda, entre ellos el más...

La macro enviada por el experto Lucas resuelve tu consulta. Solo le haría un pequeño ajuste para que no recorra el total de columnas de la hoja, sino que busque solo en las columnas ocupadas, con alguna de estas instrucciones: 'guarda el total de col...

Si estás realizando una búsqueda y mostrando los resultados en un ListBox, debes agregar una instrucción, antes de cada búsqueda, para que limpie la lista de valores anteriores. Y esa instrucción dependerá de cómo llenas la lista. Si es pasando fila...

Entra al Editor de Macros (menú Programador, Visual Basic o con ALT + F11). Allí insertá un módulo y copia el siguiente código: Sub copiaDato() 'x Elsamatilde Dim codi As String Dim hoc As Worksheet Dim busco Set hoc = Sheets("BDCLIENTES") codi =...

Leo en el código que se está ejecutando DESDE el fin de rango -99 HASTA el fin de rango. Si tu rango llega hasta la fila 350, se ejecuta desde la fila 251 (350-99) hasta la 350, es decir solo las últimas 100 filas. Si necesitas que se ejecute desde...