James Bond

Te muestro la pantalla con el resultado final y abajo de esta se encuentra la macro esta es la macro Sub copiar() Set datos = Range("i1").CurrentRegion Dim numeros As New Collection Dim textos As New Collection With datos For i = 1 To .Cells.Count...

Prueba esta macro y comentas Sub copiar_archivos() Set HA = ActiveWorkbook.Worksheets("layout") Set datos = HA.Range("A4").CurrentRegion X = Application.GetOpenFilename _ ("Excel Files (*.xlsx), *.xlsx", 2, "Abrir archivos", , True) If IsArray(X)...

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...