Kleitonkaza

Obrigado pela ajuda @Basole
Fiz alguns teste sem modificações na escrita, mas vou fazer outros aindas para verificar, pois percebi que ele abre, le e fecha todos os arquivos contidos na pasta que seleciono, gera uma aba nova na planilha que estou usando mas não registra os valores da celula H515 em lista nesta aba nova....ficando apenas uma aba nova vazia...

vou dar uma olhada com mais calma amanhã e ver o que ocorre novamente....assim também posto a planilha aqui...

 

De todo modo muito obrigado!

Olá!

Sou pouco leigo no assunto, gostaria de uma ajuda com VBA
Tenho um pasta (diretorio) fixa onde salvo diversas subpastas, cada um uma com um titulo numerado, onde dentro destas fica salvo um arquivo excel xlsm com dados de orçamento,

Já consegui uma macro onde eu listo o nome de todas as pasta existente neste diretorio e salvo em uma outra planilha especifica, porém estou tentando fazer a seguinte situação:

que a macro copie o valor da celula especifica de cada arquivo excel e salve nesta planilha especifica, as planilhas de orçamentos são iguais logo o valor sempre será na mesma celula, mudando somente o nome de cada planilha e cada pasta que ela se encontra,

 

em Resumo para melhor entendimento, de maneira manual eu tenho uma planilha de controle onde, eu vou nesta pasta que constam todas as subpastas de orçamentos, copio todos os nomes e colo nesta planilha de controle, após isto eu abro cada subpasta de orçamento xlsm e abro cada arquivo e copio o valor da celula H515 e colo nesta planilha de controle ao lado do respectivo nome...

 

poderiam me auxiliar nesta execução, por gentileza ?

 

att

 

Kleiton

 

 

Pessoal, 
Estou quase solucionando meu problemas, falta-me um detalhe, para então juntar todas as macros e chegar onde quero, que seria a primeira mensagem postada,
o que preciso agora é o seguinte,
como mencionado acima estou inserindo uma macro ao qual inseri uma formula Somase, porém esta formula possível seleções variáveis conforme a quantidade de linhas, porém o que me acontece é que eu consigo inserir a formula com as variável corretamente, porém, preciso congelar a formula em determinada parte, exemplo =SOMASE($C$28:$C$31;C28;$D$28:$D$31), ficando livre apenas a parte central da formula ;C28;
ate gravei uma macro para verificar se tem algo errado, mas o que me acontece que a formula congela uma parte como eu preciso e outra nao congela corretamente o que deixa uma parte variando conforme copia e cola na linha abaixo, exemplo =SOMASE($C$28:$C31;C28;$D$28:$D31)
como podem observar na parte C28:C31 foi congelado corretamente apenas a parte C28 ficando $C$28 ja a parte C31 ficou C$31, gostaria que ficasse $C$28:$C$31 como mencionado, assim acontece na terceira parte da formula D28:D31,

Resumo a formula inserida fica =SOMASE($C$28:$C31;C28;$D$28:$D31), porém preciso que ela fique assim =SOMASE($C$28:$C$31;C28;$D$28:$D$13)
onde esta grifado em amarelo é onde esta o que acontece e o preciso que aconteça

a macro esta da seguinte forma

Sub Formula_somase()

Dim Lin As Long, Sin As Long, y As Long
Lin = 28 'primeira linha a ser verificada
Sin = 30
y = 1


Do While Not IsEmpty(Range("C" & Lin))
Lin = Lin + 1
Sin = Sin + 1
y = y + 1
Loop
MsgBox "A primeira linha vazia coluna C é a linha: " & Lin


Cells(28, 10).FormulaR1C1 = "=SUMIF(R28C3:R[" & Lin - Sin + y & "]C3,RC[-7],R28C4:R[" & Lin - Sin + y & "]C4)"

End Sub

Bom desde ja agradeço a atenção!

Obrigado pelo retorno,

Neste caso preciso repetir os itens, pois, em uma outra aba espelhada ira aparecer os itens e suas quantidades parciais, porém na folha de rosto não poderá se repetir,

Estou quase conseguindo algo para minha planilha, porém, estou em outro empasse, parece algo bobo mas estou com dificuldade em um vba, caso eu consiga resolver este vba irei juntar e finalmente finalizar o que preciso,

Segue a duvida que me falta

 

Sub Inserir_formula()
    Range("J28").Select
     y = ActiveCell.Range("D29").End(xlDown).Value
   
   ActiveCell.FormulaR1C1 = "=SUMIF(R28C3:R[" & y & "]C3,RC[-7],R28C4:R[" & y & "]C4)"
  End Sub

 

O que acontece, preciso inserir esta formula de Somase, mas o que acontece uma posição é fixa, mas a outra é variavel, que seria a ultima célula preenchida da coluna D29, porém quando executo esta vba ela nao grava a posição da ultima celula preenchida para inserir na formula,

a formula estará inserida na celula J28, mas precisa selecionar a Celula D28 ate a ultima preenchida continuamente, ou seja, apareceu a primeira célula vazia não conta,

 

Tirei um print para entenderem melhor o que preciso

Se notarem no MATERIAL PRODUTO 01, la constam um produto repetido 3 vezes, onde eu precisaria de uma macro para somar os valores deste produto apenas neste subitem e deletar as copias, mas sem interferir no MATERIAL PRODUTO 02 que esta acim....

Desculpe o transtorno, mas tenho pouco conhecimento em VBA e macros excel.....e realmente preciso que isto seja feito com uma macro, pois, tenho muitas outras que executam na planilha e inserem estes itens

 

muito obrigado

 

Boa tarde a todos,

Estou com dificuldades com macros no excel,

tenho uma planilha ao qual é referente a orçamentos de itens,

terei um item com nome do produto orçado em uma aba, logo abaixo na coluna B terá os códigos de cada item, na coluna ao lado o nome do item desse código e na outro coluna do lado a quantidade deste item, assim terei uma lista de talvez 10 itens que compõe o produto,

isto estou inserindo com VBA, quando preciso lançar outro item faço o mesmo processo e este é lançado a baixo do produto ja lançado,

 

minha dificuldade é a seguinte, enquanto estou lançando os itens no VBA, sempre tenho alguns itens específicos que preciso lança-los repetidas vezes só que com valores diferentes, pois estes sao copiados automaticamente para outra aba, mas na aba principalmente onde mostra o orçamento dos produtos nao se pode repetir o mesmo item dentro de um produto, logo ele precisa ser lançado uma vez e somado,

 

Exemplo, o produto A ja esta lançado com seus itens,  o produto B em vermelho, lancei como mostrado mas esta repetindo o item 1, esta errado, em verde o Produto B esta correto, somei  o item 1 e deletei a repetição. Porém preciso fazer isto manualmente, sei que existe maneira de usar do proprio excel, porém preciso de uma macro para fazer isto quando finalizo um VBA que lança os itens de cada produto.

 

Produto A

item 1 /  item especifico do tipo 1 / 5x

item 2 / item especifico do tipo 2 / 1x

item 3 / item especifico do tipo 3 / 6x

 

Produto B (ultimo produto lançado, esta repetido, ou seja, errado)

item 1 /  item especifico do tipo 1 / 5x

item 1 / item especifico do tipo 1 / 1x

item 5 / item especifico do tipo 5 / 6x

 

Produto B (ultimo produto lançado, esta correto, somou o item 1 e deletou o repetido)

item 1 /  item especifico do tipo 1 / 6x

item 5 / item especifico do tipo 5 / 6x

 

 

Obrigado a todos!