ข้อมูลทับกันเวลาเผลอ Filter ค้างไว้ป้อนหรือแก้ตรงไหนครับ

[Kritty03]

ผมทำฟอร์มไว้กรอกบันทึกข้อมูลไว้ แยกเป็นรายๆ แต่มีปัญหาเวลาเข้าไปดูรายที่บันทึกแล้วกด Filter รายการค้างไว้ เช่นรายการสุดท้าย
พอเรามากดบันทึกข้อมูลไปที่รายนั้น ปรากฏว่าข้อมูลไปทับกันอยู่ช่องเดียวเลย
พอจะมีวิธีแก้ในกรณีนี้ไหมครับ หรือป้องกันการ Filter ค้างรายการไว้

[snasui]

ไฟล์ที่มี Code อย่างน้อยจะต้องมีนามสกุลเป็น .xlsm, .xlsb, .xltm, .xls เป็นต้นครับ

ปกติแล้วก่อนการบันทึกข้อมูลให้ยกเลิกการ Filter เสียก่อนครับ

[Kritty03]

ตอนนี้ได้โค๊ตแล้ว แต่พอมันดันขึ้นทุกหน้าเลยครับ จะให้ขึ้นเปิดปิด Filter เฉพาะหน้าที่บันทึกข้อมูลลงไปอ่ะ

Code: Select all

Public Sub StopAllFilters()
  Dim wd As Worksheet
  For Each wd In ActiveWorkbook.Worksheets
   If wd.AutoFilterMode = True Then
      wd.AutoFilterMode = False
   End If
  Next wd
End Sub

[Kritty03]

ได้แล้วครับ เอาโค๊ตไปวาง หัวท้าย ก่อนบันทึกข้อมูล
ไม่ต้องไป Call
ขอบคุณมากครับ

Code: Select all

Sheets(ws).AutoFilterMode = False