Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
Dim cAcumulaCheques As String Dim cAcumulaMonto As String Dim nMonto As Integer Dim nMontoCurrency As Currency Dim nSumaTotalMonto As Currency For I = 3 To wsSource.Cells(Rows.Count, "A").End(xlUp).Row If wsSource.Cells(I, 4).Value = "" Then GoTo Nexts Else If Val(wsSource.Cells(I, 1)) = Val(nDia) And Val(wsSource.Cells(I, 2)) = Val(nMes) And Val(wsSource.Cells(I, 3)) = Val(nAno) Then If Trim(wsSource.Cells(I, 15) <> "") Then cAcumulaCheques = Trim(wsSource.Cells(I, 15)) nMonto = CInt(wsSource.Cells(I, 16)) nMontoCurrency = Format(nMonto, "Currency") cAcumulaMonto = nMontoCurrency nSumaTotalMonto = (nSumaTotalMonto + nMonto) End If
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.