Snasui Excel Forum

Code: Select all

Private Sub CommandButton3_Click()
    Dim p As String
    p = Application.GetOpenFilename(filefilter:="Picture (*.*),*.*")
    If p = "False" Then
        MsgBox "Please select file."
    Else
       TextBox3.Text = p
    End If
End Sub

Code: Select all

Sub Imageff1()
    UserForm2.Image2.Picture = LoadPicture(UserForm2.TextBox11.Text)
End Sub

Code: Select all

Sub find()
    Dim input1 As Range, input2 As Range
    Dim rall As Range, cell As Range
    Set input1 = Worksheets(1).Range("b1")
    Set input2 = Worksheets(1).Range("g1")
    Worksheets("ค้นหา").Range("a4").Resize(1000, 10).ClearContents
    With Sheets("เพิ่ม")
        Set rall = .Range("a3", .Range("a" & .Rows.Count).End(xlUp))
    End With
    For Each cell In rall
        If Application.CountIf(cell.Resize(1, 7), input1) > 0 Or _
            Application.CountIf(cell.Resize(1, 7), input2) Then
            With Sheets("ค้นหา").Range("a" & Rows.Count).End(xlUp)
                .Offset(1, 0).Value = cell.Offset(0, 5).Value
                .Offset(1, 1).Value = cell.Value
                .Offset(1, 4).Value = cell.Offset(0, 4).Value
                .Offset(1, 5).Value = cell.Offset(0, 5).Value
                .Offset(1, 6).Value = cell.Offset(0, 6).Value
            End With
        End If
    Next cell
End Sub