Cecilio Pérez Maqueda

Sub quiebres() Dim wb As Workbook: Set wb = ThisWorkbook Dim Ho As Worksheet: Set Ho = wb.Sheets("Resumen") Dim Hd As Worksheet: Set Hd = wb.Sheets("Registro") Dim ucel 'ucel = Hd.Range("A" & Rows.Count).End(xlUp).Row + 1 'For i = 2 To Ho.Range("A" &...

Suponiendo que inicias en C43 tus datos y en la D43 deseas obtener tus datos con formato de fecha sería con la siguiente fórmula =IZQUIERDA(C43,1+SI(LARGO(C43)=8,1,0))&"/"&IZQUIERDA(DERECHA(C43,6),2)&"/"&DERECHA(C43,4)

De haberte entendido seria algo así, Nota:Adapta los nombres de tus hojas a los datos reales Sub quieres() 'by Cecilio Perez maqueda Dim wb As Workbook: Set wb = ThisWorkbook Dim Ho As Worksheet: Set Ho = wb.Sheets("Hoja1") Dim Hd As Worksheet: Set...

Sin macros sería así Selecciona la columna completa Formato de celdas Personalizada En donde dice tipo Escribes los 13 ceros 0000000000000 ¿O necesitas macros?

Sub quiebres() Dim wb As Workbook: Set wb = ThisWorkbook Dim Ho As Worksheet: Set Ho = wb.Sheets("Gastos") Dim Ho1 As Worksheet: Set Ho1 = wb.Sheets("Ingresos") Dim Hd As Worksheet: Set Hd = wb.Sheets("Balance general") Dim ucel 'ucel = Hd.Range("A"...

¿Y no te sirve lo del formato condicional? Selecciona tu columna donde se ubican los datos duplicados En el menú Inicio Ubica Formato condicional Resaltar reglas de celdas Duplicar valores Aplicar formato a las celdas que contienen: Duplicar Valores...

prueba con esto antes de fila=2 Application.ScreenUpdating = False y antes de end sub Application.ScreenUpdating = True

para que sume solo las celdas que contiene 10 es con =SUMAPRODUCTO(--(B9:F9={10}))*10

¿Quieres eliminar datos repetidos de la columna "A"?

Posicionate en A2 Prueba con esto Y con esta regla en formato condicional Editar regla de formato Utilice una fórmula que determine la celdas para aplicar formato Dar formato a los valores donde esta fórmula sea verdadera Escribes =SI(Y(A2=""),...