คลังคำตอบแห่งความรู้จากคนไทย เพื่อโลกที่ต้องการเข้าใจในสิ่งเล็ก ๆ อย่างลึกซึ้ง
https://www.snasui.com/
พอเราป้อนข้อมูลที่ Sheet "hhh" แล้ว Save ไปไว้ที่ Sheet"lll" แล้วลบแถวที่ Sheet"ddd"ทิ้ง ไม่พบคำสั่งแมโครครับไฟล์ที่จะแนบแมโครได้ต้องเป็นไฟล์ที่มีนามสกุลเป็น .xlsm ครับยังไงลองแนบไฟล์มาดูใหม่ครับ คำถามก่อนหน้านี้ทำได้แล้วครับ แต่ติดปัญหาอยู่ที่ Save ข้อมูลแล้วแถวไม่เรียงต่อกัน ครับ ท่านใดรู้ช่วยแนะนำผมด้วยครับ
Code: Select all
Code: Select all
Sub Macro1()
Dim DB As Variant, Source As Range
Dim rhhh As Range, rh As Range
Dim rddd As Range, rd As Range
Set Source = Sheets("hhh").Range("B6:C19")
Application.ScreenUpdating = False
' i = WorksheetFunction.CountA(Worksheets("lll").Columns("a:a"))
Sheets("lll").[B65535].End(xlUp).Offset(1, 0) _
.Resize(Source.Rows.Count, 2) = Source.Value
MsgBox "ºÑ¹·Ö¡àÃÕºÃéÍÂ"
With Sheets("hhh")
Set rhhh = .Range("B6", .Range("B" & Rows.Count).End(xlUp))
End With
With Sheets("ddd")
Set rddd = .Range("B1", .Range("B" & Rows.Count).End(xlUp))
End With
For Each rh In rhhh
For Each rd In rddd
If rd = rh Then rd = ""
Next rd
Next rh
Stop
rddd.SpecialCells(xlCellTypeBlanks).EntireRow.Delete
Application.ScreenUpdating = True
End Sub
Error ตรง Stop ครับอาจารย์
อันนั้นไม่ใช่ Error ผม Stop ไว้เพื่อดูผลลัพธ์ ให้ลบคำว่า Stop ทิ้งไปครับ
ใช้ได้แล้วครับอาจารย์ ขอบคุณครับสำหรับคำแนะนำ ผมเพิ่งหัดใช้ VBA เลยไม่ค่อยเข้าใจเท่าไหร เลยต้องรบกวนอาจารย์อยู่บ่อยๆเกรงใจอาจารย์เหมือนกัน