Para los expertos en VBA, ¿cómo se escribe una suma de múltiples condiciones en una tabla usando código VBA?
Sub demo()
Atenuar SData como rango
Atenuar DData como rango
Atenuar RowSta mientras, RowLas mientras p> p>
Dim ColSta As Long, ColLas As Long
With Range("A1").CurrentRegion
RowSta = .Find( "Nombre ", , , xlPart).Fila 1
ColSta = .Find("Nombre", , , xlPart).Columna 2
RowLas = .Columns(1).Find (" ¿Total?", , , xlPart).Fila - 1
ColLas = .Find("Firma", , , xlPart).Columna - 3
Terminar con
Establecer DData = Range(Cells(RowSta, ColSta), Cells(RowSta, ColLas))
Establecer SData = DData.Offset(-1, 0)
Para i = RowSta To RowLas
Celdas(i, ColLas 2) = Application.SumProduct(SData, DData)
Establecer DData = DData.Offset(1, 0)
Siguiente i
Fin Sub