Notifications
Clear all

PREENCHER LINHA

3 Posts
2 Usuários
0 Reactions
894 Visualizações
(@celri_33)
Posts: 0
Estimable Member
Topic starter
 

Bom dia galera,

Ve se podem me ajudar:

Preciso de uma macro que faça o preenchimento de uma linha com dados de outra planilha.

Observações:

(Exemplo)

Na planilha 1 temos dodos em vertical e horizontal e preciso que esses dados sejam lançados na planilha 2 em uma unica linha.

ele ira buscar na planilha 1 linha 3 o que tiver nessa linha colunas:A,B,C,D... quando acabar o que tiver nessa linha ( ou seja quando achar uma célula em branco) automaticamente ele terá que ir buscar na linha 4 o que tiver nela, acabando vai para linha 5 e assim sucessivamente até a linha 384

Tem alguma Macro que resolva esta situação???

 
Postado : 08/08/2014 7:34 am
(@edcronos)
Posts: 1006
Noble Member
 

não sei se entendi direito mas...

Sub colunalinha()

cf = 1
For l = 3 To 384
c = 1
Do Until Cells(l, c).Value2 = ""

Sheets("Plan2").Cells(3, cf).Value2 = Cells(l, c).Value2
cf = cf + 1

c = c + 1
Loop

Next
End Sub

Somente é impossíveis até que alguém faça
A logica está presa na irracionalidade humana, e morta nos que se consideram donos da verdade.

"ALGUM MODERADOR ME EXPULSE DO FÓRUM POR FAVOR"

 
Postado : 08/08/2014 9:19 am
(@celri_33)
Posts: 0
Estimable Member
Topic starter
 

Oi amigo Edcronos, perfeito, funcionou perfeitamente, muito obrigado mesmo!!!

 
Postado : 08/08/2014 9:26 am