hay kel

Пікірлер

@Korn_pw 6 күн бұрын

how to show record that age under 30 only?

@angoyltee1355 9 күн бұрын

the url continue change pic cant

@FrankThoms-x3y 12 күн бұрын

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

@IKTraders-l2w 14 күн бұрын

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

@GabrielAmado-h8s 15 күн бұрын

is the resistors necessery?

@hay_kel 15 күн бұрын

of course. otherwise you risk damaging your esp

@Awarenesstv 15 күн бұрын

Understoud@@hay_kel

@sunilbudke 18 күн бұрын

Thank you. This video was very useful.

@hay_kel 18 күн бұрын

You are welcome

@ssmagic1876 19 күн бұрын

Excellently explained 🔝

@hay_kel 18 күн бұрын

Thank you

@Cirilla-y6l 21 күн бұрын

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

@asurajeff6316 22 күн бұрын

How do you go pass 9 rows sir

@roanmarasigan8648 26 күн бұрын

thanks mate! you're a life saver 😁

@hay_kel 26 күн бұрын

Thanks for your comment

@shanmukhavinayakm7906 26 күн бұрын

can we increase accuracy in angles

@hay_kel 26 күн бұрын

of course

@MikeO-p8l 27 күн бұрын

Spanks .... From 2008

@hay_kel 27 күн бұрын

@torkunc Ай бұрын

Neat and clean…🎉

@hay_kel Ай бұрын

Thanks for your comment

@pinoyexcelchannel Ай бұрын

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

@melakutilahun3316 Ай бұрын

no display on listbox

@hay_kel Ай бұрын

first thanks for your comment. i think you need to initialize the event. it's explained from 4:24 to 5:34

@melakutilahun3316 Ай бұрын

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 =====

@hay_kel Ай бұрын

thanks

@snaX_RuSh Ай бұрын

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

@chris948_vr Ай бұрын

same thing if the sun shines on it

@hay_kel Ай бұрын

Noted. Thanks for the comment

@hay_kel Ай бұрын

Why not! Thanks for the comment

@右折.番長 Ай бұрын

Thermally Sensitive Resistor

@ThisiswhyiHATEglue Ай бұрын

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

@hay_kel Ай бұрын

You tell us! Thanks for the comment

@LeoPlays2Games Ай бұрын

Fire alarm?

@hay_kel Ай бұрын

yes. but what do you think about using two micro bit boards with radio?

@KARTHIKKEYAN-o9j Ай бұрын

what is "i"

@TheLaopi Ай бұрын

Very great can you share

@hay_kel Ай бұрын

Thank you

@telli5868 Ай бұрын

that’s so cool!

@hay_kel Ай бұрын

Thank you

@richardappow6770 Ай бұрын

please what editor are you using for the wiring?

@hay_kel Ай бұрын

hi. i used tinkercad.com . thanks for the comment.

@litharshanchristie6649 Ай бұрын

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.

@hay_kel Ай бұрын

thanks for the comment. but unfortunately I don't have this code anymore.

@rolly909 Ай бұрын

// Clear form function ClearCell() { var ss = SpreadsheetApp.getActiveSpreadsheet(); var formS = ss.getSheetByName("Form"); //Form Sheet var rangesToClear = ["B3", "B6", "B8", "B10", "D6", "D8", "D10"]; for (var i=0; i<rangesToClear.length; i++) { formS.getRange(rangesToClear[i]).clearContent(); } } //Input Values function SubmitData() { var ss = SpreadsheetApp.getActiveSpreadsheet(); var formS = ss.getSheetByName("Form"); //Data entry Sheet var dataS = ss.getSheetByName("Data"); //Data Sheet var values = [[formS.getRange("B6").getValue(), formS.getRange("B8").getValue(), formS.getRange("B10").getValue(), formS.getRange("D6").getValue(), formS.getRange("D8").getValue(), formS.getRange("D10").getValue()]]; dataS.getRange(dataS.getLastRow()+1, 1, 1, 6).setValues(values); ClearCell(); }

@TimPazler Ай бұрын

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

@hay_kel Ай бұрын

Thank you for the comment

@SpacePrintsCo Ай бұрын

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

@Spyrofluff Ай бұрын

You could do a sloped design for the water to flow

@hay_kel Ай бұрын

Good idea. I'll work on it.

@Spyrofluff Ай бұрын

Nice work!

@hay_kel Ай бұрын

Thank you! Cheers!

@CHENGHAOYONGVALOR Ай бұрын

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

@陳承皓-d5p Ай бұрын

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

@Ali-s7t3u Ай бұрын

Big thanks

@hay_kel Ай бұрын

You are welcome

@yaseenmhmod21 Ай бұрын

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

@chimainnocent5484 Ай бұрын

I want to go back out now...

@hay_kel Ай бұрын

What...

@陳承皓-d5p Ай бұрын

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

@hay_kel Ай бұрын

Check servo connection, code or status

@陳承皓-d5p Ай бұрын

@@hay_kel我在試看看

@gopipc Ай бұрын

Why need this gate 😂😂😂😂😂😂😂

@hay_kel Ай бұрын

To learn

@thestrongestbacon-qu5fd Ай бұрын

Why do we need your grammar?

@Serhat-n7d Ай бұрын

Tesla: upload your own mp3 file

@hay_kel Ай бұрын

@Felno-vu8ze Ай бұрын

Null

@hay_kel Ай бұрын

@jdpo Ай бұрын

Micro:bit!

@hay_kel Ай бұрын

Yes

@drlorgan1160 Ай бұрын

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

@РонанОбвинитель Ай бұрын

Это ультразвуковой датчик на видео

@ПавелКоржуков-м2п Ай бұрын

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

@hay_kel Ай бұрын

Servo motor

@кейсикринн Ай бұрын

А что за черная панель со светодиодами?

@haqeeqattv2.092 Ай бұрын

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

@hay_kel Ай бұрын

yes. good idea. what do you think about adding password authentication with microbit.

@MyChannel-yr7zp Ай бұрын

@@hay_kelI won't be practical ,instead why RFID dint not come into u r mind which is universally used .many people would have saved their time by not watching yours non practical stupid video