Notifications
Clear all

Copiar e Inserir dados

21 Posts
2 Usuários
0 Reactions
3,566 Visualizações
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa Tarde,
Tenho uma planilha que faço calculo dos meus projetos. Ao final desses calculos, gera um total.

Gostaria de saber como posso copiar esses dados na parte inferior da mesma planilha, assim criando uma lista, com os mesmo.
Gostaria também que essa lista seja auto numerada.
Segue anexo a Plan.

 
Postado : 12/09/2013 9:04 am
(@wagner-morel-vidal-nobre)
Posts: 4063
Famed Member
 

eduardovidros,

Boa Tarde!

Baixei sua planilha mas confesso que não entendi bem qual é a sua demanda... Não seria apenas incluir na célula D41, por exemplo a fórmula "= D35 " e arrastar para as demais células (E41 a R41)?

 
Postado : 12/09/2013 9:54 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa tarde!!

Eduardo, por favor na próxima vez, poste seu arquivo compactado, leia as regras!!

Nossas Regras
viewtopic.php?f=7&t=203

Use a pesquisa do fórum!!
viewtopic.php?f=10&t=9143
viewtopic.php?f=10&t=9081
viewtopic.php?f=10&t=8695
viewtopic.php?f=10&t=8227
viewtopic.php?f=20&t=4086

Att

 
Postado : 12/09/2013 10:25 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa tarde, Naquela primeira parte, eu seleciono os itens e digo o que é largura ou altura (é feito um calculo automaticamente), na parte Ferragem, eu escolho o tipo e a quantidade a ser usada. Lá no total, no lado esquerdo, eu escrevo o nome do projeto.

Após isso eu quero inserir na lista de projetos. e depois a parte superior e apagada. Para eu criar um novo.

 
Postado : 12/09/2013 10:35 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Desculpe Alexandre

 
Postado : 12/09/2013 10:36 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Eu já olhei na pesquisa e não identifiquei o que eu quero.

Alguem me salve.

 
Postado : 13/09/2013 5:59 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Não sei se entendi a necessidade, mas experimente o código abaixo.

Sub Inserir()
Dim nLin As Integer
nLin = 41
Do While Cells(nLin, 1) <> ""
nLin = nLin + 1
Loop
Rows("35:35").Copy
Rows(nLin & ":" & nLin).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    Range("A41,A5:C19,A21:C35").ClearContents
End Sub
 
Postado : 13/09/2013 6:17 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

O que eu quero é copiar os itens da linha 35 e colar na linha 43. (onde esta o código, irei mudar para 1 coluna (gera cod. 1, 2, 3 ,4... acada inserção que eu faça)).
Como em um cadastro de clientes, assim que eu informo os dados, eles são inseridos em uma lista, gerando cod automaticamente.
No meu caso são os itens da linha 1 à serem inseridos na lista que começa na linha 45.
Grato

 
Postado : 13/09/2013 6:27 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

No meu caso são os itens da linha 35 à serem inseridos na lista que começa na linha 45.
Grato

 
Postado : 13/09/2013 6:30 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Continuo sem saber/entender, experimentou o código? faz o que deseja? está próximo? ou não?
Qto a linha, seu exemplo e 41, vc menciona 43 depois 45 então qual o correto.

 
Postado : 13/09/2013 7:17 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Segue nova explicação. Acho que vai ser de melhor entendimento.

 
Postado : 13/09/2013 8:56 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Alguem me ajuda ai!
Preciso muito disso.

 
Postado : 16/09/2013 8:48 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Alguem me ajuda ai!
Preciso muito disso.

Eduardo, não querendo ser chato, mas quando solicitamos ajuda em Foruns, temos deter em mente que as ajudas são voluntárias e dependem da disposição de tempo de cada colaborador, com isto nem sempre é possível termos respostas imediatas, ainda mais quando se tem duvidas na duvida postada, assim sendo jamais devemos depender dos Foruns para soluções imediatas que por ventura tenhamos prometido, e, tambem não devemos utilizar termos do tipo "Alguem me ajuda ai!", fica um pouco imperativo, como se os colaboradores fossem obrigados a responder, ainda mais que já está tendo ajuda sobre o caso, pode não se ter resolvido ainda, mas não se admite cobranças em Foruns.
Posso ter me excedido nesta resposta, por favor não me entenda mal, pode até comentar, mas peço a gentileza de ter um pouco mais de paciência.

Grato pela compreensão e sinta-se a vontade para colocar seus comentários, pode enviar por MP, assim não atrapalhamose nem tiramos o foco do bom andamento deste topico.

[]s

 
Postado : 16/09/2013 9:12 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Bom dia, não estou cobrando, só estou pedindo ajuda. Sei que é de boa vontade as ajudas do fórum. Enviei o comentário, pois já haviam se passado alguns dias e não queria que caísse no esquecimento. Mas de forma alguma cobrando soluções imediatas. Agradeço
Eu entendi seu comentário e respeito, sei que é complicado e que existem pessoas que não entendem o real motivo do fórum. Um Forte Abraço.

 
Postado : 17/09/2013 5:43 am
(@wagner-morel-vidal-nobre)
Posts: 4063
Famed Member
 

eduardovidros,

Bom Dia!

Não há necessidade de ter um botão para disparar a macro. Fiz de forma que, logo após digitar o endereço, a mesma é disparada automaticamente.

Veja se assim lhe atende.

 
Postado : 17/09/2013 6:59 am
Página 1 / 2