EXCEL - VBA - Inserir e Mesclar Células

[TB Fonseca]

Boa Tarde,

 

Estou tendo uma certa dificuldade em uma linha do código.
 

A minha intenção é criar uma nova linha e, nessa linha, selecionar da coluna A até a coluna I e mesclar. Poderia colocar logo o numero da linha no código, porém, acima deste código vem um outro código com a mesma função, mas com a linha já discriminada. 

 

Quero que a planilha me mostre a relação de entrada e saída de dinheiro, ficando a entrada em cima e a saída em baixo na planilha. A medida que uma nova linha é inserida na entrada, automaticamente o que vem abaixo também desce uma linha, por isso que não posso colocar um numero da linha exata neste código que é referente à saída. A entrada é ativada por outro botão.

 

Segue código abaixo e sei que ele possui algumas linhas redundantes.

 

Private Sub CommandButton1_Click()Worksheets("Relatório de Caixa").SelectDim Linha As StringDim Coluna As StringDim Celula1 As StringDim Celula2 As StringRange("a1048576").End(xlUp).Offset(1, 0).SelectLinha = ActiveCell.RowColuna = ActiveCell.ColumnCells(Linha + 1, Coluna + 0).SelectRows(Linha + 1).InsertActiveCell.SelectLinha = ActiveCell.RowColuna = ActiveCell.ColumnCelula1 = ActiveCellCells(Linha, Coluna + 8).SelectActiveCell.SelectCelula2 = ActiveCellRange("Celula1:Celula2").MergeUnload Me

O erro está na linha "Range("Celula1:Celula2").Merge", sei que esta é a maneira errada de selecionar as células, mas não consigo encontrar outra maneira.

 

Obrigado pela ajuda!

[Visitante]

Olá, Fonseca.

 

Experimente susbstituir estas linhas

ActiveCell.SelectLinha = ActiveCell.RowColuna = ActiveCell.ColumnCelula1 = ActiveCellCells(Linha, Coluna + 8).SelectActiveCell.SelectCelula2 = ActiveCellRange("Celula1:Celula2").Merge

xxx

xxx

 

por esta

ActiveCell.Resize(, 9).Merge

 

[TB Fonseca]

Deu certo! Muito obrigado!!! Sou novo em vba e tem muita coisa que não conheço ainda.