Tor Cheer

¿Ocurre con todos los archivos o nada más con ese archivo? Si es unicamente con ese archivo, es probable que la macro este provocando esa inconsistencia, si puede compartir su archivo para ver si es posible encontrar la causa.

Considerando que el dato Vacío esta en la columna A, pruebe con esta macro Sub ElimarFilaSegunCriterio() u = Cells(Rows.Count, 1).End(xlUp).Row Columna = ("A") DatoElim = "Vacio" For i = u To 2 Step -1 Cells(i, Columna).Select If Cells(i, Columna) =...

Comparta una copia de su archivo con datos ficticios y si puede explicar que datos no pasa correctamente para poder ayudarle.

Private Sub CODIGO_Click() dato = CODIGO.Value 'ver * Set BUSCO = Sheets("proveedores").Range("b2:c15000").Find(dato, LookIn:=xlValues, LookAt:=xlWhole) 'ver ** 'si encontró el dato lo mostrará en los demás textbox If Not BUSCO Is Nothing Then...

Entendiendo que el valor de la Celda J3 es la que cambia de valor, tiene que ponerlo como una variable por ejemplo: valor = Range("J3).value Selection.Find(What:=valor, After:=ActiveCell, LookIn:=xlFormulas, _ LookAt:=xlWhole, SearchOrder:=xlByRows,...

Supongo que al momento de capturar en cierta celda el dato se vuelve "CERRADO" y en ese momento mostrar el mensaje me corrige si no es así. Además de si puede compartir un archivo como ejemplo para intentar ayudarle.

La siguiente macro encuentra un dato buscado y muestra un mensaje como ejemplo, puede adaptarla a sus necesidades, cualquier cosa comenta para ayudarle Sustituya la ubicación del valor buscado, así como el nombre de la hoja así como también la...

No me queda claro lo que necesita, podría subir una imagen de sus datos y graficar lo que desea obtener.

Al encontrar el código y descripción idénticos en más de una vez, ¿qué necesita hacer?, ¿Obtener un resultado en otra columna o en otra hoja? No me queda claro lo que desea, si aporta más información para poder ayudarle.

Con este código le asigna valor a C2 y C6 los valores que tiene A2 y A3 Range("C3").Value = Range("A2").Value Range("C6").Value = Range("A3").Value