Como sumar Valores en un xml

[Banguala]

Buenos días tengo un XML con los datos del "CFDI factura en México" del cual necesito calcular las Base de Impuestos Tasa 0% para el IVA. El dato se encuentra en el Nodo de concepto, en el mismo por cada concepto se repite el cfdi:Traslado con el atributo Base que es donde esté el valor que requiero que sume siempre que se cumpla la condición que el Campo "Impuesto = "002" y que  que "TasaoCuota = 0.000000" agradezco mucho si me pueden ayudar con este calculo.  

 

</

 

[isidrod]

hola @Banguala sube un ejemplo  para poner ahí la formula, pero si te funciona así ahí esta 

[Banguala]

Hace 13 minutos , isidrod dijo:

hola @Banguala sube un ejemplo  para poner ahí la formula, pero si te funciona así ahí esta 

 

[isidrod]

 ahí esta  formula para 

=SI(F3="002",(C3*0.16),"")

saludos isidro

[Banguala]

Hola Isidrod, perdón no me explique correctamente. Necesito obtener los datos mediante programación en vba ya que utilizo el Excel como medio para concentrar los datos que traen varios XML de facturas, o sea desde Excel busco una carpeta donde guardo los XML de facturas y de ellos traigo campos específicos como es fecha de emisión, subtotal, etc en todos los casos son valores exactos de un campo sin embargo el valor de la Base para impuestos se repite por cada concepto de la factura por lo que necesito buscar en cada concepto el valor de la Base cuando los campos sean Impuesto= 002 y TasaOCuota = 0 te dejo acá un XML para que puedas ver lo que digo y de antemano muchas gracias

0AD413D0-0AC7-4EC4-8641-EFCF2C4048F4@1000000000XX0.xml

[isidrod]

como comprenderás los xml no tienen un solo formato  te dejo estos link

https://lerh13.blogspot.com/2018/11/vba-excel-macro-para-leer-xml-cfdi-33-y.html

https://ayudaexcel.com/foro/topic/39035-importar-datos-de-xml-cfdi-33-a-excel/

'https://www.extendoffice.com
Sub From_XML_To_XL()
'UpdatebyKutoolsforExcel20151214
    Dim xWb As Workbook
    Dim xSWb As Workbook
    Dim xStrPath As String
    Dim xFileDialog As FileDialog
    Dim xFile As String
    Dim xCount As Long
    
     With Application
.ScreenUpdating = False
.Calculation = xlCalculationManual
    On Error GoTo ErrHandler
    With Worksheets("Hoja1").Select
    
    
    Set xFileDialog = Application.FileDialog(msoFileDialogFolderPicker)
    xFileDialog.AllowMultiSelect = False
    xFileDialog.Title = "Select a folder [Kutools for Excel]"
    If xFileDialog.Show = -1 Then
        xStrPath = xFileDialog.SelectedItems(1)
    End If
    If xStrPath = "" Then Exit Sub
    Application.ScreenUpdating = False
    Set xSWb = ThisWorkbook
    xCount = 1
    xFile = Dir(xStrPath & "\*.xml")
    Do While xFile <> ""
        Set xWb = Workbooks.OpenXML(xStrPath & "\" & xFile)
        xWb.Sheets(1).UsedRange.Copy xSWb.Sheets(1).Cells(xCount, 1)
        xWb.Close False
        xCount = xSWb.Sheets(1).UsedRange.Rows.Count + 2
        xFile = Dir()
    Loop
   
  End With
   .ScreenUpdating = True
.Calculation = xlCalculationAutomatic
End With
    xSWb.Save
    Exit Sub
ErrHandler:

    MsgBox "no files xml", , "Kutools for Excel"
End Sub

de este código no tengo exactamente el link pero de esa pagina lo baje

[digitalboy]

 

Hola @Banguala

Me parece que lo que buscas es algo similar a esto:

Aun que ya @isidrod te ha dado algunas pistas por si gustas inplementarlo por cuenta propia.

Saludos!