Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Macro Simples
 
Notifications
Clear all

Macro Simples

 
2024 - VBA & Macros
4 Posts
2 Usuários
0 Reactions
663 Visualizações
RSS
 arthurcd
(@arthurcd)
Posts: 69
Estimable Member
Topic starter
 

Bom Dia,
Então acho que é um problema simples de ser resolvido...é o seguinte
Aqui na primeira coluna tenho uma sequencia e na segunda tenho uma outra sequencia
1 2
2 5
3 7
4 9
5 10
6
7
8
9
10

eu gostaria que os números da segunda coluna se ajustassem com o da primeira para que fique assim

1
2 2
3
4
5 5
6
7 7
8
9 9
10 10

pois ultimamente estou fazendo isso na mão rs e são uns 500 números rs

podem me ajudar?

 
Postado : 03/11/2014 7:06 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia!!

Tente assim..

Sub AleVBA_13397()
    Dim rng1 As Range
    Set rng1 = Range([a1], Cells(Rows.Count, "A").End(xlUp))
    rng1.Offset(0, 1).Columns.Insert
    With rng1.Offset(0, 1)
        .FormulaR1C1 = _
        "=IF(ISNA(MATCH(RC[-1],C[1],0)),"""",INDEX(C[1],MATCH(RC[-1],C[1],0)))"
        .Value = .Value
    End With
    Columns(3).Delete
End Sub
 
Postado : 03/11/2014 7:29 am
 arthurcd
(@arthurcd)
Posts: 69
Estimable Member
Topic starter
 

Opaa certinho valeu cara rs

 
Postado : 03/11/2014 7:35 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia!!

Eu fico feliz, por ajuda, obrigado pelo retorno!! ;)

Att

 
Postado : 03/11/2014 7:42 am
Forum Jump:
  Tópico Anterior
Próximo Tópico