Jump to content
Fórum Script Brasil
  • 0

DUVIDA PARA ARRASTAR A FORMULA.


Question

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 


 

Edited by danielcaitano
Link to post
Share on other sites

1 answer to this question

Recommended Posts

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.



  • Forum Statistics

    • Total Topics
      148674
    • Total Posts
      644490
×
×
  • Create New...