Ir ao conteúdo
  • Cadastre-se

Camila Danielle

Membro Júnior
  • Posts

    2
  • Cadastrado em

  • Última visita

Reputação

0
  1. Bom dia! Estou criando um controle de estoque para medicamentos e estou com dificuldades de criar algumas situações: 1ª Preciso criar uma aba com o estoque, baseado na saída e na entrada. Porém, são 4 critérios que preciso filtrar: Lote, Validade, Posição de Estoque e o Medicamento. Se estes 4 critérios forem iguais, Preciso que os dados sejam exportados da planilha de entrada para a planilha de estoque. 2ª Ao dar saída em um medicamento, preciso que o formulário busque as informações no estoque, sendo que preciso que o RowSource seja condicionado ao medicamento, depois a validades existentes e, selecionando a validade, ele filtre o lote, depois a posição. 3ª Após dar a saída no formulário, seja baixado automaticamente no estoque. Agradeço desde já pela atenção! Controle de Estoque Almoxarifado Central.rar
  2. Boa tarde! Preciso criar um código onde, ao digitar um dado pelo formulário para ser cadastrado, ele acuse se ele já existe na minha planilha. Já tentei o PROCV e o If mas ambos geram erro. Segue o que foi digitado: Private Sub SalvarFab_Click() Dim linhavazia As Long ' Verifica se o campo está vazio ou já existe na planilha If fornecedor.Value = "" Then If fornecedor = Application.WorksheetFunction.Lookup(fornecedor.Value, Plan3.Range("C:C"), 3, 0) Then MsgBox ("Dado incorreto ou já existente.") fornecedor.SetFocus End If Exit Sub Else End If 'Salvar dados em planilha Banco de Dados Sheets("BD").Select linhavazia = WorksheetFunction.CountA(Range("C:C")) + 1 'Insere informações Cells(linhavazia, 3).Value = fornecedor.Value ' Ordenar Macro ' Coloca em ordem alfabética ' Atalho do teclado: Ctrl+l Application.ScreenUpdating = False Columns("C:C").Select Range("C2").Activate ActiveWorkbook.Worksheets("BD").Sort.SortFields.Clear ActiveWorkbook.Worksheets("BD").Sort.SortFields.Add Key:=Range( _ "C2"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _ xlSortNormal With ActiveWorkbook.Worksheets("BD").Sort .SetRange Range("C2:C100") .Header = xlNo .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With MsgBox ("Fornecedor cadastrado com sucesso!!!") 'Voltar para página principal 'Medicamento.Show Unload Me End Sub Agradeço desde já!

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...