Pessoal fiz uma planilha usando vba q atraves de uma funcão ira preencher um textbox sempre q ela for aberta com um numero randomico entre 1.000.000, o problema é q estou abrindo a planilha e esta me trazendo o mesmo valor repetido
Private Sub Workbook_Open()
dim s as string
s = sorteia
textbox1.text = s
End Sub
Function sorteia() As String
Dim a As Long
Dim num As String
a = Int(Rnd * 100000)
num = CStr(a)
sorteia = num
End Function
o q esta errado nesse codigo q esta trazendo sempre o mesmo valor quando abro a planilha?
obrigado a todos pela ajuda