ROTINA EXCEL

[Frederico Batti]

Ola Pessoal

Gostaria de ajuda no seguinte caso

Estou fazendo uma rotina no excel para copiar dados de uma tabela do excel e gravar em outra, da seguinte forma através de um botão

ENQUANTO

COND: tiver algo na celula

AÇÃO: pular para proxima linha

SE NÃO

COND: celula vazia

AÇÃO: grava (cola) dados na linha

Obrigado desde já,

Att,

Frederico

[Guest --Vagner --]

Talvez seja disto que você precise!

Muito simples!

Para testar, siga os seguintes procedimentos:

1 - Abrir uma nova "Pasta de Trabalho".

2 - Na "Primeira Planilha", deverá ser preenchida a "Tabela 1" com os endereços e seus respectivos dados:

1A = Papagaio

2A = Jacaré

3A = Tamanduá

4A = Tilápia

5A = Capivara

Como "Tabela 2" será usada a coluna "B"

3 - Na "Primeira Planilha", criar o "Botão de Comando".

4 - Ná "Àrea de Código" da "Primeira Planilha", colar o seguinte código:

Public Sub Teste()

If Selection.Count <> 1 Or Selection.Column <> 2 Then Exit Sub

If Selection.Value = "" Then

Cells(Selection.Row, 2) = Cells(Selection.Row, 1)

Else

Cells(Selection.Row + 1, 2).Select

End If

End Sub

5 - Atribuir a macro ao "Botão de Comando"

6 - Testando:

Selecione a célula "1B" e clique no botão de comando.