Trocando o SE da planilha para IF (agora eu acho que expliquei melhor)

[SERGIO GUARARA]

Caros amigos, montei uma planilha de cotação utilizando o "se" para verificar o ganhador, mas agora já estou com mais de 7 fornecedores e não consigo mais usar o "se". alguém poderia me orientar como faço para passar para o VBA utilizando o "if". caso precise envio a planilha pelo email pois não sei como colocar ela aqui no forum a disposição.

=(SE(F5=D5;F$3;SE(G5=D5;G$3;SE(H5=D5;H$3;SE(I5=D5;I$3;SE(J5=D5;J$3;SE(K5=D5;K$3;SE(L5=D5;L$3;SE(M5=D5;M$3)))))))

esse é o comando que estou querendo passar para o if, para poder aumentar o numero de fornecedores.

na coluna "D" eu tenho um comando MINIMO para localizar o menor preço

e na linha "3" tem os nomes dos fornecedores

assim que ele acha o menor preço ele coloca o nome do fornecedor pra mim.

Logo apos vem essa macro para colorir a celula de acordo com o fornecedor para facilitar a visualização

CODE

Private Sub Worksheet_Change(ByVal Target As Range)

Dim currentcell As Range

Const col = "E" 'Altere para a coluna desejada

Application.ScreenUpdating = False

For Each currentcell In Range(col & "1:" & col & ActiveSheet.Cells(Rows.Count, col).End(xlUp).Row)

With currentcell

.Font.ColorIndex = 0

Select Case UCase(currentcell)

Case "GARCIA"

.Interior.ColorIndex = 4

Case "ALIAR"

.Interior.ColorIndex = 27

Case "DECMINAS"

.Interior.ColorIndex = 28

Case "SOMAMIX"

.Interior.ColorIndex = 45

Case "UP SIDE"

.Interior.ColorIndex = 40

Case "MEGA"

.Interior.ColorIndex = 39

Case "MINASMIX"

.Interior.ColorIndex = 20

Case "ALIANÇA"

.Interior.ColorIndex = 46

Case "FALSO"

.Interior.ColorIndex = 3

End Select

End With

Next currentcell

End Sub

o que eu realmente queria era acabar com o SE e colocar o IF se possivel tudo na mesma macro.

será que deu pra entender?

Editado Junho 5, 2010 por SERGIO GUARARA
Removido Caixa Alta do Título

[JoséA]

Veja uma referência:

Ultrapassando os limites da função SE

Editado Maio 26, 2010 por JoséA

[SERGIO GUARARA]

Veja uma referência:

Ultrapassando os limites da função SE

Valeu...mas não é o que eu quero

obrigado

Editado Junho 5, 2010 por SERGIO GUARARA

[JoséA]

Valeu...eu acho que vai resolver

obrigado

Estando ao nosso alcance disponha.

[SERGIO GUARARA]

=(SE(F5=D5;F$3;SE(G5=D5;G$3;SE(H5=D5;H$3;SE(I5=D5;I$3;SE(J5=D5;J$3;SE(K5=D5;K$3;SE(L5=D5;L$3;SE(M5=D5;M$3)))))))

esse é o comando que estou querendo passar para o if, para poder aumentar o numero de fornecedores.

na coluna "D" eu tenho um comando MINIMO para localizar o menor preço

e na linha "3" tem os nomes dos fornecedores

assim que ele acha o menor preço ele coloca o nome do fornecedor pra mim.

Logo apos vem essa macro para colorir a celula de acordo com o fornecedor para facilitar a visualização

Private Sub Worksheet_Change(ByVal Target As Range)
Dim currentcell As Range
Const col = "E" 'Altere para a coluna desejada

Application.ScreenUpdating = False

For Each currentcell In Range(col & "1:" & col & ActiveSheet.Cells(Rows.Count, col).End(xlUp).Row)
With currentcell
    .Font.ColorIndex = 0
     Select Case UCase(currentcell)
            Case "GARCIA"
            .Interior.ColorIndex = 4
            Case "ALIAR"
            .Interior.ColorIndex = 27
            Case "DECMINAS"
            .Interior.ColorIndex = 28
            Case "SOMAMIX"
            .Interior.ColorIndex = 45
            Case "UP SIDE"
            .Interior.ColorIndex = 40
            Case "MEGA"
            .Interior.ColorIndex = 39
            Case "MINASMIX"
            .Interior.ColorIndex = 20
            Case "ALIANÇA"
            .Interior.ColorIndex = 46
            Case "FALSO"
            .Interior.ColorIndex = 3
    End Select
End With
Next currentcell

End Sub

o que eu realmente queria era acabar com o SE e colocar o IF se possivel tudo na mesma macro.

será que deu pra entender?

Editado Junho 4, 2010 por kuroi
Adicionar tag CODE