Excel Forum

Code: Select all

Sub กล่องข้อความ1_คลิก()
Range("a2:d8").Select
    Selection.Copy
    Sheets("2").Select
    lastrow = Application.Match(9.99999999999999E+307, Sheets("2").Range("a:a")) + 1
    Range("a" & lastrow).Select
    Selection.PasteSpecial xlPasteValues
    Sheets("1").Select
    Range("a2:d8").Select
    Application.CutCopyMode = False
    Selection.ClearContents
    Range("a2").Select
End Sub

Code: Select all

Sub กล่องข้อความ1_คลิก()
Application.ScreenUpdating = False
  Sheets("1").Range("A2:d8").Copy
            Sheets("2").Range("A65536").End(xlUp).Offset(1, 0) _
                .PasteSpecial xlPasteValues
    Sheets("1").Select
    Range("a2:d8").Select
    Application.CutCopyMode = False
    Selection.ClearContents
    Range("a2").Select
    Application.ScreenUpdating = False
End Sub

Code: Select all

Sub กล่องข้อความ1_คลิก()
Application.ScreenUpdating = False
  Sheets("1").Range("A2:d8").Copy
            Sheets("2").Range("A65536").End(xlUp).Offset(1, 0) _
                .PasteSpecial xlPasteValues
    Sheets("1").Select
    Range("a2:d8").Select
    Application.CutCopyMode = False
    Selection.ClearContents
    Range("a2").Select
    Application.ScreenUpdating = True
End Sub

Code: Select all

Sub AbcdEfGh()
    Range("a2:d8").Select
    Selection.Copy
    Sheets("2").Select
    If Range("a1") = "" Then
        lastrow = 1
    Else
        lastrow = Range("a100000").End(xlUp).Offset(1, 0).Row
    End If
    Range("a" & lastrow).Select
    Selection.PasteSpecial xlPasteValues
    Sheets("1").Select
    Range("a2:d8").Select
    Application.CutCopyMode = False
    Selection.ClearContents
    Range("a2").Select
End Sub

Code: Select all

Sub TextBox2_Click()
    Range("h3:l43").Select
    Selection.Copy
    Sheets("Alldata").Select
    If Range("a1") = "" Then
        lastrow = 1
    Else
        lastrow = Range("a100000").End(xlUp).Offset(1, 0).Row
    End If
    Range("a" & lastrow).Select
    Selection.PasteSpecial xlPasteValues
    Sheets("edit").Select
    Range("i3:l43").Select
    Application.CutCopyMode = False
    Selection.ClearContents
    Range("i3").Select
End Sub

Code: Select all

Public Sub CopyAndPaste()

    Dim FormWs As Worksheet
    Dim DataWs As Worksheet
    Dim lngLastRow As Long
    
    Set FormWs = Sheets("Edit")
    Set DataWs = Sheets("AllData")
    
    lngLastRow = FormWs.Range("I" & Rows.Count).End(xlUp).Row
    
    FormWs.Range("H3:L" & lngLastRow).Copy
    
    lngLastRow = DataWs.Range("B" & Rows.Count).End(xlUp).Row
    
    DataWs.Range("B" & lngLastRow).Offset(1, 0).PasteSpecial xlPasteValues
    
    Application.CutCopyMode = False
    Set FormWs = Nothing
    Set DataWs = Nothing
    
End Sub