Snasui Excel Forum

Code: Select all

Sub PasteData()
        Dim wbShare As Workbook
        Dim formBook As Workbook
        Dim rTarget As Range
        Dim E As Long
        Dim rs As Range
        Dim rt As Range
        Set formBook = ThisWorkbook
        Set wbShare = Workbooks("CusID_Share.xlsx")
        With wbShare
            E = .Sheets("Sheet1").Range("b" & Rows.Count).End(xlUp).Value + 1
            Select Case formBook.Sheets("Form").Range("a5").Value
                Case "ก"
                    E = formBook.Sheets("Alphabetize").Range("c2")
                  Case "ข"
                    E = formBook.Sheets("Alphabetize").Range("c3")
                Case "ค"
                    E = formBook.Sheets("Alphabetize").Range("c4")
            End Select
        formBook.Worksheets("Form").Range("b5").Value = E
        End With
       
         wbShare.Save
         
        With formBook.Worksheets("Form")
             Set rs = .Range("A5:C5")
        End With
        Set rt = wbShare.Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
        rs.Copy: rt.PasteSpecial xlPasteValues
        formBook.Activate
End Sub

Code: Select all

Sub PasteData()
        Dim wbShare As Workbook
        Dim formBook As Workbook
        Dim rTarget As Range
        Dim E As Long
        Dim rs As Range
        Dim rt As Range
        Set formBook = ThisWorkbook
        Set wbShare = Workbooks("CusID_Share.xlsx")
        With wbShare
            E = .Sheets("Sheet1").Range("b" & Rows.Count).End(xlUp).Row + 1
            Select Case formBook.Sheets("Form").Range("a5").Value
                Case "ก*"
                    E = formBook.Sheets("Alphabetize").Range("c2")
                  Case "ข*"
                    E = formBook.Sheets("Alphabetize").Range("c3")
                Case "ค*"
                    E = formBook.Sheets("Alphabetize").Range("c4")
            End Select
       ' formBook.Worksheets("Form").Range("b5").Value = E
        End With
       
         wbShare.Save
         
        With formBook.Worksheets("Form")
             Set rs = .Range("A5:C5")
        End With
        Set rt = wbShare.Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
        rs.Copy: rt.PasteSpecial xlPasteValues
        formBook.Activate
End Sub

Code: Select all

Dim rng As Range
'Other code
For Each rng In formBook.Sheets("Form").Range("B8:G8,C10,C11,C12:G16")
    If rng.MergeCells Then
        rng.MergeArea.ClearContents
    Else
        rng.ClearContents
    End If
Next rng
'Other code