🎯MEUS CLIENTES ESTAVAM DEVENDO MUITO NO MEU PROVEDOR! RESOLVI COM ISSO...💰
Nessa live vou mostrar uma ferramenta que usei para reduzir minha inadimplência(devendo) no provedor, dos meus clientes. Chegando até a ficar menos de 5%. Assista e vou ensinar como você fazer imediatamente para começar a ter retorno.
Segue a programação que prometi:
Obs: O símbolo maior que não pode ficar na descrição então copie o código e coloque o simbolo na linha Do While contar maiorque= 30. Se tiver dúvida olhe na live.
Public Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As LongPtr)
Sub Retângulodecantosarredondados1_Clique()
Dim contar As Integer
contar = 1
Do While contar maiorque= 30
If Plan1.Range("E6").Value = "Sorteando..." Then
Plan1.Cells(6, 5) = "Sorteando."
ElseIf Plan1.Range("E6").Value = "Sorteando.." Then
Plan1.Cells(6, 5) = "Sorteando..."
Else
Plan1.Cells(6, 5) = "Sorteando.."
End If
contar = contar + 1
Sleep (150)
Loop
Plan2.Range("F1") = CInt(Int(20 * Rnd()) + 1)
codigo = Plan2.Range("F1").Value
resultado = Application.VLookup(codigo, Plan2.Range("A2:B21"), 2, False)
If Plan2.Cells(codigo + 1, 3) = "" Then
Plan1.Range("E6").Value = resultado
Plan2.Cells(codigo + 1, 3) = Plan1.Range("H19")
Else
Plan1.Range("E6").Value = "Não foi dessa vez..."
End If
End Sub