Código1 feito na Visual Macro
Sub relatorio()
Dim produtos_vendidos As Long
Dim produtos_totais As Long
produtos_vendidos = WorksheetFunction.CountIf(Plan3.Columns("c"), "SIM")
produtos_totais = WorksheetFunction.CountA(Plan3.Columns("a")) - 1
UserForm1.txtotais.Value = produtos_totais
UserForm1.txvendidos.Value = produtos_vendidos
MsgBox "ANÁLISE REALIZADA !", vbInformation, ""
End Sub
Nenhum comentário:
Postar um comentário