เปลี่ยนค่าเฉพาะที่ Filter ไว้เท่านั้น VBA

[Jirawat namrach]

รบกวนสอบถามหน่อยครับ พอดีว่ามีรายการ Bom จำนวนมาก ในแต่ละ Bom มี Part หลายรายการ ถ้าต้องการเปลี่ยน Part ใน Bom หากไม่ได้ Filter ไว้ ให้เปลี่ยนทุก Bom หาก Filter ไว้ ให้เปลี่ยนเฉพาะ Bom ที่ Filter เท่านั้น ต้องแก้ไข Code ยังไงครับ

Code: Select all

r = Range("c" & Rows.Count).End(xlUp).Offset(1, 0).Row
For i = 2 To r
    If Range("m1").Value = Range("c" & i).Value Then
    Range("c" & i).Value = Range("n1").Value
    Range("e" & i).Value = Range("m1").Value
    End If
Next i

[snasui]

กรุณาแนบตัวอย่างไฟล์พร้อม Code ที่เขียนมาเองแล้ว แสดงตัวอย่างคำตอบที่ต้องการให้เห็นเด่นชัด จะได้สะดวกในการตอบของเพื่อนสมาชิกครับ

[Jirawat namrach]

ตามไฟล์แนบ ต้องการเปลี่ยน Code SX31000W02 (M1) เป็น SX31000W03 (N1) ถ้าหาก filter ไว้ในบาง Bom (A:A) ให้เปลี่ยนเฉพาะที่ filter ไว้เท่านั้น แต่หากไม่ได้ filter ไว้เลย ให้เปลี่ยนทุก Bom ครับ ขอคำแนะนำด้วยครับอาจารย์

Code: Select all

Sub updata()
Dim i As Long
Dim r As Long

Application.ScreenUpdating = False

r = Range("c" & Rows.Count).End(xlUp).Offset(1, 0).Row
For i = 2 To r
    If Range("m1").Value = Range("c" & i).Value Then
    Range("c" & i).Value = Range("n1").Value
    Range("e" & i).Value = Range("m1").Value
    End If
Next i

Application.ScreenUpdating = True
End Sub

[snasui]

ตัวอย่างการปรับ Code ครับ

Code: Select all

'Other code
For i = 2 To r
    If Range("c" & i).EntireRow.Hidden = False And Range("m1").Value = Range("c" & i).Value Then
        Range("c" & i).Value = Range("n1").Value
        Range("e" & i).Value = Range("m1").Value
    End If
Next i
'Other code

[Jirawat namrach]

ขอบคุณมากครับอาจารย์