Bom dia!!

Porque você não preenche normalmente linha por linha depois classifica?

É só 2 produtos por linha? Caso tenha mais será feito como, inserir uma linha?

Att

Bom dia
O projecto inicial so tem duas linhas sim a medida que for adicionando itens vou adicionando linhas... No inicio sera tudo introduzido a mao mas com o passar do tempo essa lista pode ter mais de 400 itens... A macro que eu queria era para facilitar a insercao de produtos no futuro nao no inicio...

E possivel?

Boa tarde!!

Vou repetir a pergunta..
..Oque te impede de fazer da forma recomendada?

Porque você não preenche normalmente linha por linha depois classifica?

Att

Boa tarde alexandrevba,

Peço desculpa de só responder agora mas, com esta alturas das festa foi muito complicado...

A principal razão de pedir para ser em macro é que das 6 pessoas que vão mexer com este ficheiro são pessoas que não se dão nada bem com a informática muito menos com excel em si... para elas acrescentar linhas na posição correcta e inserir tudo da forma mais organizada é de certa forma difícil... Dai eu ter pensado nessa forma... isso porque essa macro so vai rolar mesmo depois da listagem estar pronta e se for preciso adicionar algum item...

Eu mais uma outra pessoa consegui-mos facil acrescentar linhas na posição correcta, as restantes 4 não

e para que o ficheiro esteja sempre minimamente organizado eu achei que essa seria mesmo a melhor forma e mais facil de se trabalhar com o ficheiro...

se mesmo assim voce achar que não por favor me da uma solução para facilitar a organização deste trabalho

Obrigado pela atenção desde já

Boa tarde!!

Dê uma olhanda em:

http://cursosqualita.blogspot.com.br/20 ... -2007.html
http://www.exceldoseujeito.com.br/category/formularios/
http://www.ambienteoffice.com.br/excel/ ... rmularios/

Att

alexandrevba bom topicos

Excel do seu jeito ja tinha visto mas infelizmente nao consegui tirar nada de la para ajudar com este problema

No entanto vou ver os outro... eu aqui tambem tou um bocado limitado a muitas das ferramentas que hoje ha em novos excel pois aqui no trabalho ainda trabalham com o excel 2002...

pode so dar a dica de como e que eu faco para que a macro reconheca a primeira letra do valor do TextBox e como comparar com a da coluna B???

Obrigado.

Boa noite!!

Veja se é isso
http://www.sendspace.com/file/izqmxt

Att

alexandrevba
Funciona a 100% muito obrigado pela ajuda... o que eu gostaria era que os itens tambem fossem introduzidos dentro do campo da primeira letra depois pela segunda terceira e por ai fora de forma a ficar mesmo organizado alfabeticamente mas voce ja deu uma mega ajuda eu resolvo agora o restante
mais uma vez MUITO obrigado

Boas entradas e bom ano

alexandrevba Desculpa incomodar mais uma vez,

No entanto estive a ver bem o ficheiro e reparei que me esqueci do campo do tipo de unidade a que cada existência se deve referir e adicionei uma nova TextBox para esse propósito...

Tentei alterar o code para a seguinte forma:

Private Sub CommandButton1_Click()
Dim c As Variant
Dim Mychar As String
Dim Ult As Long
With Sheets("INVENTARIO").Range("B:B")
Application.EnableEvents = False
    Mychar = Left(Range("C4"), 1)
    Set c = .Find(Mychar, lookat:=xlWhole)
    If Not c Is Nothing Then
        Range("B" & c.Row).Offset(2, 1).EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove
        Range("C" & c.Row).Offset(2, 0).Value = Me.TextBox1.Value 'producto
        Range("E" & c.Row).Offset(2, 0).Value = Me.TextBox2.Value 'Custo unidade
        Range("I" & c.Row).Offset(2, 0).Value = Me.TextBox3.Value 'Unidade
        Range("G" & c.Row).Offset(2, 0).Value = Me.TextBox4.Value 'Existencia
        Range("J" & c.Row).Offset(2, 0).Value = Cells(c.Row, 5).Offset(2, 0).Value * Cells(c.Row, 7).Offset(2, 0).Value
    End If
    
End With
Unload UserForm2

End Sub

E agora a UserForm nem aparece quando da erro

Pode dar essa ultima ajuda por favor?

Desde ja obrigado