Sheets("Hoja1").Activate

Range("A3:G43").Select

Row("Cuenta resultados").ClearContents

If Sheets.Count > 4 Then

    Range("C2").Entirecolumn.Select

    ActiveCell.FormulaR1C1 = "=SUM(R[1]C:R

End If

Libro1.Sheets("Balance"):= CountRows

 

 

La programación en VBA es la parte más compleja de Excel pero también es la que aporta más funcionalidad. Con un poco de código es posible automatizar prácticamente cualquier proceso que se esté haciendo de forma manual.

 

Programo para necesidades concretas de negocios, y muy puntualmente puedo llegar a dar formación sobre lenguaje VBA (Visual Basic for Applications).

 

Soy un experto totalmente contrastado en Macros. A lo largo de mis servicios Excel he programado aproximadamente unas 4.000 Macros para todo tipo de empresas y sectores.

 

 

 

 

 

​ 626 108 978

Sub actualizar_pestañas_ingresos()

Dim ingreso_total As Integer

f = 3

'bucle a hacer para cada cliente en la columna A de 'BBDD'

For i = 3 To 200

    Sheets("BBDD").Activate

    Cells(i, 1).Select

    nombre_act = Selection.Value

    Num_fechas_no_vacias = WorksheetFunction.CountA(Range("U" & i & ":BR

    'bucle para todas las pestañas

    For j = 1 To Sheets.Count

            If Sheets(j).Name = Sheets("BBDD").Cells(i, 13) Then

                nombre_col = Sheets("BBDD").Cells(i, 13)

                If nombre_col Like nombre_col2 Then

'Vuelve a archivo Xavi:

                For h = 1 To Num_fechas_no_vacias

                        fecha_a_poner = Sheets("BBDD").Cells(i, h +

                        ingreso_total = Sheets("BBDD").Cells(i, h + 20 +

                        ingreso_col = Sheets("BBDD").Cells(i, h + 20 + 300)

ingreso_yo = Sheets("BBDD").Cells(i, h + 20 + 350)

Sheets(nombre_col).Activate

   Cells(f, 1) = nombre_act

   Cells(f, 2) = fecha_a_poner

   Cells(f, 3) = ingreso_total

 

Llámame para exponerme tu necesidad y veremos si te puedo ayudar, sin compromiso alguno al:

Automatización de procesos a través de Macros