quinta-feira, maio 05, 2005

Função "SE" com 30 ou mais condições (argumentos)

"Basta sermos simples para sermos ricos em nossos atos!" (E.S.P.)
----------

=VALOR(SE(A1="";1;"")&SE(A2="";2;"")&SE(A3="";3;"")&SE(A4="";4;"")&SE(A5="";5;"")&SE(A6="";6;"")&SE(A7="";7;"")&SE(A8="";8;"")&SE(A9="";9;"")&SE(A10="";10;"")&SE(A11="";11;"")&SE(A12="";12;"")&SE(A13="";13;"")&SE(A14="";14;"")&SE(A15="";15;"")&SE(A16="";16;"")&SE(A17="";17;"")&SE(A18="";18;"")&SE(A19="";19;"")&SE(A20="";20;"")&SE(A21="";21;"")&SE(A22="";22;"")&SE(A23="";23;"")&SE(A24="";24;"")&SE(A25="";25;"")&SE(A26="";26;"")&SE(A27="";27;"")&SE(A28="";28;"")&SE(A29="";29;"")&SE(A30="";30;""))

----------
Maiores esclarecimentos, acesse o link que está no título deste post !

Encontrar valores não repetidos em um intervalo

"Basta sermos simples para sermos ricos em nossos atos!" (E.S.P.)
----------

Sub NãoRepetem()
'
'Autor: Eneias dos Santos Pedroso
'
For p = 1 To 4 '4 linhas
For q = 1 To 2 '2 colunas
n = Application.WorksheetFunction.CountIf([A1:B4], Cells(p, q))
'Onde há: [A1:B4], poderá mudar
If n = 1 Then MsgBox "O valor " & Cells(p, q) & " está em: " & Cells(p, q).Address
Next q: Next p
End Sub

----------
Maiores esclarecimentos, acesse o link que está no título deste post !