James Bond

Por un lado tienes 40 filas y 193 columnas y por el otro tienes 40 filas y 110 columnas en total se van a 33,968,000 de posibles arreglos que comparar, para esto se requiere mucha potencia de computo, ya sea con fórmulas o con macros en el caso de...

Esta macro descarta los números de serie repetidos al cargar los datos en el combobox, selecciona uno y te muestra la información en los textbox, checa la imagen. Esta es la macro Private Sub ComboBox1_Change() Set datos = Range("datos") serie =...

El error principal en tu macro esta en esta línea If pregunta = bvYes Then la instrucción correcta es If pregunta = 6 Then aunque ya resuelto este error tu código va a generar otro error en esta línea del código del listbox Set Rango =...

Por fórmulas lo veo medio difícil por el manejo que se le tiene que dar a los hidrantes duplicados tanto en fila como en columnas, lo más fácil es una macro que discrimine los duplicados, mira el ejemplo con una macro cada que la ejecutes te generara...

Puedes tratar con la siguiente fórmula =+SI(CONTAR.SI($A$4:$B$7,A4)>1,"Existe en la columna B","No existe")

¿Esto es lo que buscas?, si es así prueba la macro que esta abajo de esta imagen esta es la macro Sub transponer() Set datos = Range("a1").CurrentRegion With datos Areas = .Rows.Count / 4 Set resultados = .Columns(.Columns.Count + 3).Resize(Areas, 4)...

En VBA creas en el formulario un combobox y un listbox y añades el siguiente código y más abajo te muestro lo que el código hará Private Sub ComboBox1_Change() Set datos = Range("az9:bb20") nmes = UCase(ComboBox1.Value) ListBox1.Clear With datos For...

Prueba con esta macro y comentas Sub COPIAR_HOJAS() Set hc = Worksheets("CONSULTA"): Set hp = Worksheets("PEDIDO") Set DATOS = hc.Range("D6").CurrentRegion With DATOS HOJAS = WorksheetFunction.Quotient(.Rows.Count, 20) restos = .Rows.Count Mod 20 If...

De hecho tienes 4 formas de que la hoja se limpie automáticamente sin necesidad de la intervención del usuario, 2 por eventos beforeclose y Open y 2 por eventos del formulario, uno es asignando la activación del botón limpiar al botón de salida o...

Supongo que tendrás una lista similar a esta para graficar, la macro va recorriendo las fechas y borra el dato de la columna B si la fecha es 1 de mes. y esta es la macro. Sub borrar_1dia() Set datos = Range("a1").CurrentRegion With datos For i = 1...