James Bond

Lo más rápido es una fórmula como esta, introduces un valor en las celdas de la columna A de la hoja2 y la fórmula buscara en la hoja1 el dato si esta pondrá existe en la columna B =+SI(CONTAR.SI(Hoja1!$A1:$Z$10000,Hoja2!A1)>0,"existe","no existe")

Con esto rellenas los espacios vacíos como ves es mucho menos código del que estas usando Private Sub ComboBox1_Change() Range("b2").CurrentRegion.Replace What:="", Replacement:=ComboBox1.Value End Sub lo que hace es que lee todo la informacion de la...

Pues mira yo lo hice así y lo copia bien como puedes ver y esta es la macro que use Sub test() Range("b2").CurrentRegion.NumberFormat = "00" Range("b2"). CurrentRegion. Copy Workbooks("libro2"). Sheets("hoja1"). Range("b2"). PasteSpecial End Sub

Prueba esta macro sub horarios() dim unicos as new collection set claves = range("a1").currentregion with claves filas = .rows.count for i = 1 to .cells.count clave = .cells(i) if isnumeric(clave) then on error resume next if clave <> empty then...

Este es el resultado de la macro y esta es la macro Sub insertarysumar() Set DATOS = Range("a1").CurrentRegion With DATOS FILAS = .Rows.Count COL = .Columns.Count Set DATOS = .Rows(3).Resize(FILAS - 2, COL) DATOS.Select Set TABLA = .Columns(COL +...

Lo más fácil es que conviertas tu tabla a una tabla de excel, menu, insertar, tabla, le das un nombre (donde dice tabla1) por ejemplo datos y ya con eso tecleas la fórmula en otra celda por ejemplo contar(datos), en automático en cuanto agregues una...

Primero tienes que diferenciar entre un command button (control activex) y un boton1 (control de formulario), ambos aunque parecen iguales tienen propiedades diferentes, en los button no existe la propiedad para bloquear la macro, por eso no te...

Prueba con quitar duplicados en la imagen puedes ver que los datos originales están en la columna B, los copias a la columna E, seleccionas del menu quitar duplicados y en las opciones eliges Fecha, después copias la columna E y F hacia la columna H,...

Prueba con esta macro MsgBox nombreHoja & " ya existe" Else MsgBox nombreHoja & " creada" End If On Error Resume Next Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = "detalle" On Error GoTo 0 Sheets("hoja1").Select End Sub Function...

Explica como llegas al 20 paso a paso, la imagen esta bien solo que no me queda claro como con caracteres alfanuméricos llegas a ese numero