Snasui Excel Forum

Code: Select all

Set rj = wbShare.Sheets("Sheet1").Range("J" & Rows.Count).End(xlUp).Offset(1, 0)

Code: Select all

Sub PasteData()
        Dim wbShare As Workbook
        Dim formBook As Workbook
        Dim rTarget As Range
        Dim i As Integer
        Dim E As Long
        Dim rs As Range
        Dim rt As Range
         Dim rj As Range
        Dim rd As Range
        Set formBook = ThisWorkbook
        Set wbShare = Workbooks("DB.xlsx")
        On Error Resume Next                                   ' ดักเผื่อหากชีท Sheet1ไม่ Filter ให้ทำขั้นตอนต่อไป
        wbShare.Sheets("Sheet1").ShowAllData      ' โค๊ดสั่งให้ปลด AutoFilter
         Set rj = wbShare.Sheets("Sheet1").Range("J" & Rows.Count).End(xlUp).Offset(1, 0)
        With wbShare
                E = .Sheets("Sheet1").Range("e" & Rows.Count).End(xlUp).Value + 1
                Select Case formBook.Sheets("Form").Range("o2").Value
                        Case "บิลซื้อ"
                            E = formBook.Sheets("Sheet1").Range("c2")
                        Case "ใบกำกับภาษี"
                            E = formBook.Sheets("Sheet1").Range("c3")
                        Case "ใบลดหนี้"
                            E = formBook.Sheets("Sheet1").Range("c4")
                End Select
                formBook.Worksheets("Form").Range("m2").Value = E
        End With
       
         wbShare.Save
       
        With formBook
                i = .Worksheets("Form").Range("C225").Value
        End With
        With formBook.Worksheets("Template")
                Set rs = .Range(.Range("A2"), .Range("Z" & i + 1))
        End With
                Set rt = wbShare.Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
                        If formBook.Worksheets("Form").Range("C225") = True Then
                        End If
              
        If formBook.Worksheets("Form").Range("B204") = "" Then
                MsgBox "Your data is empty. Fill your data and click record button again."
            Exit Sub
        End If
             rs.Copy: rt.PasteSpecial xlPasteValues
            formBook.Save
            formBook.Activate
            formBook.Sheets("Form").Range("D2,B204:B220,D204:D220,D222, E204:F220,N204:N220").ClearContents
End Sub