Como Incluir Dados de Entrada no Formulário com Botão [RESOLVIDO]

[lesobreira]

Bom dia pessoal,
Estou construindo uma ferramenta para gerar ordens de produção. O usuário pode escolher a área em que irá gerar a ordem de produção e diversos forms virão para ajudá-lo a dimensionar a estrutura necessária para atender a demanda.
No primeiro formulário para um processo qualquer o usuário deve informar alguns dados de entrada com alguns textbox específicos para uma origem de dados. Aí que entra minha dúvida, existe a possibilidade de deixar um "+" no formulário e se houver mais de uma origem, ao clicar no "+" são criados mais textbox iguais às originais para lançar uma segunda origem de dados?
Se puderem me ajudar ficarei agradecido. No anexo tem um exemplo do form que gostaria de criar.

Obrigado!

[srobles]

lesobreira,

Veja se o modelo em anexo atende suas necessidades.

Caso necessite, adapte as rotinas e eventos ás suas necessidades.

Abs

[samukakinboll]

bom dia
pessoal estou apanhando para desenvolver um código
segue o raciocínio abaixo:
Sub copia maquina()
Sheets("Pendencia").Select
Range("D3").Select
Do Until ActiveCell = "MAQUINA 02" 'FINALIZA AÇÃO AO ENCONTRAR
ActiveCell.Offset(1, 0).Select 'PULA UMA LINHA
If ActiveCell = "MAQUINA 01" Then 'DETECTA A MAQUINA
AQUI ELA DEVE PULAR UMA LINHA E LOGO APOS COMEÇAR A COPIAR
NA RANGE "D" AS PENDENCIAS ATE ENCONTRAR A SEGUNDA MAQUINA E PARAR
ElseIf ActiveCell = "MAQUINA 02" Then
Application.Run "BUSCAMAQUINA"
End If
Loop
End Sub
Alguem pode me ajudar?

[lesobreira]

Saulo muito obrigado pela ajuda! Havia pensado em duplicações de textbox, mas você me apresentou uma solução mais simples e eficaz!

Obrigado mesmo.

Leandro

lesobreira,

Veja se o modelo em anexo atende suas necessidades.

Caso necessite, adapte as rotinas e eventos ás suas necessidades.

Abs

[srobles]

Leandro,

Que boa notícia amigo. Espero que atenda suas necessidades.

Abs

[lesobreira]

Saulo eu utilizei o modelo que enviou e adaptei com as minhas necessidades. Contudo, apareceu um erro que vêm do fato de eu ter atribuído um .rowsource ao listbox e em outro momento tento add itens, gerou erro de permissão negada 70, descobri que tirando o .rowsource e fazendo por cell.offset eu conseguia acrescentar outros itens, porém não está carregando o cabeçalho da listbox. Estou pesquisando na net se encontro o problema, mas se puder me ajudar agradeço.

O trecho do initialize do userform está a seguir:

Dim cell As Range
Dim Rng As Range
With Plan2
linha = .Range("t1048576").End(xlUp).Row
Set Rng = .Range("t8:t" & linha + 1)
End With

For Each cell In Rng.Cells
With Me.ListBox1
.ColumnCount = 6
.ColumnWidths = "70;200;70;70;70;70"
'.ColumnHeads = True
.AddItem cell.VALUE
.List(.ListCount - 1, 1) = cell.Offset(0, 1).VALUE 'Coluna 1
.List(.ListCount - 1, 2) = cell.Offset(0, 2).VALUE 'Coluna 2
.List(.ListCount - 1, 3) = cell.Offset(0, 3).VALUE 'Coluna 3
.List(.ListCount - 1, 4) = cell.Offset(0, 4).VALUE 'Coluna 4
.List(.ListCount - 1, 5) = cell.Offset(0, 5).VALUE 'Coluna 5
End With
Next cell

Mesmo com o .columnheads ativado, o comando não carrega a primeira linha como título. Sabe me dizer porque?

Leandro,

Que boa notícia amigo. Espero que atenda suas necessidades.

Abs

[srobles]

Leandro,

Até onde tenho conhecimento, ListBox só aceita cabeçalhos com a propriedade RowSource definida. Aparentemente, há um modo de utilizar os cabeçalhos usando .AddItem, porém, parece ser muito trabalhoso.

O que os Mestres mais indicam, seria adicionar Label's e setar seus valores manualmente ou por laços do tipo For =>Next ou Do =>While para retornar os valores de cada coluna.

As propriedades .Width de cada Label, podem ser obtidas através do laço, pegando o tamanho de cada coluna e, setadas á cada controle durante a leitura dos dados da linha 1.

Veja se o modelo em anexo te ajuda na compreensão do que disse acima.

Abs

[lesobreira]

Obrigado Saulo!

No mesmo dia que postei entendi o que estava dando errado, exatamente o que me explicou. O exemplo que postou certamente me ajudará em outras dúvidas.

Leandro

Leandro,

Até onde tenho conhecimento, ListBox só aceita cabeçalhos com a propriedade RowSource definida. Aparentemente, há um modo de utilizar os cabeçalhos usando .AddItem, porém, parece ser muito trabalhoso.

O que os Mestres mais indicam, seria adicionar Label's e setar seus valores manualmente ou por laços do tipo For =>Next ou Do =>While para retornar os valores de cada coluna.

As propriedades .Width de cada Label, podem ser obtidas através do laço, pegando o tamanho de cada coluna e, setadas á cada controle durante a leitura dos dados da linha 1.

Veja se o modelo em anexo te ajuda na compreensão do que disse acima.

Abs

[srobles]

Leandro,

Que bom que identificou o problema amigo, e é assim mesmo que aprendemos e contornamos eles, através de tentativa e erro.

Abs e obrigado