Відео

Terima kasih.

Excellent. I'm just getting into this and this was very helpful

Thank you Sir

Yes it's almost perfect solution (but not really). You need to remember guys if you close your UserForm, the workbook will be still open in the system! (because it's hidden). If there is another instance of excel running and you run the padlock exe, it will hide automatically all other workbooks also. This can create many annoying situations to the final users as an app developer you need to predict all of this events. Adding the following code: Private Sub UserForm_Terminate() If Application.Workbooks.Count = 1 Then Application.Quit Else Application.Workbooks("AppName").Close End If Private Sub Workbook_BeforeClose(Cancel As Boolean) Application.Visible = True ThisWorkbook.Saved = True End Sub This code returns all other workbooks to visible after app close, hovever it's not solving the problem of dissapiering workbooks after app start. The user will have to run his files once again to show already running but hidden workbooks. I think we should at least inform final user about this condition in MsgBox or we can mark the option in Padlock "do not allow other instances of excel when opening the protected workbook." - but this will make your app quite annoying also. If anyone have perfect solution for this problem feel free to comment but i think we reached the Excel limitations here.

ward print buttom excel

I've been banging my head against a wall for a few hours on how to print multiple sheets via checkbox. This video made me say, "No way." It works perfectly. Thanks!

Hi. How can i select all these cells - can you help please RANGE("K" & Rows.Count).End(xlUp).Offset(0).Select RANGE("R" & Rows.Count).End(xlUp).Offset(-8, 0).Select Or can we use x = RANGE("K" & Rows.Count).End(xlUp).Offset(0).Select y = RANGE("R" & Rows.Count).End(xlUp).Offset(-8, 0).Select Then how we can write the vba ?

How do I make only the text bold

The bee puts your tounge

It was eyeopening code using karnell.

Thanks ser, great work

Hello. Is there an easy way to adapt the code to do the opposite i.e. delete all rows that don't have at least one colored cell?

Thank you very much it works !!!!

Can you do this for Labels?

i want code to don"t change one textbox onley can change any textbox except one in userform thanks

Hello Sir My concept is to create a folder with Active cell name. If I click any cell in the excel then it has to create a folder with that name Is it possible to do ??

please provide the link to part 1 of the video

‫ Thank you, but I have a problem ...... Exception: Service invoked too many times for one day: route

To compare 2 location. It use google map free. Is it okay? Or there are limitation request?

Thank you 🙂. My problem was solved

Hi Sir Ayushman This side can we use "Match Function" in VBA code by that we don't have to change Column again and again and we write our custom formula and drag the formula is all the cells then it will work or not Thanks so much Have a great day...

dude spent entire video without a second on my to create one of these grids

@angelbhaves1 Did you figure it out? As I have to accomplish the same.

Thank you! Great video!

Hi everyone, for those who want to fill the activex combobox with a ListName, no matter in which Sheet it is , what you need to do is the following: 1. Select any range in the Sheet where you have your original list and define its name in the format =NameOfYourSheet!A1:A100 This step is only for have a Name in that format , which is the one who the combobox accept without problem. 2. Then insert that name in the "ListFillRange" in the ComboBox properties 3. In name manager option, edit the "Refers to" scope of your previous name created , to any list that you want. In my case was a column from a Table in the format =Table1[Column1]

А как написать код, чтобы кнопка удаляла данные из textbox?

Any idea how to past the route link to google maps in a column next to the miles calculated?

Really helpful, thank you!

I am CONFUSE? what is the application of this tutorial? how does it applies to our work?

Excellent

Dang

Will you be able to post your code in the description ? It's not showing the entire code.

Perfect explanation!!! You helped me a lot with this video!!!

Hi Dan, thanks for this tutorial. But i have an Issue. I work with Excel 365 german Version. I got Debug with Message "FCompiling errors Variable not defined". Where is my failure? Could you help?

code is =SUM(B2:B15)

It's getting hot in here

thank you bro!!!

Function LRC(Optional RowTrue_ColumnFalse As Boolean = True, Optional Specific_Col_Or_Row, Optional TargetSht, Optional Columns_NumberTrue_TextFalse As Boolean = True) ' As Long Dim wsf As WorksheetFunction: Set wsf = WorksheetFunction '.................................................................................................... Dim tws As Worksheet, LRow, LCol, temp_LRow, temp_LCol As Long Select Case TypeName(TargetSht) Case "Error" Set tws = ActiveSheet Case "String" On Error Resume Next Set tws = Sheets(TargetSht) If Err Then Err.Clear LRC = CVErr(xlErrRef) Exit Function End If Case "Worksheet" Set tws = TargetSht End Select '.................................................................................................... Dim temp_RowTrue_ColumnFalse As Boolean temp_RowTrue_ColumnFalse = RowTrue_ColumnFalse Select Case temp_RowTrue_ColumnFalse Case True, False Case Else temp_RowTrue_ColumnFalse = True End Select '.................................................................................................... With tws Select Case temp_RowTrue_ColumnFalse 'Last Row Case True On Error Resume Next temp_LRow = .UsedRange.Rows(.UsedRange.Rows.Count).Cells.Row If Err Or temp_LRow = 1 Then GoTo none: If IsMissing(Specific_Col_Or_Row) Then For LRow = temp_LRow To 1 Step -1 If wsf.CountA(.Rows(LRow)) <> 0 Then Exit For End If Next LRow Else If wsf.CountA(.Columns(Columns(Specific_Col_Or_Row).Column)) = 0 Then GoTo none: End If If .Columns(Columns(Specific_Col_Or_Row).Column).SpecialCells(xlCellTypeVisible).Rows.Count = .Rows.Count Then LRow = .Cells(Rows.Count, Columns(Specific_Col_Or_Row).Column).End(xlUp).Row Else For LRow = temp_LRow To 1 Step -1 If wsf.CountA(.Cells(LRow, Columns(Specific_Col_Or_Row).Column)) <> 0 Then Exit For End If Next LRow End If End If If LRow = 0 Then GoTo none: Else LRC = LRow End If 'Last Column Case False On Error Resume Next temp_LCol = .UsedRange.Columns(.UsedRange.Columns.Count).Cells.Column If Err Then GoTo none: For LCol = temp_LCol To 1 Step -1 If wsf.CountA(.Columns(LCol)) <> 0 Then If IsMissing(Specific_Col_Or_Row) Then Exit For Else If wsf.CountA(.Cells(Specific_Col_Or_Row, LCol)) <> 0 Then Exit For End If End If Next LCol Dim temp_Columns_NumberTrue_TextFalse As Boolean temp_Columns_NumberTrue_TextFalse = Columns_NumberTrue_TextFalse Select Case temp_Columns_NumberTrue_TextFalse Case True, False Case Else: temp_Columns_NumberTrue_TextFalse = True End Select If LCol = 0 Then LCol = 1 End If Select Case temp_Columns_NumberTrue_TextFalse Case True LRC = LCol Case False LRC = Split(.Cells(1, LCol).Address, "$")(1) End Select End Select End With Exit Function '.................................................................................................... none: Err.Clear: LRC = 1 End Function

أين أجد رابط تحميل الملف أو نص الكود

Excellent tutorial! Clear, easy to understand and thorough. Thank you!!

Super Super Super Super 😘😘😘😘👍👍👍👍 Only you tell me how to add dates Found exactly thank you

I've tried several approaches shown on You Tube, but nothing works to provide dynamic column totals. I wonder if my Professional version Office 2010 is not capable of this VBA? I know MS adds features to Excel each year.

First line of VBA script is coming back with a bug? Highlighted in yellow. I checked your work twice. What I'm trying to do is add specific columns which is more real world at least for my applications. Please show your entire code.

Time travelers

This is great one thing I cant seem to find is how to populate that list back into the list box (for instance using this example I have a customer that ordered Apples and Peaches, when I pull up the order again how do I get Cell A2 to populate the listbox items Apples / peaches as selected?

Thansks

escape on button but not in the userform ?

excelente trabajo profesor

Hi Dan, Great Video. I am hoping to reverse this somehow so that when i am editing the userform it pre populates with the matches from the cell value as selected in the listbox. So basically i want this put in reverse. I want to pull from the sheet and mark as selected in the listbox. Can this be done?

It's not working do you have any advice?