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!