check um range

[fgarcia90 0]

Boas, sou novato em VBA e estou a tentar iniciar um programa no excel.

Na sheet2 tenho na coluna A uns utilizadores de windows e na coluna B outros

Coloquei o código num modulo e consigo obter o utilizador do windows mas não consigo obter os valores dos utilizadores e compara-los com o utilizador de windows para depois consoante atribuir como pessoal duma secção ou de outra.

Sub seccao()

Dim user As Variant

user = Environ("USERNAME")

Dim seccao_type As String

If user = Sheet2.Range("A1:A20").Value Then

seccao_type = "Tecnica"

ElseIf user = Sheet2.Range("B1:B20").Value Then

seccao_type = "Comercial"

End If

MsgBox seccao_type

End Sub

Obrigado

[jpaulino 97]

Não entendi ... não podes mostar um exempo?

[fgarcia90 0]

já me safei desta...

thanks