Obtener saldo actualizado con macro
Quiero extraer los saldos de todas las hojas de acuerdo como están los conceptos
en la hoja de RESUMEN_KALIZ y se muestren en la Columna C5, y que la macro sirva que
al momento de agregar un nuevo saldo al momento de ejecutar la macro se actualice con
el nuevo saldo
Ejemplo en la hoja CEMENTOS el saldo final es el que esta en la columna H9, si al
momento de agregar nueva info y el saldo aumenta una fila más H10 es el que debe
aparecer en la hoja de RESUMEN_KALIZ
en las de más hojas debe aplicar lo mismo, y que la macro sirva para N de hojas existentes
Estoy usando esta macro:
Sub ExtraerValores()
Dim i As Long
Dim BuscarHoja As Boolean
On Error Resume Next
BuscarHoja = (Worksheets("RESUMEN_KALIZ").Name <> "")
If BuscarHoja = False Then
Sheet.Add before:=Sheets(1)
End If
ActiveSheet.Name = "RESUMEN_KALIZ"
Sheets("RESUMEN_KALIZ").Activate
Sheets("RESUMEN_KALIZ").Cells.Select
Selection.ClearContents
For i = 1 To Sheets.Count
Sheets("RESUMEN_KALIZ").Range("B" & i).Value = Sheets(i).Range("D4").Value
Sheets("RESUMEN_KALIZ").Range("C" & i).Value = Sheets(i).Range("H5").Value
Sheets("RESUMEN_KALIZ").Range("D" & i).Value = Sheets(i).Name
Next i
Sheets("RESUMEN_KALIZ").Range("A3").Value = "No"
Sheets("RESUMEN_KALIZ").Range("B3").Value = "Nombre Cliente"
Sheets("RESUMEN_KALIZ").Range("C3").Value = "Saldo"
Sheets("RESUMEN_KALIZ").Range("D3").Value = "Hoja"
Sheets("RESUMEN_KALIZ").Range("E3").Value = "Observaciones"
End Sub
Aquí esta el ejercicio:
