Eloize Teixeira

@Basole No privado.

@Basole Ta demorando muito, e são aproximadamente 1500 linhas.

 

Ainda está rodando, então não sei o resultado ao certo, posso lhe enviar a planilha?

Gente, boa tarde!

 

Faz muito tempo que não mexo com VBA e estou meio que com pressa, gostaria de saber se vocês podem ajudar.

 

Tenho uma planilha com duas abas.

 

Plan 1 = Preencher os dados correspondentes

Plan2 = Onde estão todos os dados

 

 

Plan 1

A B C D E 

1

2

3

 

 

Plan 2

A B                              C             D              E 

1 abacaxi                     ww         ww            ww

2 mamao                     ww          ww           ww 

3 xuxu                         ww           ww           ww 

4 joelho

5 computador

 

 

Ao apertar um botao da Plan 2, a Plan 1 se prencha com os dados correspondentes:

 

Plan1 

A B                              C             D              E 

1 abacaxi                     ww         ww            ww

2 mamao                     ww          ww           ww 

3 xuxu                         ww           ww           ww 

 

 

 

Poderiam me ajudar?

@Basole Como faz isso?

@Basole eu tinha feito isso antes mas não tinha funcionado.... mas deu certo.

Boa tarde,

 

Surgiu a necessidade de adicionar mais do que um anexo em minha macro para envio automático de e-mails no Excel, no entanto, procurei na internet e vi alguns fóruns dizendo para separar com ";", mas mesmo assim está dando erro. Será que poderiam me ajudar?:

 

 

Sub EmitirRelatorio()
Dim nome As String, HTMLBody As String
Dim OA As Object, OM As Object
Dim lMax As Long
Dim lLinhaAtual As Long

 

 

 

nome = Environ("USERPROFILE") & "\AppData\Local\Temp\" & Range("c1").Value & ".pdf";"G:\BRITA-CD_Itapevi\KPI Logistica\Expedição Pallets - Controle\Template\Padrão Minimo de Qualidade - Pallets Devolução.pdf"

 

 

 

    With OM
            .To = Sheets("Emitir Relatório").Range("E53").Value
            .CC = Sheets("Emitir Relatório").Range("E54").Value
            .Subject = "Relatório Pallets - " & "Período Acumulado Até: " & Sheets("Relat. Template").Range("D9")
            .HTMLBody = HTMLBody & "<br>"
            .Attachments.Add nome
            .Send
        End With

 

 

Erro:

 

(em anexo)

_____________

Não está dando certo dessa forma.

 

Arquivo 1: Environ("USERPROFILE") & "\AppData\Local\Temp\" & Range("c1").Value & ".pdf"

Arquivo 2: "G:\BRITA-CD_Itapevi\KPI Logistica\Expedição Pallets - Controle\Template\Padrão Minimo de Qualidade - Pallets Devolução.pdf"

 

 

É isso, se puderem me ajudar, agradecerei.

 

Att,

Elo

@osvaldomp Da onde você veio Osvaldo? Rs Você chega com umas soluções de outro mundo. Deu certo.

@DJunqueira Muito obrigada pela sua disposição em me ajudar. Visualizei e realmente pareceu correto, mas ela funcionaria para mais de 3000 linhas ?!

 

De qualquer forma obrigada! Arrasou.

@DJunqueira Muito obrigada. Desde já agradeço à atenção.

 

 

@DJunqueira 2013

 

Me ajuda?

 

Preciso muito muito.

@osvaldomp @Basole

Bom dia, 

 

Estou desenvolvendo uma macro para importar um grande número de dados para o SAP, porém ele precisa estar no layout correto.

 

Pois bem, os dados iniciais foram digitados em linhas e preciso que parte deles fique em coluna. (vide Exemplo planilha em anexo).

 

Escrevi um código levando em consideração exemplos de um colega, mas não consigo terminar a parte de não substituir alguns dados. (vide planilha)..

 

Abaixo o código.

 

Please, poderiam me ajudar? Urgente 

 

Sub Replicadados()
 Dim LRo As Long, LRd As Long, ND As Range
 
  Sheets("Teste").Range("A1") = "CABECA"
  Sheets("Teste").Range("A2") = "LINHA"
  Sheets("Teste").Range("B1") = "OBJECT"
  Sheets("Teste").Range("B2") = "TEXTTYPE"
  Sheets("Teste").Range("C1") = "IDH"
  Sheets("Teste").Range("C2") = "TEXT"
  Sheets("Teste").Range("D1") = "ORG"
  Sheets("Teste").Range("E1") = "CANAL"
  Sheets("Teste").Range("F1") = "SETOR"
  Sheets("Teste").Range("G1") = "TEXTID"
  Sheets("Teste").Range("H1") = "LANGUAGE"

  LRo = Cells(Rows.Count, 1).End(xlUp).Row: If LRo < 7 Then Exit Sub
  
  For Each ND In Range("A7:A" & LRo)
   With Sheets("Teste")
   
    LRd = .Cells(Rows.Count, 1).End(xlUp).Row
     .Cells(LRd + 1, 1) = "H"
     .Cells(LRd + 2, 1) = "I"
     .Cells(LRd + 1, 2) = Cells(ND.Row, "E")
     .Cells(LRd + 2, 2) = "*"
     .Cells(LRd + 1, 3) = Cells(ND.Row, "D")
     .Cells(LRd + 2, 3) = "Shelf Life (dias): " & Cells(ND.Row, "K")
     .Cells(LRd + 3, 3) = "Aceita Saldo?: " & Cells(ND.Row, "L")
     .Cells(LRd + 4, 3) = "Fornecimento completo?: " & Cells(ND.Row, "M")
     .Cells(LRd + 5, 3) = "Aceita NF do Mês ANTERIOR?: " & Cells(ND.Row, "N")
     .Cells(LRd + 6, 3) = "Qtd de dias que podemos antecipar a entrega: " & Cells(ND.Row, "O")
     .Cells(LRd + 7, 3) = "Necessita de agendamento?: " & Cells(ND.Row, "P")
     .Cells(LRd + 8, 3) = "Responsável agendamento: " & Cells(ND.Row, "Q")
     .Cells(LRd + 9, 3) = "Permitido agrupamento de pedidos x NF: " & Cells(ND.Row, "R")
     .Cells(LRd + 1, 4) = Cells(ND.Row, "A")
     .Cells(LRd + 1, 5) = Cells(ND.Row, "B")
     .Cells(LRd + 1, 6) = Cells(ND.Row, "C")
     .Cells(LRd + 1, 7) = "ZC01"
     .Cells(LRd + 1, 8) = "P"
    
   End With
  Next ND
End Sub

Como sai:

CABECA	OBJECT	IDH	ORG	CANAL	SETOR	TEXTID	LANGUAGE
LINHA	TEXTTYPE	TEXT					
H	Fulano	1140795	442	T3	38	ZC01	P
I	*	Shelf Life (dias): 45					
H	Ciclano	2196178	442	T3	38	ZC01	P
I	*	Shelf Life (dias): 30					
H	Extrafano	378141	442	T3	38	ZC01	P
I	*	Shelf Life (dias): 30					
		Aceita Saldo?: SIM					
		Fornecimento completo?: NÃO					
		Aceita NF do Mês ANTERIOR?: SIM					
		Qtd de dias que podemos antecipar a entrega: Não podemos antecipar (seguir Leatime)					
		Necessita de agendamento?: NÃO					
		Responsável agendamento: Sem agendamento					
		Permitido agrupamento de pedidos x NF: NÃO					

 

Como gostaria que saísse:

 

CABECA	OBJECT	IDH	ORG	CANAL	SETOR	TEXTID	LANGUAGE
LINHA	TEXTTYPE	TEXT					
H	Fulano	1140795	442	T3	38	ZC01	P
I	*	Shelf Life (dias): 45					
I	*	Aceita Saldo?: SIM					
I	*	Fornecimento completo?: NÃO					
I	*	Aceita NF do Mês ANTERIOR?: SIM					
I	*	Qtd de dias que podemos antecipar a entrega: Não podemos antecipar (seguir Leatime)					
I	*	Necessita de agendamento?: NÃO					
I	*	Responsável agendamento: Sem agendamento					
I	*	Permitido agrupamento de pedidos x NF: SIM					
H	Ciclano	2196178	442	T3	38	ZC01	P
I	*	Shelf Life (dias): 30					
I	*	Aceita Saldo?: SIM					
I	*	Fornecimento completo?: NÃO					
I	*	Aceita NF do Mês ANTERIOR?: SIM					
I	*	Qtd de dias que podemos antecipar a entrega: Não podemos antecipar (seguir Leatime)					
I	*	Necessita de agendamento?: NÃO					
I	*	Responsável agendamento: Sem agendamento					
I	*	Permitido agrupamento de pedidos x NF: SIM					
H	Extrafano	378141	442	T3	38	ZC01	P
I	*	Shelf Life (dias): 30					
I	*	Aceita Saldo?: SIM					
I	*	Fornecimento completo?: NÃO					
I	*	Aceita NF do Mês ANTERIOR?: SIM					
I	*	Qtd de dias que podemos antecipar a entrega: Não podemos antecipar (seguir Leatime)					
I	*	Necessita de agendamento?: NÃO					
I	*	Responsável agendamento: Sem agendamento					
I	*	Permitido agrupamento de pedidos x NF: NÃO					

 

Planilha Particularidades mod.ddd .zip

@osvaldomp Você sempre arrasa, dá até vergonha assim! kkk

Acho que dá pra usar um esquema parecido para resolver aquele meu outro problema, né? Para cada linha em uma aba, ele solta umas informações fixas preenchidas de acordo com a linha.

 

Estou certa disso?

Boa tarde Pessoal, tudo bem?

 

Estou aqui, quebrando minha cabeça, pois não consigo fazer rotina de Loop para Procurar uma informação em uma aba e adicionar em outra.

 

Gostaria que vocês pudessem me ajudar, a propósito, preciso:

 

A tabela "Data" jogo informações que sempre se atualizam;

A tabela "Disputas" copiam informações da tabela Data, porém, atualizo a "Data" todos os dias, mas não posso perder informações do que já coloquei na tabela Disputas (EX.: Acompanhamento e ect). O que preciso é: Ao adicionar o conteúdo na aba "Data", o botão Atualizar iria procurar na aba "Disputas" (Ambas na coluna A) se a informação já estava lá, se estivesse ignoraria, mas se não tivesse copiar algumas da mesma linha e de colunas diferentes da aba "Data" para aba "Disputas".

 

 

O codigo que tinha feito mas nãodeu certo

 

Sub Localizar()
Dim c As Range, LR As Long

LR = Sheets("Disputas").Cells(Rows.Count, 1).End(xlUp).Row
Do
  Set c = Sheets("Disputas").Range("A2:A" & LR).Find(Sheets("Data").Range("A:A").Value, LookIn:=xlValues, LookAt:=xlWhole)
   If Not c Is Nothing Then
    With Sheets("Disputas")
     c.Offset(0, 1).Value = Sheets("Data").Cells(x, "A")
     c.Offset(0, 2).Value = Sheets("Data").Cells(x, "B")
     c.Offset(0, 3).Value = Sheets("Data").Cells(x, "N")
     c.Offset(0, 4).Value = Sheets("Data").Cells(x, "D")
     c.Offset(0, 5).Value = Sheets("Data").Cells(x, "I")
     c.Offset(0, 6).Value = Sheets("Data").Cells(x, "J")
     End With
   End If
Loop
End Sub
 

Disputas Oficial_V01.xls

Rsrsrsrs Ok, vamos lá!

 

 

LINHATEXTTYPETEXT = É um cabeçario Fixo, na verdade na influencia em nada no processo de troca de layout dos dados;

H = Head ou Cabeçario; Fulano = Nome no Cliente (É possível encontrar na Aba "Atual" - Coluna D); 1140795 = Código do Cliente (É possível encontrar na Aba "Atual" - Coluna C); 0442 = Um código relevante também possível d encontra na aba Atual na coluna A, e que pode mudar de acordo com o cliente (Nome e Codigo, conforme citado acima)

 

Da coluna J a Q da Linha 1, é possível visualizar -> CS .. O que significa? É o setor responsável pelas informações das mesmas colunas só que da linha 2 (o que voce tambem tinha me perguntando da onde tiro a informação), que não deixa de ser uma informação fixa mas que deve ser repetida a cada novo cliente (nome, codigo e etc)

 

Tanto é que, na Aba Esperado o Cliente "Fulano" se repete várias vezes, e dependendo de como ele se repete existe o * (que deve permanecer). Agora se voce observar na coluna G, tem a informação ZC01, ZC02 até ZC05 .. ai inicia outro cliente (outra linha da aba Atual) e começa novamente ZC01, ZC02 ... etc as informações de cabeçalho se repetem, o que muda sao as informações (Coluna D - Aba Esperado) de acordo com o cabeçalho (Coluna C - Aba Esperado).

 

Ufa.

 

Espero ter conseguido clarear.

 

 

Bom eu estava escrevendo uma resenha aqui para lhe explicar, mas vai na do @osvaldomp que você brilha, sempre com coisas novas, né?! rs

 

Rsrsrs!

 

(Vou copiar este código pra mim também.. kkk )

 

Abraços

Sub Botão1_Clique()
Dim LR As Long

LR = Sheets("Plan2").Cells(Rows.Count, 1).End(xlUp).Row + 1
    
        Sheets("Plan2").Cells(LR, 1).Value = Sheets("Plan1").Range("C1").Value
        Sheets("Plan2").Cells(LR, 2).Value = Sheets("Plan1").Range("C2").Value
        Sheets("Plan2").Cells(LR, 3).Value = Sheets("Plan1").Range("B2").Value
        Sheets("Plan2").Cells(LR, 4).Value = Sheets("Plan1").Range("Q1").Value
        Sheets("Plan2").Cells(LR, 5).Value = Sheets("Plan1").Range("L1").Value
        
End Sub

@osvaldomp Oi osvaldo, a origem dos dados vem das informações que constam nas atuais.. os dados são os mesmo, eles só precisam ser colocados da forma "Esperado" ... preciso de um botão sei lá, porque são muita linha e preciso fazer em massa.

Bom dia a todos,

 

Estou com um probleminha, e embora saiba que seja possível resolver, não sei como começar a resolver, vide explicação em anexo da planilha (do que tenho e do que preciso):

 

 

Basicamente tenho planilhas e as informações de um código estão em linha e parte deles preciso em linhas e parte em colunas, para posteriormente eu transformar em texto e fazer importaÇão em outra sistema. Preciso de um código para fazer isso automático, pois são mais de 2000 linhas

 

 

Desde já, agradeço à atenção.

Planilha Modelo_Clube HardWare.xlsx

@Basole Dá o mesmo problema que a minha macro. 0 - Subscrito fora do intervalo

Falei errado é vínculo.. Ela está separada justamente porque pela quantidade de dados a ser processada + outros dados da erro na macro.. Tudo isso já foi analisado 

Estou tentando fazer uma gambiarra, porque tenho duas planilhas, sendo que uma tem.fórmula contse e somase utilizando hiperlink .. Acontece que dá erro se a planilha estiver fechada, e só quando abre funciona alterando as variáveis.. Ou seja , enquanto a planilha A estiver aberta, a B tem que estar também ( funcionando como banco de dados ) .. Então quando eu abro a A tem que abrir a B em oculto, e quando eu fechar a A a B também tem que fechar, mesmo estando oculta ...

Boa noite,

 

gostaria de abrir uma pasta de trabalho x via vba, mas forma oculta.. ou seja, nao vejo ela.. funciona como banco de dados ativo.

 

Utilizei a macro

Private Sub Workbook_Open()
Dim wb As Workbook
    Set wb = Workbooks.Open("C:\Users\teixeire\Desktop\OTD Data UpDate.xlsm")
        Windows(wb.Name).Visible = False
        
End Sub

.. mas da problema

 

Erro em tempo de Execução '9':

 

Subscrito fora do intervalo

 

 

Da erro na linha 

 

Windows(wb.Name).Visible = False

 

Boa tarde pessoal, estou ficando louca!~rS

 

Meu hiperlink estava funcionando perfeitamente entre Pasta de Trabalho distintas, porém, depois que eu fiz alguma coisa os valores só são atualizados quando as duas pastas de trabalho estão abertas, fora isso a célula fica com erro de #VALOR! .. 

 

Se abro atualiza o numero... 

 

Não pode ficar assim, tem que ao eu modar meus critérios, atualizar, mesmo com a Pasta de Trabalho fornecedora esteja fechada!

 

Me ajudem pelo amor de Deus.

 

@Basole Deu certo, muito obrigada!

Mas além do fórm tem que cancelar a prima sub chamada emailID .. porque se você clica e fecha o form, ele segue o resto do código .. Que no caso é a pergunta etc etc