Excel VBA - criando uma caixa de texto com algumas funções

[isabela queiroz]

Precisa criar uma caixa de texto que perguntasse duas coisas. A primeira "Qual a posição do item number = (precisava que aqui ele pegasse a informação de uma celula especifia, no caso a celula "C2")?" 

E a segunda pergunta dentro da mesma caixa de texto seria "De quanto em quanto ele acrescenta?" 

 

a primeira pergunta seria para a primeira posição da celula "B17 - Position" e a segunda referente as celulas seguintes. Se s resposta pra primeira pergunta for "10", por exemplo, e a resposta de segunda pergunta for de "10" tambem. preciso que isso ocorra 

 

imaginei algo mais ou menos assim:  mas não tenho conhecimento de VBA suficiente ainda pra saber colocar uma celula como parte do texto da primeira pergunta. Caso não tenho como pensei em fazer uma outra caisxa de textBox perguntando primeiramente qual o Part Number em questão e depois as infos dele para serem preenchidas

 

[Midori]

@isabela queiroz Se possível anexe a planilha, pode ser com dados fictícios. E mostre um exemplo de como deve ficar após as respostas das duas perguntas.

[isabela queiroz]

@Midori  aqui, mas assim, como eu não sei fazer por codigo o imputBox eu não coloquei ele junto, basicamente indiquei o que falei ali em cima, tenho uma macro que vou fazer substituir a "pesquisa" quando acaba o primeiro part number e pegar o proximo item da tabela, quando acabar o  "NXH - 2.4.1.20.0470" para passar pro proximo que seria o "NXH - 2.4.1.20.0471", tenho que pegar essas informações de outras tabelas e tenho que fazer muita coisa ainda nessa planilha, por isso ta meio difícil explicar exatamente o que quero ja que tenho que pensar nas proximas coisas a se fazer tambem, perdão.

 

 

 

exemplo1.xlsx

 

[Midori]

@isabela queiroz Ainda não entendi o que quer dizer com "De quanto em quanto ele acrescenta"

 

Se possível mostre a planilha do exemplo sem edição e como ela está antes da perguta. E depois mostre como deve ficar após a entrada dos valores.

[isabela queiroz]

@Midori Acho que nâo posso mostrar a planilha original por ser dos clientes da minha empresa. Mas o que quis dizer no caso é que quando aparecer a caixa de texo fazendo a pergunta "De quanto em quanto ele acrescenta" seria uma informação que não tem dentro do excel, então teria que ser colocada a mao, o que eu quis dizer com acrescentar foi na verdade seria dizer se ele vai de, por exemplo, 2 em 2, se for de "2" ficaria 2 depois 4, 6 ,8, 10...

se colocar 10 ele vai de 10, 20,30,40... ate acabar.

 

então ali na "position" esta sem informação nenhuma, a intenção é que quando aparecer a caixa de texto com as perguntas e forem colocadas as informações, ele aderir e colocar de 10 em 10, por exemplo.

 

se encontrar alguma forma mais simples de fazer isso pode ser tambem, só não tive alguma ideia melhor, assim ta bem complicado, é que como esse template vai ser usado pra muitas informaçoes de varios clientes to tentando fazer de uma forma meio aberta para não dar erro com nenhum dos numeros que forem colocados lá.

 

exemplo1.xlsx

[Midori]

@isabela queiroz Usei o primeiro anexo como modelo. Veja se é isto,

 

Sub AdicionaPosition(Area As Range, Inicio As Integer)
    Dim Celula  As Range
    Dim Proximo As Integer
    
    Proximo = Inicio
    
    For Each Celula In Area
        Celula = Proximo
        Proximo = Proximo + Inicio
        If UBound(Filter( _
            Application.Transpose([A5:A13]), Celula(2, 2))) > -1 Then
                Proximo = Inicio
        End If
    Next Celula
End Sub

Sub Macro()
    Dim Numero  As Integer
    
    Numero = InputBox("Informe o número")
    
    Call AdicionaPosition([B17:B64], Numero)
End Sub

 

[isabela queiroz]

@Midori exatamente isso! a unica coisa que não sei se tem como fazer mas precisava era que os dois primeiros fossem iguais em vez da macro fazer assim 10, 20, 30, 40...

fazer o primeiro ser 10, o segundo 10 tambem que ele sempre vai ser baseado no primeiro. Basicamente considerar que o primiero que ta de azul é o lider e os outros vão se basear nele então o proximo tambem vai ser 10, igual o primeiro então ficaria

 10, 10, 20, 30...

[Midori]

@isabela queiroz Para repetir no segundo fica assim,

 

Sub AdicionaPosition(Area As Range, Inicio As Integer)
    Dim Celula  As Range
    Dim Proximo As Integer
    
    Proximo = Inicio
    
    For Each Celula In Area
        Celula = Proximo
        Proximo = Proximo + Inicio
        If UBound(Filter( _
            Application.Transpose([A5:A13]), Celula(1, 2))) > -1 Or _
            UBound(Filter( _
                Application.Transpose([A5:A13]), Celula(2, 2))) > -1 Then
                    Proximo = Inicio
        End If
    Next Celula
End Sub

 

[isabela queiroz]

@Midorieu fui passar pra macro certa com os dados originais e não mudou nada, eu testei na de exemplo que te mandei e funcionou, não entendi porque noa funcionou na original, as coisas estão nas mesmas celulas, a unica coisa que muda é essa parte aqui  que na que te mandei começa na A5 e na original começa na A2 mas eu alterei isso no codigo ficando assim 

 

Sub AdicionaPosition(Area As Range, Inicio As Integer)
    Dim Celula  As Range
    Dim Proximo As Integer
    
    Proximo = Inicio
    
    For Each Celula In Area
        Celula = Proximo
        Proximo = Proximo + Inicio
        If UBound(Filter( _
            Application.Transpose([A2:A11]), Celula(1, 2))) > -1 Or _
            UBound(Filter( _
                Application.Transpose([A2:A11]), Celula(2, 2))) > -1 Then
                    Proximo = Inicio
        End If
    Next Celula
End Sub

 

[Midori]

@isabela queiroz A contagem só recomeça caso o item number seja encontrado na tabela part number. No print que postrou o item number começa com 364.