Raiz Quadrada em VBA

[Samz]

Olá, alguém poderia me ajudar com uma lógica para achar a raiz quadrada de determinado numero.

Option ExplicitDim num As StringDim raiz As DoubleSub selecao()Cells.Range("a1").Select 'Seleciona a Celula "a1"'num = InputBox("Informe o numero que deseja verificar a raiz quadrada")If (num Mod 2 = 0) ThenActiveCell.Offset(0, 0).ActivateActiveCell = raizEnd Sub

[osmarindy]

Boa tarde Samz,
você precisa do código mesmo, não pode usar a função Sqr(numero)?

[Basole]

Essa tambem nao conhecia. Usando a dica do @osmarindy ,ficaria assim:

Option ExplicitDim num As StringDim raiz As DoubleSub selecao()    Cells.Range("a1").Activate    'Seleciona a Celula "a1"'    num = InputBox("Informe o numero que deseja verificar a raiz quadrada")    'If (num Mod 2 = 0) Then    If num <> "" Then        raiz = Sqr(num)        ActiveCell.Offset(0, 0).Activate        ActiveCell = raiz    End IfEnd Sub

abx.

[Samz]

Obrigado galera! resolvido.