Rafael Borges P.

Consegui, muito obrigado, estarei verificando e já já te dou um feedeback. adicionado 11 minutos depois Carambaaaaa @LaerteB você é o CARA, muito obrigado, funcionou perfeitamente e era isso que eu queria.... Estou muito feliz!!! Obrigado mais uma vez... Abraços, Rafael

@LaerteB Boa tarde laerte, poderia me enviar o documento sem ser em rar? poderia ser normal?

Boa tarde Laerte, Esse documento é fictício. Tenho um documento no excel, e preciso que na Plan. "Gerar documento" só copie os dados das células A2:H2 e cole no A3:H3 SE na Plan. (Cadastro) tiver valor na célula A3 e assim por diante (o limite é ate A6, não passará disso). Ex: Tendo valor na A4 (Cadastro), ta autorizada a cópia dos dados da A2:H2 (Gerar documento) para A4:H4 (Gerar documento) e etc. o código que to utilizando por enquanto: 'Copiar e colar dados da Gerar Documento Sheets("GERAR DOCUMENTO").Select Range("A2:H2").Select Selection.Copy Sheets("GERAR DOCUMENTO").Select Range("A3:H3").Select ActiveSheet.Paste Sheets("GERAR DOCUMENTO").Select Range("A2:H2").Select Selection.Copy Sheets("GERAR DOCUMENTO").Select Range("A4:H4").Select ActiveSheet.Paste Sheets("GERAR DOCUMENTO").Select Range("A2:H2").Select Selection.Copy Sheets("GERAR DOCUMENTO").Select Range("A5:H5").Select ActiveSheet.Paste Sheets("GERAR DOCUMENTO").Select Range("A2:H2").Select Selection.Copy Sheets("GERAR DOCUMENTO").Select Range("A6:H46").Select ActiveSheet.Paste Application.CutCopyMode = False Pensei então que pode haver outra opção, usando uma condição que faça o seguinte: 'Se a célula A3 da planilha cadastro tiver valor.Então 'vai apagar a linha 3 da plan "gerar documento" 'Se a célula A4 da planilha cadastro tiver valor.Então 'vai apagar a linha 4 da plan "gerar documento" 'Se a célula A5 da planilha cadastro tiver valor.Então 'vai apagar a linha 5 da plan "gerar documento" 'Se a célula A6 da planilha cadastro tiver valor.Então 'vai apagar a linha 6 da plan "gerar documento" Mas talvez seja considerável ficar com a primeira opção, pois penso que a segunda será mais trabalhosa, uma vez que ( vai copiar e colar dos dados e depois irá ter que ficar excluindo caso não tenha valor na(s) célula(s) A3 ou A4 ou A5 ou A6. @LaerteB

'Se a coluna A3 da planilha cadastro tiver valor.Então 'vai apagar a linha 3 da plan "gerar documento" 'Se a coluna A4 da planilha cadastro tiver valor.Então 'vai apagar a linha 4 da plan "gerar documento" 'Se a coluna A5 da planilha cadastro tiver valor.Então 'vai apagar a linha 5 da plan "gerar documento" 'Se a coluna A6 da planilha cadastro tiver valor.Então 'vai apagar a linha 6 da plan "gerar documento"

ACHEI ESSE CÓDIGO, MAS NÃO CONSEGUI ADAPTAR PARA O QUE QUERO. DEU ERRO Public Sub CORRETO() ' Inicio do Programa Dim Y, X As Integer Range("B15").Select ' Seleciona a começa a correr a celula a partir desta posição Do ' Inicio do LOOP If IsEmpty(ActiveCell) = False Then ' Verifica se posição tem ou não texto ActiveCell.Offset(1, 0).Select End If ' Fim de IF Loop Until IsEmpty(ActiveCell) = True ' Se posição inicial não tem texto efetuar comandos X = InputBox("Digite Quantidade:") ' Apresenta caixa de texto para inserir valor de X. Sheets("Plan2").Select ' Vai para plan2. Range("A2").Clear ' Limpa a celula A2 Range("A2").Value = X ' Insere novo valor Range("A2 : C2").Select ' Na posição A1 Selection.Copy ' Copia o valor que estiver na celula Sheets("Plan1").Select ' Busca plan1 ActiveSheet.Paste ' Cola o valor da primeira planilha

Boa tarde André, Tenho um documento no excel, onde faço cadastro de alguns funcionários, queria que na plan (Gerar documento) só copiasse os dados das colunas A2:H2 e colassem até A6:H6, SE (IF) na plan (Cadastro) tivesse algum valor na coluna A3 ou A4 ou A5 ou A6. Consegui explicar direitinho? Eu preciso que só copiei na plan (Gerar documento) os dados da coluna A2:H2 e colem no A3:H3 se na plan (Cadastro) tivesse algum valor na coluna A3 e assim por diante. Segue em anexo o documento. To usando o seguinte código: 'Copiar e colar dados do Gerar Documento Sheets("GERAR DOCUMENTO").Select Range("A2:H2").Select Selection.Copy Sheets("GERAR DOCUMENTO").Select Range("A3:H3").Select ActiveSheet.Paste Sheets("GERAR DOCUMENTO").Select Range("A2:H2").Select Selection.Copy Sheets("GERAR DOCUMENTO").Select Range("A4:H4").Select ActiveSheet.Paste Sheets("GERAR DOCUMENTO").Select Range("A2:H2").Select Selection.Copy Sheets("GERAR DOCUMENTO").Select Range("A5:H5").Select ActiveSheet.Paste Sheets("GERAR DOCUMENTO").Select Range("A2:H2").Select Selection.Copy Sheets("GERAR DOCUMENTO").Select Range("A6:H6").Select ActiveSheet.Paste Application.CutCopyMode = False Mas preciso que entre essa condição que pedi nele..... Teste_Excel.zip

Bom dia amigos, mais uma vez venho pedir pela ajuda de vocês. Alguém poderia me ajudar? até agora não consegui solucionar o problema.

Boa tarde amigos, tenho um documento no excel que possui algumas planilhas... Estou usando vba e através de um código eu gero dados de duas planilhas para o Word. A primeira planilha é o cadastro de alguns funcionários, já na segunda é a continuação( onde eu coloco local e etc) Estive com problemas na hora de gerar os dados porque como a primeira planilha as vezes possuía mais de um cadastro, ou seja, usou mais de uma linha. Ai na segunda planilha, como tudo é o mesmo local fica só uma linha. Ao VBA fazer a leitura só passava o primeiro funcionário que cadastrei. Eu queria que então ao clicar no botão, ele copiasse as informações do local ( segunda planilha) e colasse na quantidade de linhas que foram criadas na primeira planilha... Segue os documentos em anexo. Alguém poderia me ajudar?  Teste_Excel.zip Teste_Word.zip

Bom dia, Consegui resolver esta questão!!

Boa tarde Pessoal, estou com um documento que passa dados para um tabela do excel, eu queria que quando esse dados do excel fosse m para a tabela do word, eles ficassem centralizados.. uso o seguinte código para transferir: 'Passando para a primeira tabela do Word wdDoc.Tables(1).Rows.Add 'Adicionando 1 linha à tabela ThisWorkbook.Sheets("CADASTRO").Range("A" & i & ":D" & i).Copy wdDoc.Range(wdDoc.Tables(1).Cell(i, 1).Range.Start, wdDoc.Tables(1).Cell(i, 4).Range.End).PasteAndFormat (22) Queria que ao criar essa linha para colocar os dados, os dados ficassem centralizados. ME AJUDEM PF!!!

Alguém poderia me ajudar? adicionado 41 minutos depois Sei que terá que usar a função IF e ELSE, mas como eu usarei? adicionado 41 minutos depois me ajudem pf

Segue o do excel. Teste_Excel.zip

Boa tarde amigos, Preciso de uma ajuda. Em anexo segue dois documentos, queria que ao cadastrar alguns funcionários no excel, eu apertasse o botão gerar documento e automaticamente abrisse o documento do word. Já coloquei os códigos na macro, mas ta dando por algum motivo algum erro, e tem outra coisa, geralmente sempre será a mesma solicitação, o mesmo supervisor e o mesmo gerente para o pedido. Por isso o código está desse jeito, mas caso ocorra algum imprevisto e seja um pedido com mais de uma solicitação, será supervisor, gerente e a solicitação diferente, então preciso que se tiver diferente inclua uma coluna chamada “Funcionário solicitado” nas tabelas (Solicitação- supervisor-gerente) para ser preenchido o nome do funcionário, para saber de quem é a solicitação e etc... To perdido, não sei o que eu faço, terá que usar condições tipo “SE” na macro né? porque só será criado a coluna “funcionário solicitado”, se houver Supervisores e Gerentes diferentes, caso seja igual, não precisara dessas condições e permanece apenas uma vez no word o nome do gerente e supervisor para não se repetir diversas vezes. Aguardo ajuda.Teste_Excel.zipTeste_Word.zip

alguem???

Compreendi, e como ficaria? poderia me dar essa força?

Show de bola Patropi, muito obrigado, Mas não teria como, ao eu digitar Rafael, já aparecesse todos os "rafael" sem eu precisar clicar na seta para gerar a lista?

Segue em anexo um documento que criei rapidinho, o que falta agora é eu saber como faço para ao digitar na Plan1 o nome do funcionário, me ajuda a auto complementar com o nome do mesmo. Testando.zip

Tentei aplicar e não consegui.

Bom dia, eu já consegui fazer a lista suspensa. Porém eu preciso que ao digitar o nome, tenha um auto preenchimento. Ex: se eu colocar "R" apareça só os funcionários com R. Se eu colocar "Rafael" apareça só os funcionários com o nome de Rafael. Estive vendo no google e aparece que isso é feito com VBA, mas eu não faço ideia de que código usar.

Eu tinha feito isso, mas a ideia é que vai completando... Exemplo: Rafael Borges P. Rodrigues/ Rafael Gustavo SAntos/ Rafael Henrique Cardoso. a Ideia é para que quando eu escreva Rafael (apareça os "rafael") ai conforme eu vá inserindo vai me mostrando que é... Rafael B (no caso por eu ter colocado B só tem a opção de ser o Rafael Borges) Deu para entender?

São muitos funcionários, não terá fazer a lista manualmente.

Boa tarde amigos, Tenho uma planilha no excel com procv da segunda planinha, ao eu digitar o nome do funcionário, aparece os dados dele. Mas eu queria que ao começar a escrever o nome dele, me aparecesse a continuação do mesmo... Assim facilitando e não tendo erro. Alguém poderia me ajudar?

Ok, muito obrigado, funcionou perfeitamente!

Bom dia Charley, Não funcionou. Sheets("CADASTRO").Select Range("I2").Select Selection.Copy Range("I3:I" & total).Select ActiveSheet.Paste Application.CutCopyMode = False Dim total As Integer Range("A1").Select total = (Cells(Rows.Count, 1).End(xlUp).Row) 'Abrir documento do word pronto Dim wdApp As Word.Application, wdDoc As Word.Document On Error Resume Next Set wdApp = GetObject(, "Word.Application") If Err.Number <> 0 Then 'Word isn't already running Set wdApp = CreateObject("Word.Application") End If On Error GoTo 0 Set wdDoc = wdApp.Documents.Open("documento") wdApp.Visible = True For i = 2 To total 'Passando para a primeira tabela do Word wdDoc.Tables(1).Rows.Add 'Adicionando 1 linha à tabela ThisWorkbook.Sheets("CADASTRO").Range("A" & i & ": D" & i).Copy wdDoc.Range(wdDoc.Tables(1).Cell(i, 1).Range.Start, wdDoc.Tables(1).Cell(i, 4).Range.End).PasteAndFormat (22) Ta assim o código, quando aperto o botão aparece a mensagem: Declaração Duplicata no Escopo Atual, e marca o DIM TOTAL AS INTEGER

adicionado 2 minutos depois mas ai eu coloco o código em qual posição? adicionado 6 minutos depois Ao invés de copiar e colar em outros lugares, ta excluindo. adicionado 18 minutos depois Sheets("CADASTRO").Select Range("I2").Select Selection.Copy Range("I3:I6").Select ActiveSheet.Paste Application.CutCopyMode = False Charley, to usando assim, mais não adianta muito, porque o que eu quero não é bem isso. Eu não sei quantas linhas eu terei, lembra? então preciso que ele calcule e cole. no lugar de "I3:I6" eu posso colocar to = total?