Notifications
Clear all

Transpor dados de linha para coluna

9 Posts
1 Usuários
0 Reactions
2,286 Visualizações
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Amigos

Podem me ajudar

Tenho um arquivo, que quando é exportado sempre fica concentrado na coluna A
Eu precisaria transpor as informações contidas nos campos “ID” e “Registration_Date” para a sheet “Dados” ontem tem os respectivos campos para gravar as informações.
O arquivo sempre terá a mesma estrutura de dados. Precisaria que sempre que aparece as informações de ID e Registration_Date fosse copiado para a planilha Dados.

Por favor podem me ajudar

 
Postado : 29/06/2011 1:15 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Meio difícil de entender essa sua planilha cheia de códigos.

Mas é só você selecionar a linha, copiar.

Ir onde você quer, colar especial, marcar a opção transpor.

 
Postado : 29/06/2011 1:37 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Olá
isso mesmo..
eu quero selecionar somente o dados da linha ID e do registration date;
Eu fiz isso mas fica inviavel..serão muitas linhas
Existe algum código que faça isso?

 
Postado : 29/06/2011 1:41 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Pesquise sobre a função =TRANSPOR()
Agora estou sem tempo pra explicar ou tentar fazer sua plan.

 
Postado : 29/06/2011 2:28 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Vc que que isso seja automatico.
Tipo via VBA?

 
Postado : 29/06/2011 3:15 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Olá Dersão blz!

Isso mesmo via VBA

ja pesquisei sobre a função transpor..mas nada deu certo rssssss

Sera q tem como fazer?

como vc disse..penando igual boi bandido rsss

 
Postado : 29/06/2011 3:24 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

arquivo xls

 
Postado : 29/06/2011 4:03 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 


Veja se a rotina abaixo retorna a lista como esperado.
Analise alguns registros para se certificar que ID e data são correspondentes...
Em caso de erro ou inconsistência, favor reportar.

Sub IdRegDate()

Dim lin As Long
Dim i As Long
Dim j As Long
Dim ws As Worksheet

Set ws = Sheets("Usuarios")
i = 1
j = ws.Range("A1048576").End(xlUp).Row
lin = 2

Do While i <= j
If Left(ws.Cells(i, 1), 2) = "id" Then
Cells(lin, 1) = Mid(ws.Cells(i, 1), Application.WorksheetFunction.Search(":", ws.Cells(i, 1), 1) + 2, 20)
i = i + 2
Cells(lin, 2) = Mid(ws.Cells(i, 1), Application.WorksheetFunction.Search(":", ws.Cells(i, 1), 1) + 3, 10)
lin = lin + 1
i = i + 1
End If
i = i + 1
Loop

End Sub

 
Postado : 29/06/2011 4:28 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

muito obrigado a todos
deu muito certo!!

vcs sao D+++++

 
Postado : 29/06/2011 4:54 pm