VBA to Copy and Paste Rows if Condition

[plastakis]

Hi,

I need prepare offer form. In Sheet 2 i have database with all products and full information about them in row. In sheet1 i have offer(proposal) form. So i trying to make such form, that you can select specific product in Sheet 2 using checkbox and that product with full information which arein same row automatic export in proposal form (under 17 row). Please help me because i searched, but haven't found...

 

[plastakis]

Thanks a lot this code works great!! I have one question is it possible to upgrade this code that when copy data to Skaiciavimai sheet stays Skaiciavimai sheet format, like table lines and format? because right now i just get blank cell in paste area.

 

[plastakis]

Thanks one more time for your help!! I am very grateful for both codes! And i have final question is it possible copy from "Agregatu lentele" to "Skaiciavimai" just values ? Because right now copy all formulas..

 

[My Aswer Is This]

In post 11 you say you want to paste everything.
In post 12 you say you want to only paste values.
So what is it??

 

[plastakis]

Oh Sorry for this misunderstanding . Please ignore 11th post...

 

[My Aswer Is This]

Try this:

Sub Button5_Click()
'Modified  4/23/2019  9:22:50 AM  EDT
Dim a As Long
Dim b As Long
a = Worksheets("Agregatu lentele").Cells(Rows.Count, 2).End(xlUp).Row
b = Worksheets("SKAICIAVIMAI").Cells(Rows.Count, 1).End(xlUp).Row
    For i = 2 To a
        If Sheets("Agregatu lentele").Cells(i, 2).Value = True Then
            Sheets("Agregatu lentele").Cells(i, 1).Resize(, 5).Copy
            Sheets("SKAICIAVIMAI").Cells(b, 1).PasteSpecial xlPasteValues
            b = b + 1
        End If
    Next
Application.CutCopyMode = False
Application.Goto ThisWorkbook.Worksheets("Agregatu lentele").Cells(1, 1)
End Sub