Jau, fiquei em duvida quando diz "que qdo mudarem os numeros as linhas abaixo mudam automaticamente", e "de A1 ate I1 sendo que estes n trocam a formula"
Veja que no link que indiquei, a rotina percorre os dados ja digitados e lista os Pares e Impares.
Segue um ajuste para o modelo que postou, mas estou levando em conta que os dados já estão digitados, então copie e cole a rotina e associe a um Botão e rode.
Adaptação do exemplo em :
http://www.saberexcel.com.br/index.php/ ... erador-mod
Private Sub Separa_Par_e_Impar()
Dim i As Long
Dim x As Long
Dim sNum
Dim sLInPar 'Linha PAR
Dim sLinImpar 'Linha IMPAR
Dim wsPlan As Worksheet
x = 2
Set wsPlan = Sheets("Planilha1")
sLInPar = 6
sColPar = 1
sLinImpar = 10
sColImpar = 1
With wsPlan
'Conta as Colunas preenchidas
Coluna = .Cells(1, Cells.Columns.Count).End(xlToLeft).Column
For i = 1 To Coluna
'Armazena o numero e verifica
sNum = Cells(x, i).Value
If sNum Mod 2 = 0 Then
'Numeros Pares
Cells(sLInPar, sColPar).Value = sNum
sColPar = sColPar + 1
Else
'Numeros Impares
Cells(sLinImpar, sColImpar).Value = sNum
sColImpar = sColImpar + 1
End If
Next i
End With
End Sub
Se não for desta forma, detalhe melhor, os dados a serem consultados são gerados atraves de formulas ? ou serão digitados um por um. Se digitados a verificação será instantanea ? poderá ter numeros repetidos ?
[]s
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 31/01/2016 1:18 pm