James Bond

Prueba con esta macro Option Base 1 Sub generar_meses() Set hg = Worksheets("generado") Set datos = Range("a1").CurrentRegion With datos suma = WorksheetFunction.Sum(.Cells(2, 3).Resize(.Rows.Count - 1, 1)) ReDim matriz(suma, 4) Set destino =...

este es el resultado de la formula =SI(IGUAL(C2,C1)=FALSO,D2,B1+D2)

Este es el resultado de la macro y esta es la macro Private Sub TextBox2_AfterUpdate() fi = CDate(TextBox1.Text) ff = CDate(TextBox2.Text) dias = ff - fi horas = dias * 24 minutos = horas * 60 segundos = minutos * 60 hora = (horas Mod 24) - 1 minutos...

Checa las extensiones no todas son soportadas por VBA por ejemplo las extensiones PNG y TIFF no se pueden cargar.

Esta es la macro solo tienes que poner un botón de comando en la hoja y añadirle esta macro. Sub encontrar_y_poner_en_negritas() Set datos = Range("a1").CurrentRegion With datos For i = 1 To .Rows.Count celda = .Cells(i, 1) posicion =...

Prueba con esta macro, te coloca la fórmula sin importar cuantas filas agregues o quites . Sub formular() Set datos = Range("a3").CurrentRegion datos.Cells(2, 1).Resize(datos.Rows.Count - 1, 1).Formula = "=b4-c4" End Sub

Usa esta fórmula para convertir los números a textos =texto(b2,"0"), luego copias y pegas (botón derecho del ratón, pegado especial, valores) en la misma columna como valores, borras la columna original y ordenas lo que te quede en forma ascendente,...

Prueba con esta macro Sub compara() Set h2 = Worksheets("hoja2") Set h3 = Worksheets("hoja3") Set datos = Range("a2").CurrentRegion Set datos2 = h2.Range("a2").CurrentRegion With datos2 .Sort key1:=h2.Range(.Columns(.Columns.Count).Address),...

Prueba esta macro te crea una lista de duplicados 'Sub buscar_duplicados() 'Dim unicos As New Collection ' 'Set datos = Range("a1").CurrentRegion ' 'With datos ' Set dup = .Columns(.Columns.Count + 2).Resize(1, 2) ' filas = .Rows.Count ' ' X = 1 '...

En tu código tienes la respuesta solo vas agregando en esa línea las hojas que no quieras que aparezcan if h.Name <> ActiveSheet.Name or ucase(h.Name) <> "AUXILIAR" Then