Stack Overflow en español Asked by Yeye727 on December 12, 2020
En una hoja "jennifer-cronograma-3" tengo los datos y La idea es que en la Hoja1 copie la fecha, país y mantenimiento. En la hoja1 debe sumar los valores Si la fecha y el país ya están.
adjunto el código de la macro. En la hoja1 copia los valores que cumplen la condición, pero no he podido hacer que haga la suma de acuerdo a lo que se necesita.
Sub mM()
Dim fechaM As Date
Dim paisM As String
Dim ultimaFila As Long
Dim ultimaFilaHoja1 As Long
Dim contador As Long
Dim fecha1 As Date
Dim fechaToFind As Date
Dim result As Double
ultimaFila = Sheets("jennifer-cronograma-3").Range("B" & Rows.count).End(xlUp).Row
If ultimaFila < 4 Then
Exit Sub
End If
For contador = 4 To ultimaFila
If IsDate(Sheets("jennifer-cronograma-3").Cells(contador, 5)) = True And Sheets("jennifer-cronograma-3").Cells(contador, 4) <> "" Then
'mtto
fechaM = Sheets("jennifer-cronograma-3").Cells(contador, 5)
paisM = Sheets("jennifer-cronograma-3").Cells(contador, 4)
'm = Sheets("jennifer-cronograma-3").Cells(contador, 1)
ultimaFilaHoja1 = Sheets("Hoja1").Range("B" & Rows.count).End(xlUp).Row
If IsNumeric(Sheets("jennifer-cronograma-3").Cells(contador, 1)) = True Then
resultado = resultado + Sheets("jennifer-cronograma-3").Cells(contador, 1)
Sheets("Hoja1").Cells(ultimaFilaHoja1 + 1, 1) = fechaM
Sheets("Hoja1").Cells(ultimaFilaHoja1 + 1, 2) = paisM
Sheets("Hoja1").Cells(ultimaFilaHoja1 + 1, 3) = resultado
Else
Sheets("Hoja1").Cells(ultimaFilaHoja1 + 1, 3) = 0
End If
End If
Next contador
End Sub
Get help from others!
Recent Questions
Recent Answers
© 2024 TransWikia.com. All rights reserved. Sites we Love: PCI Database, UKBizDB, Menu Kuliner, Sharing RPP