Macro que identifique una celda y sume los datos
Quiero realizar una macro que identifique las celdas con la palabra costo y me sume en la última fila los datos debajo de la palabra costo, por ejemplo:
costo costo costo
1 3 2
1 2 2
2 5 4
1 Respuesta
Respuesta de Isaac Reyes
2
Esteban, intenta con esto.
Sub subCosto()
Dim lngC As Long, lngF As Long
lngC = 1 'Inicializar columna del recorrido'
lngF = Cells(1, lngC).CurrentRegion.Rows.Count + 1 'Obtener fila en que irán los resultados'
'Recorrer la fila 1 hasta encontrar una celda vacía'
Do Until (Cells(1, lngC).Value = "")
'Evaluar si el valor de la celda es costo'
If LCase(Cells(1, lngC).Value) = "costo" Then
'Agregar la fórmula para la suma'
Cells(lngF, lngC).Formula = "=SUM(" & Range(Cells(2, lngC), Cells(lngF - 1, lngC)).Address & ")"
End If
lngC = lngC + 1
Loop
End SubS@lu2
