Jump to content

[Excel-VBA]Comparar valor


nando_ice
 Share

Recommended Posts

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
Link to comment
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
 Share

×
×
  • 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.