Snasui Excel Forum

Code: Select all

Dim i As Integer, j As Long
Dim r As Range
j = Application.Match(ListBox2.Text, Sheets(1).Range("b:b"), 0)
For i = ListBox4.ListCount - 1 To 0 Step -1
    ListBox4.RemoveItem i
Next i
With Sheets(1)
   For Each r In .Cells(j, 3).Resize(1, 6)
        If r.Value <> "" Then
            ListBox4.AddItem .Cells(1, r.Column).Value
        End If
   Next r
End With

Code: Select all

Dim j As Integer
 Dim tCol As Integer

 TextBox7.Text = " "
  
   j = 3
   While (Sheet1.Cells(1, j) > " ")
  If (Sheet1.Cells(1, j) = ListBox4.Text) Then
   tCol = j
  End If
    j = j + 1
  Wend
    TextBox7.Text = Sheet1.Cells(eRow, tCol)  'รับค่าที่ได้ มาแสดงผล Textbox7 คะ

Code: Select all

Dim irow as Long
Dim ws As Long
Dim count As Integer

lastrow = sheets("item").cells(Rows.count,1).End(xlUp).Row
	For x = 2 to lastrow
	If sheets("item").cells(x,1) = sheet2.Rang ("B2")Then
	sheet2.Rang ("B2") = Sheet ("item").cell(x,1)
	sheet2.Rang ("B2") = Sheet ("item").cell(x,2)
	end If
	Next x
end sub

Code: Select all

Dim Prompt As String
  Dim RetValue As String
  Dim Rng As Range
  Dim RowCrnt As Long

  Prompt = ""

  ' The macro recorder has used the active worksheet.  This says which
  ' worksheet is to be used whether it is active or not.  Change "Sheet4"
  ' to the name of your worksheet.
  With Sheets("Sheet4")

    ' This will loop forever unless a statement within
    ' the loop exits the Do.
    Do While True

      RetValue = InputBox(Prompt & "Give me a value to look for")
      'RetValue will be empty if you click cancel
      If RetValue = "" Then
        Exit Do
      End If

      ' I do not wish to active the cell containing the required value.
      ' I want to know where it is.
      Set Rng = .Columns("A:A").Find(What:=RetValue, After:=.Range("A1"), _
                LookIn:=xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByRows, _
                SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)

      If Rng Is Nothing Then
        ' The entered value could not be found
        Prompt = "I could not find """ & RetValue & """"
      Else
        ' The entered value was found
        RowCrnt = Rng.Row
        Prompt = "I found """ & RetValue & """ on row " & RowCrnt
      End If
      Prompt = Prompt & vbLf
    Loop

  End With

End Sub

Code: Select all

Msgbox ThisWorkbook.Path

Code: Select all

Workbooks.Open "D:\Work\Sep\test"

Code: Select all

  Folder.Open "D:\"Work\Sep\111"