Snasui Excel Forum

Code: Select all

Sub GetData()

 Sheets("Forms").Range("A64:J90").ClearContents

            Dim rFind As Range, rDataAll As Range
            Dim r As Range, rTarget As Range
            Dim ws As Worksheet, i As Integer
                Set ws = Worksheets("Forms")
                Set rFind = Sheets("Forms").Range("D11")
                Application.EnableEvents = False
                ws.Range("A64:J90").ClearContents
                
                If Sheets("Forms").Range("D11") = "" Then Exit Sub
                
                With Sheets("List")
                    Set rDataAll = .Range("B38", .Range("B" & Rows.Count).End(xlUp))
                    If .Columns("B:B").Find(rFind, LookIn:=xlValues) Is Nothing Then
                        MsgBox ("ไม่มีรายการนี้")
                        Exit Sub
                    End If
                End With
                i = 64
                For Each r In rDataAll
                    If r = rFind Then
                            ws.Range("B" & i).Resize(1, 3).Value = _
                            r.Offset(0, 1).Resize(1, 3).Value
                        i = i + 1
                    End If
                Next r
                Application.EnableEvents = True
           ' MsgBox "Get data has finished."
            Set ws = Nothing
           Set rFind = Nothing
           Set rDataAll = Nothing
          
End Sub