Mesclar Colunas

2024 - VBA & Macros

Post Recente por Fernando Fernandes 11 anos atrás

4 Posts

3 Usuários

0 Reactions

1,108 Visualizações

RSS

Laeoli

(@laeoli)

Posts: 85

Trusted 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: 0

Illustrious 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!

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

Postado : 08/01/2014 8:53 pm