Perfil MVP
Autenticação
Online
Nenhum
VBA - Application.Min e ActiveCell.Offset.
Terça, 20 Janeiro 2009 16:39 | 
Escrito por JRod | 
| 
| 
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."
Resultado pretendido:
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