James Bond

Trata con esta macro, en tu código falta relacionar las variables con los textbox, después de la pantalla con los resultados de la macro esta el código este es el codigo Private Sub ELIMINAR_Click() Set h = Worksheets("AGUA") On Error Resume Next...

Para agregar los datos al listbox solo agrega la línea que esta en el ejemplo, sin importar cuanto crezca o disminuya la columna A esta instrucción tomara en cuenta los cambios. Application.CutCopyMode = False Workbooks(a).Close False...

8000 códigos asignarle fechas manualmente, si lo vas a hacer diario es mucha perdida de tiempo, es más rápida una macro como la que esta abajo de esta pantalla cada cien registros aumenta la fecha 2 días y esta es la macro Sub colocar_fechas() Set...

Lo que puedes hacer es por ejemplo si tienes puros rojos poner una de ellas sin relleno (ojo sin relleno no es lo mismo que blanco, el código para blanco es 2 y para vacío es -4142), luego arrastras esa celda vacía hasta donde quieras y la fórmula se...

La línea Set a = Worksheets("prueba") hace que la macro solo funcione en la hoja prueba, sustitúyela por Set a = ActiveSheet esto hará que la macro se ejecute en cualquier hoja.

Prueba esta macro Sub registrar_datos() Set h1 = Worksheets("ficha").Range("b6").CurrentRegion Set h2 = Worksheets("tabla").Range("b4").CurrentRegion With h1 Set h1 = .Rows(2).Resize(.Rows.Count - 1, .Columns.Count) End With With h2 filas =...

Para lo hoja1 no hay problema cada que actives la macro tomara el valor de la celda ue escojas, pero para la hoja dos como no dices en que celda comienzan tus datos la macro la predefiní para que empezara a leer datos en la celda b2 a partir de hay...

¿Puedes poner un ejemplo más especifico y una captura de pantalla de tu información?, ¿Esto para darme una idea de que es lo que buscas?

prueba esta formula =+SI(AT1=0,10,SI(AT1-7<=-1,"X",AT1-7))

Contar. Si, es la fórmula que buscas checa el ejemplo en la captura de pantalla.