ถามครับ-วิธีเคลียร์ข้อมูลในเซล เมื่อกดbuttonส่งข้อมูลไปแล้ว+

[sdmania]

ก่อนอื่นขอขอบคุณอาจารย์นะครับสำหรับสูตรการ addข้อมูลไปต่อคอลัมน์(ในไฟล์ตัวอย่างsheet1 ครับ)ต้องขออภัยที่มาตอบช้ากว่าผมทำได้(ผมทำได้ช้าน่ะครับค่อยๆแกะcodeรวมกับของเก่าครับ) เมื่อวานเห็นติดบำรุงบอร์ดน่ะครับ เลยไม่ได้ขึ้ันคำตอบครับ

ขอเข้าคำถามเลยนะครับ
1.จากไฟล์ตัวอย่าง sheet2-1,sheet2-2เมื่อกดปุ่มส่งข้อมูลในเซลปุ๊บ ทำอย่างไรให้มันเคลียร์ว่างๆหรือมีการบอกว่าส่งข้อมูลเสร็จแล้วครับ ปัญหาก่อนหน้านี้ กดปุ๊บแล้วมันส่งได้เร็วจนเพื่อนพนักงานกดซ้ำน่ะครับ ข้อมูลเลยไปซ้ำกันที่sheet1(เป็นส่วนที่เก็บข้อมูล)

2.ในหน้าต่างvbe ผมเคย insert moduleเกินมาครับ วิธีจะลบออกทำอย่างไรครับ เคยลองคลิกขวาแล้วไม่เห็นมีdelete มีแต่remove เลยยกเลิกคำสั่งเพราะกลัวว่ามันจะพากันลบอะไรในmoduleตัวแรกที่ทำงานอยู่น่ะครับ
รบกวนสอนวิธีลบให้ด้วยครับ

[bank9597]

ลองตามนี้ครับ
ที่ Module1 ใส่โค๊ด

Code: Select all

Sub sheet2_2_Click()
On Error Resume Next
   Dim lng As Long, n As Long
    Dim rLastCol As Range, sn As Range
    lng = Sheets("sheet2-2").Range("b5")
    With Sheets("sheet1")
        Set rLastCol = .Range("A" & lng).End(xlToRight).Offset(0, 1)
    End With
  With Sheets("Sheet2-2")
        .Range("b7").Copy: rLastCol.PasteSpecial xlPasteValues
        .Range("b9").Copy: rLastCol.Offset(0, 1).PasteSpecial xlPasteValues
    Range("B7,B9").SpecialCells(xlCellTypeConstants).ClearContents
    End With
    Application.CutCopyMode = False
End Sub

ที่ Module2 ใส่โค๊ด

Code: Select all

Sub sheet2_1_Click()
On Error Resume Next
   Dim IntRows As Long
    Dim n As Range, sn As Range
    IntRows = Rows.Count
    With Sheets("Sheet1")
        Set n = .Range("A" & IntRows).End(xlUp).Offset(1, 0)
    End With
    Set sn = Sheets("Sheet2-1").Range("A3:d3")
    sn.Copy
    n.PasteSpecial xlPasteValues
    Range("A3:d3").SpecialCells(xlCellTypeConstants).ClearContents
    Application.CutCopyMode = False
End Sub

[sdmania]

ขอบคุณ คุณbank นะครับ เดี๋ยวผมขอนำไปหัดใช้ก่อนนะครับ ประเดี๋ยวผมทำผิดจะได้กลับมาถามใหม่ครับผม

[sdmania]

ได้ผลลัพธ์อย่างที่ต้องการเลยครับคุณbank ขอบคุณครับ