TB Fonseca

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

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

Obrigado pela ajuda!

Galera, estou com um problemão!

Ontem estava usando meu xps e reparei q ele começou a dar umas travadas. Reiniciei o note e agora ele aparece uma tela tentando corrigir a inicialização. Ela procura por erro, mas não encontra nada e reinicia, aí aparece de novo esta tela, procura por erro e nada, e assim por diante. Nem no modo de segurança ele reinicia.

Ele chegou segunda pra mim... não é possivel q ele vai me deixar na mão logo no primeiro fds...

Vê se vocês podem me ajudar.

Meu xps chegou ontem e comecei a instalar os meus programas nele. Instalei também o GTA IV, mas quando jogo ele começa a dar umas travadinhas... No começo, nem rodava na configuração mínima, mas descobri que era aquele "velho problema" da placa de vídeo que já vi que muitos tiveram com o mesmo note. Entrei no site da nvidia e baixei um software mais atualizado. Rodou, mas dando essas travadas, e nem diminuindo a resolução do jogo as travadas paravam.

O meu xps tem:

* i7- 2670QM (2.2GHz, Turbo Boost 2.0 de até 3.1Ghz, 6Mb Cache, 8 Threads)

* Memória 8GB, Dual Channel DDR3, 1333MHz (2x4Gb)

* Placa de vídeo NVIDIA® GeForce® GT540M 2GB

* Disco Rígido 1TB, SATA (5400 RPM)

Acredito que seja uma configuração que dê pra rodar no full.

Espero que me ajudem.