Ir para conteúdo
Fórum Script Brasil

Magliano

Membros
 Perfil  Explorar Conteúdo

  • Total de itens

    7

  • Registro em

  • Última visita

 Tipo de Conteúdo 

Posts postados por Magliano

  2. Controle Estoque botão editar

    em VBA

    Postado

    Bom dia JoseA,mais uma vez obrigado pela ajuda o código para modificar seria esse?

    nomepesquisa.ListIndex = -1

    TotalRegistro = código.ListIndex + 2

    Plan1.Cells.Find(código.Text).Select

    Infelizmente não estou conseguindo achar a solução,você poderia me ajudar amigo?

  3. Controle Estoque botão editar

    em VBA

    Postado

    Boa tarde eu estou com um problema e não consigo resolver.Tenho uma Userform controle de estoque de alimentos quando seleciono no combbox o código automaticamente ele seleciona na planilha,só que como no exemplo se eu tenho um código 101 e logo após o código 10 ele seleciona o 101 na planilha,ele não reconheçe o número 10 e sim o 101.por que isso ocorre e como solucionar? Seria possível criar um botão editar,para fazer a edição no próprio Userform?

    Outra dúvida: Eu tinha um botão excluir na Userform, só que quando excluia um produto,excluia a linha na planilha o que acarretava um problema com as fotos pois o endereço muda pra outro e a foto que aparece é a do produto seguinte,como resolver isso,por favor alguém me dê uma luz???

    Exemplo: http://www.4shared.com/document/mGbf4LWx/TESTE_FOTO.html

    Obrigado

  4. Baixa e entrada em estoque excel vba

    em VBA

    Postado · Editado por Magliano

    É isso mesmo JoséA obrigado pela ajuda,você foi demais meu amigo!!!

    Agradeço também a esse fórum e parabenizo a todos pela iniciativa de ajudar uns aos outros!

    Espero poder retribuir ao ponto que for adquirindo mais conhecimento e ajudar as pessoas que assim como eu tem dúvidas

    Obrigado

  5. Baixa e entrada em estoque excel vba

    em VBA

    Postado · Editado por Magliano

    Meu amigo JoséA ficou quase perfeito,só tem um pequeno detalhe que não está dando certo,é que na primeira vez que damos saida funciona normalmente,mas quando damos continuidade na saída ele dá a mensagem que não tem no estoque mesmo o produto estando disponível no estoque.E também quando digitamos um número em saída,ele aparece também na primeira linha da planilha mesmo sendo outro código selecionado.

    E sem querer abusar do seu conhecimento,mas não teria uma forma de limpar as entradas e saídas da planilha também,só deixando visível o estoque ?

    Essa foi a tabela modificada que você me mandou

    http://www.4shared.com/document/ZV5kfYHB/T..._Sandro_1_.html

    Desde já agradeço a sua ajuda

  7. Baixa e entrada em estoque excel vba

    em VBA

    Postado · Editado por kuroi
    Adicionar tag CODE

    Bom dia sou iniciante em excel vba por isso minha dúvida pode parecer simples:

    tenho uma uma userform onde eu entro com o código ou o nome do produto e automaticamente ele me retorna o valor desse produto e criei uma textbox chamado Entrada e outro Saída.O problema é que quando entro com o código queria que ele reconhecesse na Plan1 e desse entrada ou saída de acordo com o código selecionado e copiasse na respectiva linha do código selecionado.O que está acontecendo que ele só faz a entrada e saída na primeira linha da minha tabela.

    Por favor me ajudem segue o código:

    Option Explicit
Dim TotalRegistro As Integer


Private Sub código_Change()
If código.ListIndex = -1 Then
Exit Sub
End If
nomepesquisa.ListIndex = -1
TotalRegistro = código.ListIndex + 2

AtualizaControles

End Sub

Private Sub CommandButton2_Click()
If código = códigoproduto Then
Estoque = Val(Range("D3").Value) + Val(Range("F3").Value)
Else
ActiveCell.Offset(1, 0).Select
End If
End Sub

Private Sub CommandButton3_Click()
If código = códigoproduto Then
Estoque = Val(Range("F3").Value) - Val(Range("E3").Value)
MsgBox ("BAIXA EFETUADA COM SUCESSO!")
ActiveCell.Offset(1, 0).Select
Else
MsgBox ("NÃO TEM NO ESTOQUE!")
End If
End Sub

Private Sub CommandButton4_Click()

Entrada = ""
Saida = ""

End Sub

Private Sub Entrada_Change()
If código = códigoproduto Then
Range("D3").Value = Entrada
Else
ActiveCell.Offset(1, 0).Select
End If
End Sub
Private Sub Saida_Change()
If código = códigoproduto Then
Range("E3").Value = Saida
Else
ActiveCell.Offset(1, 0).Select
End If
End Sub
Private Sub Estoque_Change()
If código = códigoproduto Then
Range("F3").Value = Estoque
Else
ActiveCell.Offset(1, 0).Select
End If
End Sub
Private Sub Fechar_Click()
Unload Tela
End Sub


Private Sub nomepesquisa_Change()
If nomepesquisa.ListIndex = -1 Then
Exit Sub
End If
código.ListIndex = -1

TotalRegistro = nomepesquisa.ListIndex + 2

AtualizaControles

End Sub
Sub Atualizacódigo()

With Worksheets("Plan1")

TotalRegistro = .UsedRange.Rows.Count
If TotalRegistro > 1 Then
código.Enabled = True
código.RowSource = "Plan1!A2:A" & TotalRegistro
nomepesquisa.Enabled = True
nomepesquisa.RowSource = "Plan1!B2:B" & TotalRegistro
Else
código.Enabled = False
nomepesquisa.Enabled = False
End If

End With

End Sub

Private Sub UserForm_Initialize()

Atualizacódigo

End Sub

Private Sub AtualizaControles()

With Worksheets("Plan1")

códigoproduto.Value = .Cells(TotalRegistro, 1).Value
produto.Value = .Cells(TotalRegistro, 2).Value
valor.Value = .Cells(TotalRegistro, 3).Value


End With

×
×
  • Criar Novo...