Create Search Formula MS Excel

Download Workbook
              ⇓

Listbox Create Labour Working Hours Calculater

Listbox Create Labour Working Hours Calculater 

Private Sub ComboBox1_Change()
Dim i As Long
For i = 0 To Me.ListBox1.ListCount - 1
Me.ListBox1.Selected(i) = False
c = Application.WorksheetFunction.CountA(Sheet1.Range("A:A"))
If Me.ListBox1.List(i, 0) = Me.ComboBox1.Value And _
Format(Me.ListBox1.List(i, 1), "MMMM") = Me.ComboBox2.Value Then
Me.ListBox1.Selected(i) = True
For x = 1 To 4
Sheet1.Range("A" & c).End(xlToLeft).Offset(1, x - 1) = _
Me.ListBox1.List(i, x - 1)
Next x
End If
Next i
Dim Totala As Long, Totalb As Long
For r = 0 To Me.ListBox1.ListCount - 1
If Me.ListBox1.Selected(r) = True Then
Totala = Totala + Val(Me.ListBox1.List(r, 2))
Totalb = Totalb + Val(Me.ListBox1.List(r, 3))
End If
Next r
If Me.ComboBox1 <> "" And Me.ComboBox2 <> "" Then
Sheet1.Range("A1000000").End(xlUp).Offset(1, 0).Value = "Total"
Sheet1.Range("A1000000").End(xlUp).Offset(0, 1).Value = Me.ComboBox2.Value
Sheet1.Range("A1000000").End(xlUp).Offset(0, 2).Value = Totala
Sheet1.Range("A1000000").End(xlUp).Offset(0, 3).Value = Totalb
End If
End Sub
_____________________________________________________
Private Sub CommandButton1_Click()
For b = 0 To 6
On Error Resume Next
Me.ComboBox1.ListIndex = b
Next b
End Sub
_____________________________________________________
Private Sub CommandButton2_Click()
Dim i As Long
Me.ComboBox1.ListIndex = 0 - 1
For i = 2 To Application.WorksheetFunction.CountA(Sheet1.Range("A:A"))
Sheet1.Range("A" & 2, "D" & i).ClearContents
Next i
End Sub

Listbox fill without worksheets Excel VBA

Textbox Time Format Userform Excel VBA

Listbox data Recovery Excel VBA Userform

Listbox Fill By DatePickerExcell VBA Userform

Create Customer Database Notification Worksheet Excell VBA

VBA Code

Sales

Private Sub UserForm_Initialize()
Me.TextBox1.Text = Format(Date, "DD/MMM/YYYY")
a = Application.WorksheetFunction.CountA(Sheets("database").Range("A:A"))
Me.TextBox2.Value = a + 1000
End Sub

Private Sub CommandButton1_Click()

Dim i As Long

i = Application.WorksheetFunction.CountA(Sheets("Database"). _

Range("A:A")) + 1

For x = 1 To 6

Sheets("Database").Range("A" & i).End(xlToLeft).Offset(0, x - 1).Value = _

Me("textbox" & x).Value

Next x

Unload Me

Sales.Show

Call notify

End Sub

Calculation

Sub notify()

Dim a As Long, x As Long, i As Long

a = Application.WorksheetFunction.CountA(Sheets("Notification"). _

   Range("A:A")) + 1

   Sheets("Notification").Range("A" & 2, "F" & a).ClearContents

For i = 2 To Application.WorksheetFunction.CountA(Sheets("Database"). _

   Range("A:A"))

d = Application.WorksheetFunction.CountA(Sheets("Notification"). _

    Range("A:A")) + 1

For x = 1 To 6

If Sheets("database").Cells(i, "F").Value >= 1 Then

Sheets("Notification").Range("A" & d).End(xlToLeft).Offset(0, x - 1).Value = _

Sheets("database").Cells(i, x).Value

End If

Next x

Next i

End Sub

Recept

Private Sub CommandButton1_Click()

Dim i As Long

For i = 2 To Application.WorksheetFunction.CountA(Sheets("database"). _

Range("A:A"))

If Sheets("Database").Cells(i, "B").Value = Val(Me.TextBox2.Text) Then

Sheets("Database").Cells(i, "E").Value = _

  Val(Sheets("Database").Cells(i, "E").Value) + Val(Me.TextBox3.Value)

Sheets("Database").Cells(i, "F").Value = _

   Val(Sheets("Database").Cells(i, "D").Value) - _

   Val(Sheets("Database").Cells(i, "E").Value)

   End If

   Next i

   Unload Me

   Recept.Show

   Call notify

   End Sub

Scan Worksheet To listbox Use Progressbar Userform Excell VBA

How can use RefEdit In Excel VBA Userform

Combobox Avoid Duplicate Value In Additem Excel VBA

Advance Filter#2 Select Criteria In any Column ExcellVBA

Private Sub OptionButton1_Click()
Me.ComboBox1 = ""
Me.ComboBox1.BoundColumn = 1
Sheet1.Range("H3:J3") = ""
End Sub
Private Sub OptionButton2_Click()
Me.ComboBox1 = ""
Me.ComboBox1.BoundColumn = 2
Sheet1.Range("H3:J3") = ""
End Sub
Private Sub OptionButton3_Click()
Me.ComboBox1 = ""
Me.ComboBox1.BoundColumn = 3
Sheet1.Range("H3:J3") = ""
End Sub

Private Sub ComboBox1_Click()
Dim i As Long
If Me.OptionButton1.Value = True Then
Sheet1.Range("H3").Value = Me.ComboBox1.Value
ElseIf Me.OptionButton2.Value = True Then
Sheet1.Range("I3").Value = Me.ComboBox1.Value
Else
Sheet1.Range("J3").Value = Me.ComboBox1.Value
End If
On Error Resume Next
ActiveSheet.ShowAllData
i = Sheet1.Range("A100000").End(xlUp).Offset(1, 0).Row
Sheet1.Range("A" & 2, "G" & i).AdvancedFilter xlFilterInPlace, Sheet1.Range("H2:J3")
End Sub

Listbox FilterTo Other Listbox Userform Exel VBA

Private Sub UserForm_Initialize()
Me.ListBox1.RowSource = "Data"
End Sub

Private Sub TextBox1_Change()
Me.ListBox2.Clear
For i = 0 To Me.ListBox1.ListCount - 1
a = Len(Me.TextBox1.Text)
Me.ListBox1.Selected(i) = False
If Me.TextBox1 <> "" Then
If LCase(Left(Me.ListBox1.List(i, 0), a)) = Me.TextBox1.Text Or _
UCase(Left(Me.ListBox1.List(i, 0), a)) = Me.TextBox1.Text Then
Me.ListBox1.Selected(i) = True
Me.ListBox2.AddItem Me.ListBox1.List(i, 0)
End If
End If
Next i
End Sub

Textbox Avoid Duplicate Entry Userform Excel VBA

Private Sub TextBox1_AfterUpdate()
Dim a As Long
a = Application.WorksheetFunction.CountIf(Sheet1.Range("A:A"), _
Me.TextBox1.Text)
If a >= 1 Then
Me.TextBox1 = ""
MsgBox "PLease This Name Already submited"
End If
End Sub

Private Sub CommandButton1_Click()
Dim a As Long, x As Long
a = Application.WorksheetFunction.CountIf(Sheet1.Range("A:A"), Me.TextBox1.Text)
x = Application.WorksheetFunction.CountA(Sheet1.Range("A:A")) + 1
If Me.TextBox1 <> "" And Me.TextBox2 <> "" And a = 0 Then
Sheet1.Range("a" & x).Value = Me.TextBox1.Text
Sheet1.Range("B" & x).Value = Me.TextBox2.Text
Else
MsgBox "PLease This Name Already submited Or Textbox Blank"
End If
End Sub