Função Excel

[Frederico Batti 0]

Olá 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

[Armando Nogueira 0]

Olá 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

Olá

 

cara eu entendi isso do seu problema, veja se te ajuda....

 

linha = 1
   coluna = 1   

   '  Faço esse Loop até ele encontrar celula vazia.
   do while Worksheets("plan1").Cells(linha, coluna).Value <> ""
	 
	  ' Aqui colo os dados  lidos  na planilha 1 e colo na planilha 2.
	  Worksheets("plan2").Cells(linha, coluna) = Worksheets("plan1").Cells(linha, coluna).Value
	  ' incremento a linha e a coluna
	  linha = linha + 1
		  coluna = coluna + 1
   Loop

[]'s