Jump to content
Sign in to follow this  
nando_ice

[Excel-VBA]Comparar valor

Recommended Posts

nando_ice

Boas dia!

Como posso fazer a comparação de uma valor de uma célula com uma coluna, devolvendo o valor maior ou igual?

Exemplo:

Valor célula: 45

Tabela

13

32

53

78

89

O valor devolver seria: 53

Cumprimentos

Share this post


Link to post
Share on other sites
acao

boas

em vba:

fazes um ciclo for para percorrer as linhas da coluna e depois fazes a comparação da celula com a celula da culuna, se for => gravas em variavel ou celula.

só não percebi porque é o 53 e não 53,78,89.

cumps

acao

Share this post


Link to post
Share on other sites
nando_ice

Eu só preciso de "1" valor que seja maior ou igual. Se o valor da célula fosse 32 eu queria que a pesquisa devolvesse 32.

Eu estava a pensar num ciclo while.

Edited by nando_ice

Share this post


Link to post
Share on other sites
acao

boas

deixo um exemplo com um ciclo foreach , adicione um botao numa folha e cole o codigo, preencha a coluna "B" e a celula A1 e corra o cod.

Option Explicit

Private Sub CommandButton1_Click()
Dim vCol As Range
Dim vLinha As Range
Set vCol = Range("B1:B20") 'carregar a variavel com os dados da coluna
For Each vLinha In vCol.Rows
If Range("A1").Value <= vLinha Then  'range("A1") é a celula a comparar
	Range("C1").Value = vLinha		'	 C1 é a celula a receber os dados comparados.
	Exit For
End If
Next
End Sub

este retorna o primeiro valor valor => que o valor comparado.

Option Explicit

Private Sub CommandButton1_Click()
Dim vCol As Range
Dim vLinha As Range
Dim vValor As Long
Dim cont As Byte
Set vCol = Range("B1:B20") 'carregar a variavel com os dados da coluna
For Each vLinha In vCol.Rows
If Range("A1").Value <= vLinha Then 'range("A1") é a celula a comparar
 If cont = 0 Then
 vValor = vLinha
 cont = 1
 Else
	 If vValor > vLinha Then
		 vValor = vLinha
	 End If
 End If
End If
Next
Range("C1").Value = vValor	 '	 C1 é a celula a receber os dados comparados.
End Sub

aqui retorna o valor <= ao valor comparado

cumps

acao

Edited by acao

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.