diego_janjao

@Basole , bom dia. Muito obrigado pela força que está me dando nesse projeto e pelo aprendizado que está me proporcionando. Essa parte que está dando erro eu ainda não conheço, por isso nem sei o que eu poderia fazer pra arrumar depois da alteração que você me indicou: DB_Recebimento (2).zip

@Basole , até funcionou conforme eu queria e como você fez, porém agora dá erro na parte de cadastrar: DB_Recebimento.zip

@Basole , bom dia primeiramente. o local de onde eu deveria puxar os dados na Private Sub UserForm_Activate() seria da tblFornecedores, este eu consegui adaptar e está funcionando bem, já o código do produto, deveria puxar realmente da tblProdutos mas quando eu mudo seu código para puxar da tabela Produtos ele não popula: Private Sub cb_fornecedor_Change() Me.txt_codigo.Clear sql = "SELECT * FROM tblProdutos " sql = sql & "WHERE [prod_Fornecedor]= '" & Me.cb_fornecedor.Text & "'" If Rs.State = 1 Then Rs.Close End If Rs.Open sql, Miconexao, adOpenKeyset, adLockOptimistic, adCmdText Do While Not Rs.EOF Me.txt_codigo.AddItem Rs.Fields("prod_Codigo") Rs.MoveNext Loop Rs.Close End Sub

Depois da ********** que eu fiz, estou o dia todo aqui tentando fazer os combobox puxarem as informações do access, mas não estou tendo muito sucesso. Até o momento o que consegui fazer foi o preenchimento automático do material de acordo com o que for digitado no código: Recebimento - Puxando do access.zip

Eu tentei criar dessa forma com o evento de adicionar na última linha e depois ordenar mas não estava indo de maneira alguma, aí para "contornar" eu criei dessa forma. Da forma que você escreveu está funcionando perfeitamente. Mas eu sou muito burro, só me toquei agora que os dados de fornecedores e produtos não podem ser independentes do BD, pois se um setor cadastrar um novo fornecedor, outro setor pode acabar cadastrando o mesmo fornecedor com outro nome, e ficaria ruim de pesquisar... Aí depois de tudo que escrevemos, terei que mudar para puxar as informações do BD.

Pessoal, bom dia. Ainda neste projeto, estou travado em uma parte: Quando vou adicionar uma matéria prima nova, gostaria que o excel verificasse se esse código já está neste fornecedor, se caso sim, MsgBox avisando que já está incluída. Tentei assim: Private Sub btn_Padicionar_click() If Me.cb_fornecedor.Value = "" Or Me.txt_Pcodigo.Value = "" Then MsgBox "Preencha todos os campos para cadastrar uma matéria prima ao Fornecedor!", vbCritical, "Controle de Recebimento" Exit Sub End If With Sheets("Produtos") o que = Me.cb_fornecedor.Text Set rng = .Columns(1).Offset(0, 1).Find(o que, LookIn:=xlValues, Lookat:=xlPart) If rng Is Nothing Then Application.ScreenUpdating = False Sheets("Produtos").Select Rows("6:6").Select Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Range("A6").Select [A6] = Me.cb_fornecedor [B6] = Me.txt_Pcodigo [C6] = Me.txt_Pproduto [D6] = Environ("username") & " " & Now Range("A2").Select Range(Selection, Selection.End(xlDown)).Select ActiveWorkbook.Worksheets("Produtos").Sort.SortFields.Clear ActiveWorkbook.Worksheets("Produtos").Sort.SortFields.Add Key:=Range("A2"), _ SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal With ActiveWorkbook.Worksheets("Produtos").Sort .SetRange Range("A2:D1500") .Header = xlNo .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With Range("A2").Select Sheets("Início").Select MsgBox Me.txt_Pproduto & " cadastrada ao fornecedor " & Me.cb_fornecedor.Text, vbInformation, "Controle de Recebimento" Else MsgBox "Esta matéria prima já existe para este fornecedor!", vbCritical, "ATENÇÃO" End If End With End Sub Mas não deu certo =/ DB_Recebimento.zip

@Basole , há alguma diferença na menção da célula entre mostrar if [A1] = "ERRADO" e if Range("A1") = "ERRADO"? Pois código que eu havia escrito no beforeprint mudava apenas isso de acordo com o seu, porém o seu deu certo e o meu não.

Obrigado, @Basole ! Infelizmente a planilha está no trabalho, então irei testa-la quando chegar lá (22h). O que eu havia construído era parecido mas testarei e te darei retorno.

Olá a todos, hoje a Udemy está com uma "promoção" (quase sempre está) de qualquer curso por 24 reais. Como eu peço muita ajuda aqui sobre VBA e fórmulas também, e nem sempre consigo compreender o que o pessoal ajuda, estou comprando um de VBA para melhorar o entendimento: https://www.udemy.com/macros-vba-para-excel-completo-construa-7-ferramentas/learn/v4/overview Este para ser mais exato. Como conhecimento nunca é demais, comprei mesmo antes de saber se vale a pena.

Pessoal, bom dia. Estou tentando criar um if aqui para que a pessoa não consiga imprimir caso tenha alguma célula com a palavra erro. Exemplo: Se na célula A1 estiver a palavra ERRADO ao tentar imprimir venha a Msgbox "Verifique os dados, há algo errado!" Caso não tenha, a pessoa pode imprimir sem problemas.

Sub Retirar_Caracteres() 'Ajustar os cadastros dos fornecedores Sheets("Plan1").Range("B1:B5000").Select 'excluir os numeros dos nomes @Fuedba No começo do seu código, é só você especificar onde você quer que ele atue.... Depois de Sheets("Plan1").Select eu especifiquei qual coluna deve rodar o evendo

Mais uma vez, PERFEITO! @Basole Obrigado, Basole!

@Basole Perfeito! Muito obrigado! Gostaria apenas de mais uma dica: Como eu estou salvando os dados em BD Access, eu gostaria que ao terminar o evento, quando surgisse o Msgbox dizendo que o material foi cadastrado com sucesso, que viesse a mensagem mostrando qual número de análise ele ficou cadastrado no banco. Pois são 2 setores diferentes que a alimentarão por forms diferentes:

@Basole mas ele não deveria retornar apenas 2 valores?

@Basole , muito obrigado! Vou tentar aqui (provavelmente dará certo) e se surgir mais alguma dúvida volto a postar aqui. Novamente, muito obrigado. adicionado 21 minutos depois @Basole , infelizmente minha falta de conhecimento me fez travar aqui... até onde entendo, para mim estava certo: O erro acontece no AddItem Aqui segue o arquivo: Recebimento.zip

Perfeito, @Basole ! Aproveitando o seu conhecimento, qual termo eu devo pesquisar para que ao escolher um item no combobox só me apareçam os códigos pertinentes a ele em outro combobox? Exemplo: Se escolho Estado de São Paulo, só me retorna as cidades desse estado.

Pessoal, boa tarde. Estou montando um formulário em VBA que alimentará um BD do access (o que não vem ao caso no momento) e gostaria que ao preencher a textbox de código (txt_codigo) ela automaticamente preenchesse o textbox Produto (txt_material): Eu tentei algo como: Private Sub txt_material_Change() On Error Resume Next ' minha dúvida está nessa parte If txt_codigo <> "" Then txt_material = Application.WorksheetFunction.VLookup((txt_codigo), Planilha1.Range("A1:B8"), 2, 0) '=PROCV(H2;A1:B3;2;0) Else txt_material.Value = "" End If End Sub mas não deu certo: Alguém poderia me dar uma ajuda? Seguem os arquivos: teste.zip Desde já agradeço a ajuda.

@Basole muito obrigado pelo material! Estou pelo celular e não consegui baixar pra ver. Chegando no trabalho eu vejo. Se eu conseguir aplicar esse projeto aqui vai ser muito bom interligar os setores. O esboço que tenho é mais ou menos isso: Onde tem um "olho" é quem do terá acesso de visualização

Olá, pessoal. Gostaria de tirar uma dúvida com vocês. Estou criando um Bando de Dados no Access que será alimentado por um form do Excel. Até aí tudo bem. O que gostaria de saber é se é possível 2 form excel editarem o BD ao mesmo tempo. O meu caso: O BD é de material de recebimento, e eu gostaria que o meu setor pudesse abrir um form na planilha de Qualidade e preenchesse o campo de aprovado ou reprovado dos dados do recebimento, e paralelo a isso, o pessoal de recebimento estaria alimentando os materiais que chegam. É viável? É apenas criar um compartilhamento igual ao compartilhar pasta do Excel?

Acredito que isso atenda o que você precisa controle de atividades.xlsx

Olá, também sou bem iniciante em VBA e coincidentemente estava vendo exatamente isso hoje. para formatar da forma que você quer, você pode usar o keypress, que consiste em dizer ao excel onde entrarão os caracteres que deseja, exemplo: No exemplo acima, depois do primeiro caractere entrara um ( e assim você vai ajeitando conforme deseja

@Gabriel.. eu tenho esta planilha que criei para o meu trabalho e acho que te servirá bem: BH_Diego_2017.xlsx

@Ricardo Constantini está faltando um número 1, veja que está $B$000 tem que ser 1000= $B$1000

Há inúmeras possibilidades de fazer o que você deseja, mas as cegas não tem como ajudarmos. Poste uma planilha para alguém analisar e verificar o que você deseja.

Coloque essa fórmula na célula D2 e arraste para baixo: =SEERRO(Procv(C2;$A$2:$B1$000;2;0);"")