James Bond

Solo mediante una función personalizada o una macro, este es el resultado de la función y esta es la funcion Function Color(celda As Range) As Single Color = celda.Interior.ColorIndex End Function

Prueba esta macro Sub copia_duplicados() Dim funcion As WorksheetFunction Set datos = Range("a2:r150") Set funcion = WorksheetFunction Set h2 = Worksheets("hoja2") h2.Cells.Clear With datos r = .Rows.Count: c = .Columns.Count .Sort...

Prueba con esta macro solo cambia el A1 por la celda donde comiencen tus datos Sub concatenar() Set datos = Range("a1").CurrentRegion With datos r = .Rows.Count: c = .Columns.Count For i = 1 To r fila = .Rows(i) For j = 1 To c nombre = Trim(fila(1,...

Más bien es por la información, si tienes 250 hojas con 250 fotos más información en cada hoja hay te encargo lo pesado que ha de estar tu archivo y se pone peor si tu información tiene fórmulas, un archivo así ha de estar lentísimo !

Este es el resultado de la macro, en la hoja 2 en la celda F1 tecleas la cantidad de términos que quieras que sean copiadas y la macro te traerá la cantidad tecleada sin repeticionesy esta es la macro Sub copiar_aleatorios() Dim unicos As New...

Prueba con esta macro, primero cuenta todas las celdas que contenga IDLE y luego las que contengan IDLE/4G, luego quita efectúa una resta dejando solo la cantidad de celdas que contienen IDLE sin G4. Sub contar_filas() Set DATOS =...

Prueba este código Sub copiar() Set H1 = Worksheets("conciliacion") Set H2 = Worksheets("resumen") Set DATOS = H1.Range("h1").CurrentRegion With DATOS c = .Columns.Count: r = .Rows.Count Set DATOS = H1.Range("h1").Resize(r, 3) X = 1 For I = 1 To r...

Prueba esta macro Sub copiar_columnas() Set H1 = Worksheets("hoja1") H1.Select cuenta = Sheets.Count Set DATOS = H1.Range("g9").Resize(13, cuenta - 1) x = 1 For Each hoja In Worksheets nhoja = UCase(hoja.Name) If nhoja <> "HOJA1" Then...

No dices si la macro la estas corriendo dentro del formulario o a través de un formulario standard, las programaciones en ambos casos son diferentes, la que te paso es a través de un botón dentro del formulario Private Sub CommandButton1_Click()...

Este es el resultado de la macro asi queda en la hoja 2 y esta es la macro Private Sub CommandButton1_Click() Set h2 = Worksheets("hoja2") matriz = ListBox1.List filas = UBound(matriz) columnas = ListBox1.ColumnCount - 1 Total = filas * columnas Set...