DUVIDA PARA ARRASTAR A FORMULA.

[danielcaitano]

Bom dia, sou novo no Fórum. Meu conhecimento de programaçao e vba é bem limitado, Criando um sistema para a confeitaria da minha esposa e travei num determinado ponto. Espero conseguir explicar meu problema 

EU tenho o Código abaixo :

Private Sub CommandButton_SALVAR_Click()
 ' Verificar se algum cliente foi seleciona
    If ComboBox_CLIENTE = "" Then
    MsgBox " Selecione o Cliente. "
    Exit Sub
    Else
    Worksheets("pedido").Select
    Cells(5, 2) = ComboBox_CLIENTE
    End If
    
        'Verificar se checkbox dos produtos estão habilitadas,
        'caso esteja colocar na planilha produto o item do doce e as quantidades digitadas
        'variavel com numero da linha em que será inserida a informaçao
        produto = 11
            
            If CheckBox_brigadeiro.Value = True Then
                    Worksheets("pedido").Cells(produto, 1) = Worksheets("produtos").Cells(36, 1)
                                'verifica se foi inserido a quantidade
                                ' caso não tenha inserido, exibir mensagem
                               
        
                        If TextBox_brigadeiro = "" Then
                                MsgBox " Insira as quantidades de Brigadeiro, ou desmarque a opção."
                                Exit Sub
                                Else
                                Worksheets("pedido").Cells(produto, 5) = TextBox_brigadeiro
                                                    '
                                            ' adicionar_linha Macro
                                            produto = produto + 1
                                                'adicionar uma linha abaixo da linah preenchida
                                                Rows(produto).Select
                                                Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
                                                Rows("11:11").Select
                                                Selection.Copy
                                                Rows(produto).Select
                                                Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
                                                SkipBlanks:=False, Transpose:=False
                                                Application.CutCopyMode = False
                                               ' puxarformula Macro
                                                '
                                                 Selection.AutoFill Destination:=Range("D11:D12"), Type:=xlFillDefault
                                                    Range("D11:D12").Select
                                                    Range("F11").Select
                                                    Selection.AutoFill Destination:=Range("F11:F12"), Type:=xlFillDefault
                                                    Range("F11:F12").Select
                                                    End If
End If
End Sub
                              
 --------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

 

ATE A PARTE QUE ESTÁ EM AZUL, TUDO OK, 
verifiquei se a caixa com nome dos clientes estão preenchidas e inserir esse valor da caixa para uma célula especifica no Excel 
depois eu defini a variável produto, que irá receber o numero da linha do primeiro produto escolhido.
em seguida eu verifico se um checkbox está marcada,e caso esteja eu copio um conteudo da planilha produtos para a planilha pedido ( na linha da variável produto). E depois eu verfico se a caixa de texto foi preenchida, caso tenha sido preenchida jogo o conteúdo dessa caixa de texto para a outra celula da planilha pedido ( na mesma linha da variável produto).
Apos isso, eu adiciono 1 a variável produto, insiro uma nova linha, copio as formatações da linha anterior e colo na linha criada. 

ATE AI TUDO CERTO. PROGRAMA FUNCIONA CORRETAMENTE
A parte vermelha é onde eu to com problema.  Eu quero eu arraste as formula da celula D11 e F11, ate a linha que foi criada anteriormente, 
e não apenas ate a linha D12 e F12. 

dessa forma, quando eu escolher 10 ou 15 produtos, a formulas serão arrastada nas 10 ou 15 linha subsequentes. 

ESPERO QUE TENHA SIDO CLARO 


 

Editado Março 4, 2020 por danielcaitano

[Alyson Ronnan Martins]

Boa noite.

O que quer fazer nesse comando?