Este fórum está sendo desativado

[RodrigoPortella]

Olá pessoal, sou novo em VBA e estou fazendo uma planilha de orçamentos, ja consegui fazer bastante coisa porém não consigo configurar o botao "INCLUIR PORTAS". Preciso que salve as informações e pule para a linha de baixo conforme a quantidade de portas que forem necessárias no orçamento.

O código expecifico é esse:

Código: Selecionar todos

'BOTAO PARA SALVAR PORTAS E PULAR PARA PROXIMA LINHA
Private Sub INCLUIRPORTAS_Click()

'COR DO LED
    Range("LINHA_LED") = MODELOLED

'QTD DE LED
    Range("LINHA_QTDLED") = QTDLED
    
'GRAVAR MODELO DO ACABAMENTO
    Range("LINHA_MODELOCAPINHA") = MODELOACAB
    
'GRAVAR MODELO DO PUXADOR
    Range("LINHA_MODELOPUXADOR") = MODELOPUXADOR
    
        If MODELOPUXADOR = "0076" Or MODELOPUXADOR = "0076T" Or MODELOPUXADOR = "0088" Then
            MODELOPERFIL = "1036"
            Range("LINHA_MODELOPERFIL") = "1036"
            MsgBox "Atenção! Esse modelo de puxador pode ser usado apenas com o perfil 1036.", vbCritical, "GMAD i9"
    
        End If
        
'GRAVAR COR DO ACABAMENTO/CAPINHA
    Range("LINHA_CORCAPINHA") = CORACAB
'-------------------------------------------------
        
'GRAVAR COR DO PERFIL/PUXADOR
    Range("A10") = CORPUXADOR

'GRAVAR COR DO VIDRO
    Range("H10") = CORVIDRO

'GRAVAR ALTURA DAS PORTAS
    Range("C10") = ALTURAPORTAS

'GRAVAR LARGURA DAS PORTAS
    Range("D10") = LARGURAPORTAS

'GRAVAR MEDIDA DOS FUROS
    Range("M10") = MEDIDAFUROS

'GRAVAR MODELO DO PERFIL
    Range("G10") = MODELOPERFIL

'GRAVAR QTD DE FUROS
    Range("L10") = QTDFUROS

'GRAVAR QTD DE PORTAS
    Range("B10") = QTDPORTAS

'GRAVAR TIPO DE PORTAS
    Range("J10") = TIPOPORTAS
    
    If Range("J10") = "CORRER" Then
        Portadecorrer.Show
        End If
        
End Sub

Também anexei a planilha
Desde ja agradeço!

[eduardogrigull]

Nao consegui entender muito o seu código. Mas se for pela lógica, voce pode jogar seu código dentro uma rotina For, assim:

Código: Selecionar todos

For i = 1 to [b]QuantidadePortas[/b]
        
         'Seu código, o do botao

       'Selecionar a célula abaixo da selecao atual
       ActiveCell.Offset(1, 0).Select

Next i