Snasui Excel Forum

ถ้าต้องการเปลี่ยนย้ายโปรแกรมจะต้องแก้ ตรงไหนบ้างครับ

Sub Notes_Email_Excel_Cells()

Dim NSession As Object
Dim NDatabase As Object
Dim NUIWorkSpace As Object
Dim NDoc As Object
Dim NUIdoc As Object
Dim Attachment1 As String
Dim Attachment2 As String
Dim AttachME As Object
Dim EmbedObj1 ...

บันถึก macro แล้วเป็นสูตรครับ มันยาวพอสมควร เลยทำให้ macro error ต้องแก้ไขยังไงครับ

ทำไฟล์ขึ้นมารวมไฟล์ หลายไฟล์มารวมกันครับแต่ติดตรง ไฟล์มีหลายชีท มีชีท BB กับ AGENT01 แต่ต้องการแค่ชีท AGENT01 ไม่ต้องการ BB ครับ

ต้องการรวมข้อมูลอ่ะครับ แต่ที่ทำอยู่เอามาทุกตารางเลย ถ้าต้องการแต่คอลัม P จะต้องเพิ่มตรงไหนครับ Sub Button1_Click()

Sheets("MTD").Select
Columns("P:P").Select
Count1 = Application.CountA(Columns(1))
Rows("1:" & Count1).Select
Selection.Copy
Sheets("DEP").Select
Count1 = Application.CountA ...

พอดีทำปุ่มถัดไปแล้วไม่สามารถกดได้

โดยตอนนี้ Userform ของผม มีการเลือกข้อมูล 4 ขั้น 1 2 3 4
โดยมีปุ่ม Next เพื่อกดข้อมูลถัดไป อยากจะให้มัน Next แล้วไล่ข้อมูลของ 4 ให้ หมด แล้วก็ไปข้อมูลของ3 ต่อไปซึ่งใน 3ก็มี 4 อยู่( 4เป็นชื่อคน)
ไล่ไปเรื่อยๆจนหมดแล้วกดถัดไปเมื่อสุดข้อมูล3แล้วจะไปขึ้น2 อันถัดไป แล ...

นี้ครับไฟล์

พอดีผมมี combo box แล้วต้องการดึงข้อมูลมาแค่บางตัว
อย่างเช่น
นาย ก อยู่ ภาค 1
นาย ข ภาค 2
นาย ค ภาค 1
(ข้อมูลอยู่ Row เดียวกัน)

combobox ของผมจะเป็นชื่อคน แต่ต้องการคนที่มาแสดงเป็นแค่ภาค 1

Private Sub NameMTD_Change()


Set sh = ThisWorkbook.Sheets("DEP")

Dim N As Long, lastrow As Long ...

สอบถามหน่อยครับ แบบฟอร์ม vba แต่เวลากด combo box แล้วเซลล์ไม่เลื่อนตาม แต่ถ้าเลือกในครั้วแรกเซลล์จะเลื่อนตาม แต่ครั้งที่สองไม่เลื่อน ทำให้เวลากดปุ่มถัดไป มันจะเอาข้อมูลถัดไปจากข้อมูล combo box ที่เลือกอันแรก Private Sub NameMTD_Change()


Set sh = ThisWorkbook.Sheets("DEP")




Dim N As Long ...