Notifications
Clear all

Preencher Tabela

8 Posts
3 Usuários
0 Reactions
1,328 Visualizações
(@dimorais)
Posts: 431
Reputable Member
Topic starter
 

Boa noite
Esse micro código funciona bacana mas não "entende" que a linha de referencia não é a linha nativa do Excel, o que fazer? :D

 
Postado : 12/07/2014 4:14 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite!!!

Se poder explicar mais uma vez... :?

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 12/07/2014 4:54 pm
(@edcronos)
Posts: 1006
Noble Member
 

acho que ele quer que a numeração que aparece no inicio da tabela seja considerada como linhas e a macro retorne os valores
mas apenas acho

e tbm não ficou claro que a numeração representa linhas reais da planilha
ou tem que ser feita uma busca em um outra tabela numerada

bem,
essa solução vou deixar para os mais experientes do fórum.
"isso de forum virou praticamente um vicio, vou tentar dar um tempo". mesmo pq tenho muito que aprender ainda...

Att.

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 : 12/07/2014 5:18 pm
(@dimorais)
Posts: 431
Reputable Member
Topic starter
 

O Edcronos tem razão duas vezes, quando afirma que: "quer que a numeração que aparece no inicio da tabela seja considerada como linhas e a macro retorne os valores". É exatamente isso, a macro toma por base a numeração das linhas nativas do Excel e na minha tabela, a numeração estar em desacordo com o numero das linhas do Excel.
Vamos imaginar que o Excel não tivesse numeração de linhas, então a macro ia tomar como numeração, o que estivesse na tabela, é isso.
Também penso em aposentar dos fóruns, dou muito trabalho pro pessoal e a mim mesmo. :oops:

 
Postado : 12/07/2014 6:50 pm
(@edcronos)
Posts: 1006
Noble Member
 

cara vc enrolou mais ainda...

O melhor seria vc postar uma planilha com "Dados" "valores fictícios"
a tabela
exemplo de onde estão os dados
para onde vai ser copiado
e como tem que ficar

--------------------------------------------------------------------------------------------------------------------

Off Topic

desculpa, eu não sei se vc trabalha em uma planilha só, ou são varias que tem que consegui soluções
Mas...
Vc tem o embolso dela's, com uma ideia final de como tem que ficar ??

se for uma planilha só, soluções independentes podem não casar adequadamente umas com as outras.
tbm tem o fato da leveza e velocidade com que ela processa os dados.

muitas ideias sem ter um projeto final planejado
pode levar vc a ficar igual a mim,

comecei apenas tendo uma vaga ideia do que quero, e sabendo apenas copiar e colar manualmente no excel.
e agora tenho uma planilha que faz um monte de coisa,

Está bastante rápida pq tentei estruturar e otimizar as macro e formulas para trabalharem o melhor que eu conseguia.
Mas que não consigo terminar.

e agora ela apenas está servindo para planejamento de jogos para um amigo. " e eu nem jogo"
"apenas estou colocando uma atualização online dos resultados"

Att.

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 : 13/07/2014 7:37 am
(@dimorais)
Posts: 431
Reputable Member
Topic starter
 

Edcronos, meu caso é parecido. Planilha simples no inicio e na medida que as necessidades aparecem, vai virando um monstro consumidora de recursos de tempo e intelectual. Mas tou finalizando, se ficar capenga, capenga vai ficar. :lol:
Vou postar a mesma plan, com os dois modos, o 1º funcionando normal e o 2º como esperava ficar. :D

 
Postado : 13/07/2014 8:29 am
(@edcronos)
Posts: 1006
Noble Member
 

veja bem,
pelo que entendi vc quer pular linhas para copiar os valores

Sheets("Plan1").Range("T2:AC2").Copy Destination:=Sheets("Plan1").Cells(Range("S2").Value + 4, 20)

Copy e Destination apenas vão copiar blocos inteiros e contínuos

no caso vc tem que fazer um loop para pular as linhas

algo como

Ld=5
for Lo=30 to 220 step 10
range(colunainicial & Ld , colunafinal & Ld ) = range(colunainicial & Lo , colunafinal & Lo )
ld=ld+1
next

Att.

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 : 13/07/2014 8:58 am
(@dimorais)
Posts: 431
Reputable Member
Topic starter
 

Ok. Vou tentar por k, implementar sua sugestão. :D

 
Postado : 13/07/2014 12:54 pm