สอบถามการเขียนคำสั่ง VBA ให้บันทึกลงใน sheet พร้อมกันทั้ง 3 หน้าครับ

[toompk]

สวัสดีครับ
ผมสอบถามการเขียนคำสั่ง VBA ให้มีการบันทึกลงพร้อมกันทั้ง 3 sheet หน่อยครับ พอดีว่าผมไม่เก่งเรื่องการเขียนคำสั่ง vba ครับ
ผมเขียนมาได้เท่านั้นครับ

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

ไฟล์งานตัวอย่างครับ

[logic]

ลองดูแบบนี้ครับ

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
    Dim mySheet As Worksheet
    For Each mySheet In Worksheets(Array("Sheet1", "Sheet2", "Sheet3"))
        With mySheet
        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
    Next mySheet
End Sub

[toompk]

ขอบคุณมากครับ คุณ logic

จากคำสั่งที่คุณ logic แก้ให้ผมยังติดตรงที่เวลากดแล้วมันใส่ค่าพร้อมกันที่เดียว 3 ช่องเลยครับ
ผมอยากให้ใส่ทีละ 1 ช่องลงมาเลื่อนๆครับ ต้องใช้คำสั่งอะไรครับผม

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
    Dim mySheet As Worksheet
    For Each mySheet In Worksheets(Array("Sheet1", "Sheet2", "Sheet3"))
        With mySheet
        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
    Next mySheet
End Sub

[logic]

กติกาคือปรับโค้ดมาก่อนครับ

ดูตัวอย่างการวางข้อมูลแบบต่อท้ายของเดิมที่นี่แล้วลองเขียนดู ➡ https://snasui.com/viewtopic.php?t=945

หรือค้นหาพวก .end(xlup).offset(1,0) ในฟอรัมนี้มีเยอะมาก