isabela queiroz

@Scofieldgyn precisava que fosse codigo mesmo, assim não funciona dentro da sub, tem que ser feita um a um (de preferência encontrasse qual coluna é pelo Find ex. Cells.Find(What:="Customer MPN (Manufacturers)", After:=ActiveCell, LookIn:=xlFormulas, LookAt _ :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ False, SearchFormat:=False).Activate Sub CopiaColaColunas() ActiveCell.FormulaR1C1 = _ "=IF(OR(OR(RC[5]=""Qualified"",RC[5]=""Obsolete"",RC[5]=""LTB"")),""Active"",""Inactive"")" end sub

@Scofieldgyn precisava que fosse em vba no caso, como transformo?

Boa Tarde! Recebi as seguintes orientações de uma macro que preciso fazer, mas não sei como aplicar isso em codigo, acredito que tenha que ser por IF mas não sei fazer com o criterio "OU"

Boa Tarde! Precisava copiar 3 colunas do "Sheets1" e colar no "sheets2", porém a parte do codigo que não estou sabendo fazer é, que quando colar as colunas no outro sheets eles precisam ir com outro nome.. Ex. no exemplo encaminhado a coluna "nomes" por exemplo, no "sheet2" fica como "Nom Pessoa", a ideia seria achar as 3 colunas no sheet1, fazer elas se localizarem no sheet2 onde devem ficar cada uma e depois colar cada uma das colunas de informações no seu respectivo local. em outro codigo eu usei um codigo mais ou menos assim '------------------------------------------------------------------------------- Sub CopiaColaColunas() Dim rTbl As Range, rTot As Range, rTmp As Range, nomes As Variant, nome As Variant nomes = Array("level", "item number", "item name", "revision", "unit of measure", "quantity") Set rTbl = Workbooks("20.0470.xlsx").Worksheets("20.0470").[A12].CurrentRegion For Each nome In nomes Set rTmp = Intersect(rTbl, rTbl.Rows(1).Find(What:=nome, LookAt:=xlWhole).EntireColumn) If rTot Is Nothing Then Set rTot = rTmp Else Set rTot = Union(rTot, rTmp) Next nome rTot.Copy Destination:=Workbooks("MACRO.xlsm").Worksheets("Sheet2").[A1] Application.CutCopyMode = False End Sub EXEMPLO_CLUB.xlsx

@Midori Exatamente isso, muito obrigada voce esta me ajudando demais a resolver muito problemas que estou tendo com essa macro.. @Midori para não precisar abrir mais um topico, que estou abrindo o dia todo kkkkk teria como voce me ajudar com mais uma coisinha.. tem essa parte da macro aqui que é o inicio, ela ate ta funcionando mas quando chega no final da esse erro aqui não sei como evitar ou só ignorar já que a sub faz o que tem que ser feito no final das contas Sub começando() 'Windows("Project BOM.CO Check list - Boa Sorte_Rev00 - Analise.xlsx").Activate 'SELECIONANDO A PLANILHA DA JANELA DO PROJETC BOM.CO 'Sheets("Details").Select Windows("BOM.CO pra teste.xlsx").Activate Sheets("Details").Select Cells.Find(What:="PN", After:=ActiveCell, LookIn:=xlValues, _ LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False, SearchFormat:=False).Activate ActiveCell.Offset(1, 0).Select Range(Selection, Selection.End(xlDown)).Select Selection.Copy Windows("MACRO MAURO.xlsm").Activate Sheets("INDO").Select Cells.Find(What:="part number", After:=ActiveCell, LookIn:=xlValues, _ LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False, SearchFormat:=False).Activate ActiveCell.Offset(1, 0).Select Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False Windows("BOM.CO pra teste.xlsx").Activate Sheets("Details").Select Cells.Find(What:="PN", After:=ActiveCell, LookIn:=xlValues, LookAt:= _ xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _ , SearchFormat:=False).Select ActiveCell.Offset(1, 0).Select 'ActiveCell.Value = Selection.Copy 'Define o valor da Variavel valorProcura = ActiveCell.Value Sheets("Pier Distribution").Select 'Procura a variavel Cells.Find(What:=valorProcura, After:=ActiveCell, LookIn:=xlValues, LookAt:= _ xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _ , SearchFormat:=False).Select Range(Selection, Selection.End(xlDown)).Select Range(Selection, Selection.End(xlToLeft)).Select Selection.Copy Range("C13").Select ActiveSheet.Paste Range("D14").Select Range(Selection, Selection.End(xlDown)).Select 'mudar range baseado na onde ficar o que copiei Range("D17:D19").Select Application.CutCopyMode = False ActiveSheet.Range("$C$13:$E$19").RemoveDuplicates Columns:=2, Header:=xlNo ThisWorkbook.Sheets("Pier Distribution").Range("D17:D30").RemoveDuplicates Columns:=Array(4, 5), Header:=xlYes '--------------------- funciona pra cima - mas da erro no final ------------------------------------------ End Sub

Preciso adicionar um texto especifico no início de cada célula da tabela, sendo que a coluna necessaria da tabela começa na celula "C17" preciso que esses numeros da coluna "item number" a partir do NXH - 2.4.1.20.0470 fique com "364-NTK1-" na frente, eu ja fiz o começo do codigo mas não sei prosseguir pra ele seguir sequencia fazendo para as proximas celulas ate a ultima, não sei muito bem como usar o Next no VBA Sub Text_Esp () Windows("MACRO MAURO.xlsm").Activate Sheets("INDO").Select Cells.Find(What:="item number", After:=ActiveCell, LookIn:= _ xlValues, LookAt:=xlWhole, SearchOrder:=xlByColumns, SearchDirection:= _ xlNext, MatchCase:=False, SearchFormat:=False).Activate ActiveCell.Offset(1, 0).Range("A1").Select Dim c As Range Dim D As Range For Each c In Selection If c.Value <> "" Then c.Value = "364-NTK1-" & c.Value ActiveCell.Offset(1, 0).Range("A1").Select Next c End Sub e apos isso preciso fazer uma macro semelhante a essa mas que crie uma caixa de dialogo perguntando o final do item number em questão. ex "qual o final do item number? e eu colocaria "-BS-1" no final das contas preciso que fiquei assim " 364-NTK1- NXH - 2.4.1.20.0470 -BS-1 " e que isso seja copiado ate a ultima cellula preenchida da coluna

@Midorieu fui passar pra macro certa com os dados originais e não mudou nada, eu testei na de exemplo que te mandei e funcionou, não entendi porque noa funcionou na original, as coisas estão nas mesmas celulas, a unica coisa que muda é essa parte aqui que na que te mandei começa na A5 e na original começa na A2 mas eu alterei isso no codigo ficando assim Sub AdicionaPosition(Area As Range, Inicio As Integer) Dim Celula As Range Dim Proximo As Integer Proximo = Inicio For Each Celula In Area Celula = Proximo Proximo = Proximo + Inicio If UBound(Filter( _ Application.Transpose([A2:A11]), Celula(1, 2))) > -1 Or _ UBound(Filter( _ Application.Transpose([A2:A11]), Celula(2, 2))) > -1 Then Proximo = Inicio End If Next Celula End Sub

@Midori exatamente isso! a unica coisa que não sei se tem como fazer mas precisava era que os dois primeiros fossem iguais em vez da macro fazer assim 10, 20, 30, 40... fazer o primeiro ser 10, o segundo 10 tambem que ele sempre vai ser baseado no primeiro. Basicamente considerar que o primiero que ta de azul é o lider e os outros vão se basear nele então o proximo tambem vai ser 10, igual o primeiro então ficaria 10, 10, 20, 30...

@Midori Acho que nâo posso mostrar a planilha original por ser dos clientes da minha empresa. Mas o que quis dizer no caso é que quando aparecer a caixa de texo fazendo a pergunta "De quanto em quanto ele acrescenta" seria uma informação que não tem dentro do excel, então teria que ser colocada a mao, o que eu quis dizer com acrescentar foi na verdade seria dizer se ele vai de, por exemplo, 2 em 2, se for de "2" ficaria 2 depois 4, 6 ,8, 10... se colocar 10 ele vai de 10, 20,30,40... ate acabar. então ali na "position" esta sem informação nenhuma, a intenção é que quando aparecer a caixa de texto com as perguntas e forem colocadas as informações, ele aderir e colocar de 10 em 10, por exemplo. se encontrar alguma forma mais simples de fazer isso pode ser tambem, só não tive alguma ideia melhor, assim ta bem complicado, é que como esse template vai ser usado pra muitas informaçoes de varios clientes to tentando fazer de uma forma meio aberta para não dar erro com nenhum dos numeros que forem colocados lá. exemplo1.xlsx

@Midori aqui, mas assim, como eu não sei fazer por codigo o imputBox eu não coloquei ele junto, basicamente indiquei o que falei ali em cima, tenho uma macro que vou fazer substituir a "pesquisa" quando acaba o primeiro part number e pegar o proximo item da tabela, quando acabar o "NXH - 2.4.1.20.0470" para passar pro proximo que seria o "NXH - 2.4.1.20.0471", tenho que pegar essas informações de outras tabelas e tenho que fazer muita coisa ainda nessa planilha, por isso ta meio difícil explicar exatamente o que quero ja que tenho que pensar nas proximas coisas a se fazer tambem, perdão. exemplo1.xlsx

Precisa criar uma caixa de texto que perguntasse duas coisas. A primeira "Qual a posição do item number = (precisava que aqui ele pegasse a informação de uma celula especifia, no caso a celula "C2")?" E a segunda pergunta dentro da mesma caixa de texto seria "De quanto em quanto ele acrescenta?" a primeira pergunta seria para a primeira posição da celula "B17 - Position" e a segunda referente as celulas seguintes. Se s resposta pra primeira pergunta for "10", por exemplo, e a resposta de segunda pergunta for de "10" tambem. preciso que isso ocorra imaginei algo mais ou menos assim: mas não tenho conhecimento de VBA suficiente ainda pra saber colocar uma celula como parte do texto da primeira pergunta. Caso não tenho como pensei em fazer uma outra caisxa de textBox perguntando primeiramente qual o Part Number em questão e depois as infos dele para serem preenchidas

@Midori Puts agora sim deu certo, muito obrigada to a um tempinho tentando fazer isso funcionar.. Obrigada!!

@Midori O problema ta sendo é que cada caso tem um numero de part number diferente então eu preciso que o nome do PartN seja baseado ao que esta abaixo de pesquisa, por exemplo, pra sempre que eu alterar ali, eu não precisar alterar no codigo, pode ser por caixa de texto tambem ou qualquer outra forma que eu não conheço ainda, não sei como atribuir o PartN como algo que não seja o proprio texto, como uma celula, por exemplo.

@Midori Então, o problema é que depende de que maneira o cliente envia, mas aqui tem um exemplo, ele manda um arquivo e eu fiz uma macro que copia todos "part numbers" que preciso encontrar na tabela, começando por esse "NXH - 2.4.1.20.0470", coloquei uma celula ao lado que copia 1 por 1 ate terminar o codigo ai copia o de baixo, pra ficar maias fácil, ai pensei em fazer uma macro que visse o que tem nessa celula ali embaixo de "pesquisa" e procurasse dentro da pasta do box. ex. sempre vai estar dentro dessas pastas grifadas, o que muda é o ultimo nome do arquivo que vai ser aberto correspondentemente ao "part number" em questão "C:\Users\" & VBA.Environ$("USERNAME") & "\Box\Full Tracker\Macro Desenvolvimento\Fileiras\Fileiras\" & "PART NUMBER" o grifado em vermelho é onde precisa ser alterado conforme o par number. acho que expliquei meio mal, perdão..

@Midori obrigada midori! parece que funcionou aqui, mas sobre a parte de abrir cada excel de cada produto, voce sabe como me ajudar a fazer aquele codigo funcionar para abrir um arquivo baaseado no texto de alguma celula em especifico ou em alguma caixa de texto?

@Scofieldgyn muito obrigada da mesma forma! ajudou muito já! @Edson Luiz Branco Uma duvida, talvez o que eu quero seja um pouco difícil ou nem seja possível, mas teria como em vez de colocar o nome do workbook pra procurar as colunas, colocar o que esta no meu "copiar"? ou fazer uma caixa de texto que abre e eu coloco qual workbook preciso abrir? porque vou ter que fazer isso com varios excel e cada um tme um nome diferente e para não ter que reescrever o codigo sempre que precisar, seria melhor que tivesse como substituir o nome do workbook pela caixa de texto ou pelo copiar porque antes de eu copiar essas colunas eu preciso abrir um arquivo com o nome de um produto, então se o nome do produto é "NXK - 2.0.1" eu preciso que abra o workbook dele e copie essas colunas da tabela dele vi esse codigo aqui e tentei adaptar mas não funcionou porque não tenho muito conhecimento sobre VBA mas parecia estar no caminho certo Sub copParNum() 'essa primeir sub é pra copiar o nome do produto (part number) que preciso achar nos arquivos Windows("TABELAFINAL.xlsm").Activate Sheets("INDO").Select Cells.Find(What:="part number", After:=ActiveCell, LookIn:=xlValues, _ LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False, SearchFormat:=False).Activate ActiveCell.Offset(1, 0).Range("A1").Select Selection.Copy '------colando na frente pra pesquisar na parta ActiveCell.Offset(0, 2).Range("A1").Select ActiveSheet.PasteSpecial End Sub Private Sub abrindoProd() Windows("TABELAFINAL.xlsm").Activate Sheets("INDO").Select Cells.Find(What:="pesquisa", After:=ActiveCell, LookIn:=xlValues, _ LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False, SearchFormat:=False).Activate ActiveCell.Offset(1, 0).Range("A1").Select Selection.Activate Dim PartN As String Dim msg PartN = Selection.Activate 'aqui eu tentei fazer o codigo pegar o que tava no meu ctrl c e usar para pesquisar nos arquivos o arquivo ocm esse nome, mas não funcionou kkkkk msg = "C:\Users\" & VBA.Environ$("USERNAME") & "\Box\Full Tracker\Macro Desenvolvimento\Fileiras\Fileiras\" & PartN & VBA.vbCr Workbooks.Open ("C:\Users\" & VBA.Environ$("USERNAME") & "\Box\Full Tracker\Macro Desenvolvimento\Fileiras\Fileiras\" & PartN) End Sub quando executo aparece isso aqui queria saber como transoformar esse true no que copiei ou no que ta na celula selecionada

@Scofieldgyn o codigo continua estranho, ta colando o proprio codigo na celula ele basicamente continua colando o que ta no meu ctrl c em vez do que ta na planilha e pelo o que entendi seu codigo não faz copiar varias colunas de uma vez, como eu faria pra ser varias juntas adjacentes

@Scofieldgyn não estou sabendo montar o codigo baseado no que voce me passou, deixei aassim Sub EnderecoColCabeçalho() Windows("NXH - 2.4.1.20.0470.xlsx").Activate Sheets("NXH - 2.4.1.20.0470").Select 'Macro pra copiar uma coluna pelo nome do cabeçalho Dim xRg As Range Dim xRgUni As Range Dim xFirstAddress As String Dim xStr As String On Error Resume Next xStr = "level" 'Coloque o nome do cabeçalho da coluna que deseja copiar Set xRg = Range("A1:D1").Find(xStr, , xlValues, xlWhole, , , True) If Not xRg Is Nothing Then xFirstAddress = xRg.Address Do Set xRg = Range("A12:AA12").FindNext(xRg) If xRgUni Is Nothing Then Set xRgUni = xRg Else Set xRgUni = Application.Union(xRgUni, xRg) End If Loop While (Not xRg Is Nothing) And (xRg.Address <> xFirstAddress) End If xRgUni.EntireColumn.Copy Windows("MACRO MAURO.xlsm").Activate Sheets("INDO").Select Cells.Find(What:="level", After:=ActiveCell, LookIn:=xlValues, _ LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False, SearchFormat:=False).Activate ActiveCell.Offset(1, 0).Range("A1").Select ActiveSheet.Paste End Sub mas não esta copiando nada e ta colando o que ja ta no meu ctrl c

@Scofieldgyn Eu fiz uma tabela de exemplo pra ficar mais fácil de explicar, tem o excel "EXEMPLO.xlsx" com o "sheet1" com as infos na tabela, precisava que, por exemplo, as colunas "tipo, marca, genero e quantidade" fossem colados no "sheet1" de outo excel, ex. "EXEMPLO2.xlsx" EXEMPLO.xlsx

@Scofieldgyn fiz aqui e não aconteceu nada, a coluna que quero começa na celula "B12", isso faz alguma diferença?

precisava selecionar algumas colunas em uma planilha e precisava que fosse localizado pelo nome das colunas não pela celula ja que pode varias a localização delas, gostaria de selecionar, por exemplo, 6 colunas não adjacentes e coloca-las em outro sheet.

@AfonsoMira então, eu precisava que o codigo pegasse o primeiro item abaixo do "PN" na planilha "Details" e pesquisasse na sheets "Pier Distribution" o numero que esta na celula, independente de qual seja o valor dela. o codigo que voce me passo ta só avançando pra celula seguinte e não pesquisando o valor dela não entendi se fiz algo errado e depois que fizesse isso ele fizesse pro proximo "PN" tambem e por assim vai mas que fosse separada os códigos porque antes de pesquisar o proximo PN eu vou colocar algumas outras funções.

Queria encontrar na planilha "BOM.CO" a tabela "PN" e em seguida copiar a celula abaixo dele, para procurar no sheets "pier distribution" onde esse texto da celula abaixo esta Windows(" BOM.CO").Activate Cells.Find(What:="PN", After:=ActiveCell, LookIn:=xlValues, LookAt:= _ xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _ , SearchFormat:=False).Activate ActiveCell.Offset(1, 0).Select Selection.Copy Sheets("Pier Distribution").Select

como eu utilizo esse "cells(rngPN.row+1.. ? não sei onde colocar ele do codigo tenho um passo a passo do que precisa ser feito 'primeiro abrir a planilha "BOM.CO" pegar os "PN" ex. "NXH - 2.4.1.20.0470" DO SHEET "Details" e pesquise na planilha "Pier Distribution" 'encontrar o "NXH - 2.4.1.20.0470" e ver embaixo dele quais infos estão preenchidas 'reconhecer e copiar as info da frente da linha que estiver preenchida (tirar os repetidos) 'colar no item number da planilha "MACRO M" Comecei o codigo assim mas acho que não esta funcionando Dim wb As Workbook: Set wb = ThisWorkbook Dim ws As Worksheet: Set ws = wb.ActiveSheet Dim rngProcura As Range: Set rngProcura = ws.Range("A1:XFD1048576") Dim rngPN As Range Dim colunaPN As Long Windows("BOM.CO").Activate 'SELECIONANDO A PLANILHA DA JANELA DO PROJETC BOM.CO Sheets("Details").Select Cells.Find(what:="PN", After:=ActiveCell, LookIn:=xlValues, LookAt:= _ xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _ , SearchFormat:=False).Activate With rngProcura Set rngPN = .Find(what:="PN", LookAt:=xlWhole, MatchCase:=False, SearchFormat:=False) If Not rngPN Is Nothing Then colunaPN = rngPN.Column End If End With 'Cells(rngPN.Row+1, Coluna)

@Basole mas no caso precise que encontre primeiro o PN e depois copie o que esta abaixo dele, por exemplo preciso que encontre o "PN" pegue e copie todas celulas preenchidas embaixo desse PN e cole em outra planilha