diegojanjao

Boa noite. Tudo bem? Criei um script pra fazer o procv na coluna C, o script seria a macro do Microsoft Excel. Fiz 2 testes e está funcionando normalmente. Há um pequeno delay que dura menos de 1 segundo mas funciona. function onEdit(e) { // Verifica se a edição foi feita na coluna B da Página1 var sheet = e.source.getSheetByName('Página1'); if (e.range.getColumn() == 2 && e.range.getRow() > 1 && sheet.getName() == 'Página1') { // Obtém o valor da célula editada na coluna C da Página1 var valorProcurado = e.value; // Procura na planilha Fornecedores na coluna A var fornecedoresSheet = e.source.getSheetByName('Fornecedores'); var ultimaLinhaFornecedores = fornecedoresSheet.getLastRow(); var valoresColunaA = fornecedoresSheet.getRange(1, 1, ultimaLinhaFornecedores, 1).getValues(); // Procura pelo valor na coluna A da planilha Fornecedores var indexEncontrado = valoresColunaA.findIndex(function(valor) { return valor[0] == valorProcurado; }); // Se encontrado, retorna o valor da coluna B if (indexEncontrado != -1) { var valorRetornado = fornecedoresSheet.getRange(indexEncontrado + 1, 2).getValue(); sheet.getRange(e.range.getRow(), 3).setValue(valorRetornado); } else { // Se não encontrado, retorna "Fornecedor não cadastrado" sheet.getRange(e.range.getRow(), 3).setValue("Fornecedor não cadastrado"); } } }

Boa noite. Acredito que há inúmeras formas de chegar ao que deseja, contudo, de forma rápida, recomendo utilizar a AI do https://www.tutorai.me . basta colocar o que deseja aprender seguido de "em português brasileiro" (por exemplo, fórmulas matriciais em português brasileiro) e ele gerará um mini curso dividido em módulos para você, o qual você poderá fazer perguntas sobre o tema, ver exemplos, responder perguntas e pedir um resumo. é isso.

Caso alguém tenha uma dúvida semelhante no futuro... eu resolvi com a seguinte fórmula: IFS( AND( ISNOTBLANK([SALA EQUIPAMENTO]), SUM(SELECT(UTENSÍLIOS[BALANÇA], [SALA EQUIPAMENTO] = [_THISROW].[SALA EQUIPAMENTO])) > 0 ), TRUE, TRUE, FALSE )

Boa noite, estou criando aplicativos do AppSheets no Google Planilhas para a empresa e me deparei com uma falta de criatividade para montar o formulário de controle, gostaria de ver se alguém teria uma ideia de como resolver: Tenho que configurar para que quando o usuário escolher a Sala, traga somente os utensílios daquela sala (faca, tesoura, caneta, etc) e o usuário terá que digitar quantos utensílios ele encontrou no local. Se a informação estiver correta, ele pode salvar naturalmente, caso não, terá que abrir um campo de nãoo conformidade para tratar o item faltante. Seria a matriz para teste e o modelo assim: Só que o app não traz as informações com o LOOKUP([SALA],Página2,Sala,Utensílios):

@Midori Muito obrigado. Funcionando certinho aqui.

Boa tarde. Eu faço gestão de SAC em uma empresa e diariamente durante os chamados abertos, eu preciso criar uma pasta com o número do chamado, nome do cliente e nome do produto. Até aqui tudo bem pois eu consigo fazer com que ao colocar o código do produto, a planilha já cria a pasta no diretório e coloca o arquivo lá dentro que eu preciso. O que eu gostaria era que, neste arquivo que é colocado lá dentro da pasta automaticamente, fosse incluído na célula G5 o número do chamado. Private Sub Worksheet_change(ByVal Target As Range) Dim raiz As Object, save Set raiz = CreateObject("Scripting.FileSystemObject") On Error Resume Next On Error GoTo aviso1 If Target.Column = 7 And Target.Value <> "" Then 'PROCV DE CLIENTE Application.ScreenUpdating = False Cells(Target.Row, 5).Value = Date 'coloca data na coluna b Cells(Target.Row, 8).Value = WorksheetFunction.VLookup(Cells(Target.Row, 7), Planilha4.Range("A2:I15000"), 3, False) 'Coloca CLIENTE Cells(Target.Row, 9).Value = WorksheetFunction.VLookup(Cells(Target.Row, 7), Planilha4.Range("A2:I15000"), 4, False) 'Coloca UF Cells(Target.Row, 71).Value = WorksheetFunction.VLookup(Cells(Target.Row, 7), Planilha4.Range("A2:I15000"), 5, False) 'Coloca DIVISÃO Application.ScreenUpdating = True End If If Target.Column = 10 And Target.Value <> "" Then 'PROCV DE PRODUTO Application.ScreenUpdating = False Cells(Target.Row, 11).Value = WorksheetFunction.VLookup(Cells(Target.Row, 10), Planilha6.Range("A2:D15000"), 2, False) 'Coloca PRODUTO Cells(Target.Row, 14).Value = WorksheetFunction.VLookup(Cells(Target.Row, 10), Planilha6.Range("A2:D15000"), 3, False) 'Coloca FÁBRICA Cells(Target.Row, 69).Value = WorksheetFunction.VLookup(Cells(Target.Row, 10), Planilha6.Range("A2:D15000"), 4, False) 'Coloca LINHA save = ThisWorkbook.Path & "\" & Format(Cells(Target.Row, 4).Value, "000000") & " - " & Cells(Target.Row, 8).Value & " - " & Cells(Target.Row, 11).Value If Not raiz.FolderExists(save) Then raiz.CreateFolder (save) End If FileCopy ThisWorkbook.Path & "\FOR004 - Não conformidade.xlsx", _ ThisWorkbook.Path & "\" & Format(Cells(Target.Row, 4).Value, "000000") & " - " & Cells(Target.Row, 8).Value & " - " & Cells(Target.Row, 11).Value & "\SAC " & Format(Cells(Target.Row, 4).Value, "000000") & " - Investig.xlsx" Application.ScreenUpdating = True End If Exit Sub aviso1: MsgBox "Não foi possível localizar o item", vbOKOnly, "Recebimento CompreBem" End Sub Como eu faria para abrir o arquivo do FileCopy, colocar Format(Cells(Target.Row, 4).Value, "000000") na célula G5 deste arquivo e fechá-lo? Obrigado. FOR007 - Gestão do SAC - 2022rev4.zip

Boa noite, pessoal. Gostaria de uma ajuda, primeiramente, criei algumas fórmulas para "destrinchar" o endereço logístico que segue um padrão (910.1026.2.1.20.1.0), sendo o mais importante aqui a partir do 1.20.1.0 do endereço. 1.XXX.Y.Z = Rua W.20.Y.Z = Posição W.XXX.1.Z = Nível W.XXX.Y.0 = Sequência O que eu preciso fazer, seja via fórmula ou VBA, é listar os itens que não existem no nível 1, pois este nível é onde os separadores pegam os produtos, então se os produtos estão apenas endereçados nos níveis 2 acima, preciso de uma empilhadeira toda vez que for separar... Isto nós chamamos de produtos SEM PICKING, ou seja, itens que não estão no nível 1. E em outra aba, eu precisaria verificar quais produtos têm mais de 1 picking, ou seja, estão ocupando 2 posições diferentes em nível 1. Destrinchamento de Ruas.xlsx