สอบถามผู้รู้ครับ

[toompk]

สวัสดีครับ พอดีผมติดปัญหาเรื่องการเขียนโค้ด Module ในมันบันทึกพร้อมกับทั้ง 3 sheet ครับผม
ผมได้แนบโค้ดและไฟล์งานที่ผมได้เขียนเองมาให้ดูด้วยครับผม

Code: Select all

Sub Button_250()
Call LoopRange("250")
End Sub
Sub LoopRange(cell As String)
    Dim rngAll As Range
    Dim r As Range
    Dim i As Integer
    With Worksheets("Sheet1")("Sheet2")("Sheet3")
        Set rngAll = .Range("A1:A3")
        For i = 1 To 1
            For Each r In rngAll.Columns(i).Cells
                If r.Value = "" Then
                    r.Value = cell
                    Exit Sub
                End If
            Next r
        Next i
    End With
End Sub

test.xlsm

Capture.PNG

[snasui]

กรุณาตั้งชื่อหัวกระทู้ใหม่ให้เป็นไปตามกฎการใช้บอร์ดข้อ 2 ด้านบนครับ