Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Mesclar Colunas
 
Notifications
Clear all

Mesclar Colunas

 
2024 - VBA & Macros
4 Posts
3 Usuários
0 Reactions
1,090 Visualizações
RSS
 Laeoli
(@laeoli)
Posts: 85
Estimable Member
Topic starter
 

Boa Noite!

Caros especialistas, tenho o code abaixo no qual desejo mesclar as linhas da coluna 3 com as linhas da coluna 4 de forma automatica, porém nada aconteceu. Seria possivel transpor estas colunas mescladas para a coluna 22 e manter a coluna 3 e 4 intactas?

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Integer
Dim Linha As Long
  
    Linha = 2
 For i = 200 To Linha
sheet.Range(Cells(i, 3), Cells(i, 4)).Merge
Next

End Sub

Grato!

 
Postado : 08/01/2014 6:27 pm
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 4063
Famed Member
 

Laeoli,

Boa Noite!

O código correto que faz o que você quer é esse abaixo:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim i As Integer
    Dim Linha As Long
     
    Linha = 2
    For i = 200 To Linha Step -1
        Sheets("Plan1").Range(Cells(i, 3), Cells(i, 4)).Merge
    Next

End Sub

Quanto a segunda parte, não entendi o que você quer fazer... Explique melhor!

 
Postado : 08/01/2014 8:53 pm
 Laeoli
(@laeoli)
Posts: 85
Estimable Member
Topic starter
 

Boa Noite!
Morel, mais uma vez muito obrigado!

coloquei o code num botão e funcionou beleza. Consegui juntar o texto da coluna 3 com a Coluna 4 que passei a exibi-los na coluna 1.

Valew!

 
Postado : 10/01/2014 5:08 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Caso seja necessário reabrir o tópico, o autor poderá enviar uma MP para um dos moderadores solicitando o desbloqueio.

 
Postado : 12/01/2014 6:13 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico