Sub TCC ()
Dim Trabalho as String
Dim aprovado as Boolean
If Trabalho = aprovado Then
Call CervejaparaTodos
End If
End Sub
Sub CervejaparaTodos()
Dim Cerveja as Long
Dim Membro as ForumMember
Dim bebado as Boolean
For Each Membro in ForumMembros
If Not Membro = bebado Then
Membro = cerveja + 1
End If
Next
End Sub
Lembre-se de AGRADECER aos que te ajudaram, e de marcar o tópico como [Resolvido]
Gente que cuida de gente.
Gilmar
Postado : 22/08/2015 11:15 am