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!
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
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!
Caso seja necessário reabrir o tópico, o autor poderá enviar uma MP para um dos moderadores solicitando o desbloqueio.
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel