About Me
Com tecnologia do Blogger.
Seguidores
Estatisticas
2009-01-20
231: VBA - Application.Min e ActiveCell.Offset.
3:35 da tarde |
Publicada por
JRod - PORTUGAL |
Editar mensagem
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:
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
Subscrever:
Mensagens (Atom)