James Bond

Haz esta modificación a tu código For Columna = 1 To 4 If Columna = 3 Or Columna = 4 Then arrayItems(Cont, Columna) = CDate(.Cells(Linea, Columna).Value) Else arrayItems(Cont, Columna) = .Cells(Linea, Columna).Value End If Next Columna con eso debe bastar

Este es un ejemplo de lo que quieres la macro busca en las hojas 2 y 3 el numero 47 y los colorea de de verde y esta es la macro Sub PONER_ESTADO() Set HA = Worksheets("ALUMNO") Set HC = Worksheets("CONFIGURACION") Set ALUMNOS =...

Este es el resultado de la macro y esta es la macro Sub PONER_ESTADO() Set HA = Worksheets("ALUMNO") Set HC = Worksheets("CONFIGURACION") Set ALUMNOS = HA.Range("A2").CurrentRegion NOTA_APROB = HC.Range("G3") With ALUMNOS FILAS = .Rows.Count For I =...

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