Excel Forum

ได้เรียบร้อยแล้วค่ะ ขอบคุณมากน่ะค่ะ

ขอคำปรึกษาค่ะ
จริงๆทำได้แล้วค่ะ แต่ติดตรงที่ต้องการให้ ชื่อที่บันทึก เหมือนกับเซลที่มีอยู่ค่ะ
เกิดบัคค่ะ ต้องแก้ไขตรงไหน เริ่มอย่างไรค่ะ
แชร์ไฟล์ค่ะ
https://1drv.ms/x/s!AifSF3XzOAibw3LgxpANVQeaOQRZ?e=YiFEUX


Dim rgExp As Range: Set rgExp = Sheets("Bill").Range("A1:K37")
''' Copy range as picture ...

ไม่ได้แนบตัวอย่างเพราะไฟล์มันใหญ่ มันอัพโหลดไม่ได้ค่ะ

สอบถามค่ะ

เวลาที่เราสั่งพิมงาน แต่ต้องการให้เป็น .jpg แต่ที่ทำอยู่ปัจจุบันเป็น pdf
ต้องแก้ไขตรงนี้ExportAsFixedFormat xlTypePDF
อย่างไรค่ะ

ขอคำแนะนำหน่อยค่ะ

Worksheets("Bill").Activate
Range("A1:K37").Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$K$37"


Dim path As String
Dim I As ...

อัพเดทค่ะ ตอนนี้ทำได้แล้วค่ะ
ขอบคุณค่ะ

รบกวนช่วยดูโค็ดให้หน่อยค่ะ
กดอัพเดทข้อมูลแต่ข้อมูลที่ได้ไปบันทึกแถวสุดท้ายค่ะ
อยู่ใน Useform : ค้นหาอัพเดท ค่ะ

ขอบคุณค่ะ

Private Sub CommandButton2_Click()
Dim irow As Long
Dim ws As Worksheet
On Error Resume Next
If Err.Number = 13 Then
MsgBox "ไม่พบข้อมูล"
GoTo iNet
End If
If TextBox63 ...

ได้แล้วค่ะ ขอบคุณน่ะค่ะ

ขอโทษน่ะค่ะลืมแนบไฟล์งานให้
ขอบคุณค่ะ

เนื่องจากแนบไฟล์ไม่ได้ แนบลิ้งให้ดาวโหลดแทนน่ะค่ะ
http://www.mediafire.com/file/61bhwhbhw ... .xlsm/file

รบกวนช่วยดูโค๊ดให้หน่อยค่ะ
สั่งพิมเอกสารแล้วมันขึ้นerror
พยายามแก้แต่ไม่รู้ว่าเพราะอะไรค่ะ
Private Sub ComboBox2_Change()
Sheets("บ้านปูม้า").Range("B2").Value = ComboBox2.Value
บันทึกรายการซื้อขาย.TextBox66 = Sheets("บ้านปูม้า").Range("D2")
End Sub


Private Sub CommandButton15_Click()
With ...

ตัวอย่างค่ะ 1
ค้นหาเลขที่บิล 10013 กดค้นหาซื้อหน้าบ้าน ข้อมูลขึ้นมา เราทำการแก้ไขจำนวนเงิน เป็น 1313 แล้วกดอัพเดทซื้อหน้าบ้าน
ซึ่งต้องการให้บันทึกแถวที่30 แต่พอกดอัพเดทแล้วไปบันทึกแถวที่34ค่ะ

ตัวอย่างค่ะ 2
ค้นหาเลขที่บิล 10049 กดค้นหาซื้อหน้าบ้าน ข้อมูลขึ้นมา เราทำการแก้ไขจำนวนเงิน เป็น 4949 แล ...

อาจารย์ค่ะลองไปปรับแบบที่อาจารย์บอกแล้วแต่ยังเป็นเหมือนเดิมเลยค่ะ คือเวลาที่กดอัพเดทข้อมูลก็จะไปบันทึกที่แถวอื่นค่ะ รบกวนอาจารย์อีกรอบน่ะค่ะ
ขอบคุณค่ะ

รบกวนอาจารย์ช่วยดูโค๊ดให้หน่อยค่ะว่าผิดตรงไหน คือค้นหาแล้วแก้ไขข้อมูลแต่เวลาที่เรากดอัพเดทข้อมูลจะไปบันทึกที่แถวข้างบน ซึ่งจริงๆต้องการให้บันทึกที่แถวเดิมค่ะ
ตัวอย่างโค๊ด

Private Sub CommandButton3_Click()
Dim irow As Long
Dim ws As Worksheet
On Error Resume Next
If Err.Number = 13 Then
MsgBox ...