Search

A carregar...

About Me

A minha fotografia
JRod - PORTUGAL
Microsoft [MVP] - Excel (10º ano consecutivo)
Ver o meu perfil completo
Com tecnologia do Blogger.

Seguidores

Estatisticas

Free Blog Counter

eXTReMe Tracker
Ocorreu um erro neste dispositivo
2009-01-20

Há dias, fizeram-me a seguinte pergunta (adaptada):


"O que preciso quando clico no comandButton, é que me forneça o menor valor da coluna C, mas em vez de aparecer só o valor 12.2 , apareça igualmente HE 100 AA, ou seja, o conteúdo correspondente na coluna B, na mesma linha."


Exemplo:

 

image

 

Resultado pretendido:

image

 

O Código (exemplo):

Private Sub CommandButton1_Click()
    Dim oRg As Range, iMin As Variant

    Set oRg = Range("C10:C100")

    'Para encontrar o valor mínimo
    iMin = Application.Min(oRg)

    'Apresenta o valor correspondente ao valor mínimo,
    'e na célula à esquerda, o conteúdo correspondente

    With Selection

        MsgBox "Valor encontrado: " & ActiveCell.Value & vbCrLf & _
        "Valor correspondente: " & ActiveCell.Offset(0, -1).Value

    End With

End Sub