Видео

how to show record that age under 30 only?

the url continue change pic cant

keep getting a runtime error 424 using just 6 columns Dim criterion Private Sub ComboBox1_Change() Dim c As Integer Dim column_headers column_headers = Array("A", "B", "C", "D", "E", "F") For c = 1 To 6 If Sheet1.Cells(1, c).Value = Me.ComboBox1.Value Then criterion = column_headers(c - 1) End If Next Sheet1.Cells(1, "H").Value = criterion Me.ListBox1.Clear Me.TextBox1.Value = "" Me.TextBox1.SetFocus End Sub Private Sub TextBox1_Change() On Error Resume Next If Me.TextBox1.Text = "" Then Me.ListBox1.Clear Exit Sub End If Me.ListBox1.Clear Dim r, last_row As Integer last_row = Sheet1.Range("A10000").End(xlUp).Row For r = 2 To last_row a = Len(Me.TextBox1.Text) If UCase(Left(Sheet1.Cells(r, criterion).Value, a)) = UCase(Me.TextBox1.Text) Then With Me.ListBox1 'MsgBox "Data Saved" .AddItem Sheet1.Cells(r, "A").Value .List(.ListCount - 1, 1) = Sheet1.Cells(r, "B").Value .List(.ListCount - 1, 2) = Sheet1.Cells(r, "C").Value .List(.ListCount - 1, 3) = Sheet1.Cells(r, "D").Value .List(.ListCount - 1, 4) = Sheet1.Cells(r, "E").Value .List(.ListCount - 1, 5) = Sheet1.Cells(r, "F").Value End With End If Next r End Sub Private Sub UserForm_Initialize() 'making dropdown search Critria-------------------- Dim c As Integer For c = 1 To 6 Me.ComboBox1.AddItem Sheet1.Cells(1, c).Value Next With Me.ListBox1 .ColumnCount = 6 .ColumnWidths = "30,40,100,110,70,90" End With End Sub

sir please sheet Download Opention i am try tmake this sheet butt some errour

is the resistors necessery?

Thank you. This video was very useful.

Excellently explained 🔝

hi sir why i can still access the workbook when i just close the login form by click the x ? is there anyway that can fix that ?? thank you for your video sir

How do you go pass 9 rows sir

thanks mate! you're a life saver 😁

can we increase accuracy in angles

Spanks .... From 2008

Neat and clean…🎉

sir how to display data in the listbox using search command button instead of displaying all of the database content?

no display on listbox

thank you very much for clear presentation i write the code but nothing display on listbox2 my column is 4 ======= Dim criterion Private Sub ComboBox1_Change() Dim c As Integer Dim column_headers column_headers = Array("A", "B", "C", "D") For c = 1 To 4 If Sheet2.Cells(1, c).Value = Me.ComboBox1.Value Then criterion = column_headers(c - 1) End If Next Sheet2.Cells(1, "K").Value = criterion Me.ListBox2.Clear Me.TextBox1.Value = "" Me.TextBox1.SetFocus End Sub Private Sub TextBox1_Change() On Error Resume Next If Me.TextBox1.Text = "" Then Me.ListBox2.Clear Exit Sub End If Me.ListBox2.Clear Dim r, last_row As Integer last_row = Sheet2.Range(cell1).End(xlUp).Row For r = 2 To last_row a = Len(Me.TextBox1.Text) If UCase(Left(Sheet2.Cells(r, criterion).Value, a)) = UCase(Me.TextBox1.Text) Then With Me.ListBox2 .AddItem Sheet2.Cells(r, "A").Value .List(.ListCount - 1, 1) = Sheet2.Cells(r, "B").Value .List(.ListCount - 1, 2) = Sheet2.Cells(r, "C").Value .List(.ListCount - 1, 3) = Sheet2.Cells(r, "D").Value End With End If Next End Sub Private Sub UserForm_Initialize() Dim c As Integer For c = 1 To 4 Me.ComboBox1.AddItem Sheet2.Cells(1, c).Value Next With Me.ListBox2 .ColumnCount = 4 .ColumnWidths = "80;80;80;80" End With End Sub =====

Isn't using an ir sensor a bit useless Imagine Triggering your firealarm with your tv remote

Thermally Sensitive Resistor

Ngl this is pretty cool.....im just wondering what would happen if a little bit of light hit the light sensor?

Fire alarm?

what is "i"

Very great can you share

that’s so cool!

please what editor are you using for the wiring?

Hi, It is a wonderful video and very helpful. Could you please share your script if you can? It would be very helpful. Thank you.

Магия вне Хогвартса запрещена, пора бы уже знать

SAVE & CLEAR works fine but I'm stucked with the SEARCH😢 anyone cane help?

You could do a sloped design for the water to flow

Nice work!

no function I write the EXS001 after click the searchbutton message show Error!

想請問你的程式是如何設定讓伺服馬達感應到物品才做升降桿子

Big thanks

من قرأ آية الكرسي بعد كل صلاة لم يمنعه من دخول الجنة إلا ان يموت ❤️ وصلوا على النبي تلبيس

I want to go back out now...

我的伺服馬達在程式書寫後插入microbit擴充板，但伺服馬達的桿子升不起來，不知道是什麼問題

Why need this gate 😂😂😂😂😂😂😂

Tesla: upload your own mp3 file

Null

Micro:bit!

Вы открыли технологию "оптронная пара"

Как двигатель называется?

So what is the purpose of the barrier if anyone can enter the parking. There must be some authentication process as well.

Nếu nó nằm giữa thanh chắn thì sao

А где второй датчик, что машины нет под шлагбаумом ? 😂

А обратно?😂

Посередине шлагбаума поставь

Привет ,классно.что за контроллер ?

Nice job. Hope to see more like this

it's very easy to do this

А выезжать как?