Minimize and maximize in excel userform (Advance) 

Thanks Deep, I will try my best to make this unique type of video on excel. Thanks for the supporting

Thanks a lot for your valuable comment.

Thanks

Thanks a lot for your valuable comment. If you like to adjust all components you have to maintain ratio. It is a verry long process and it will better work if all the object is dynamic. thanks

Merci pour le compliment mais ne vous arrêtez pas ici Restez avec moi et vous verrez beaucoup plus de choses uniques Thanks from Support Plus India

Thank you But don't stop here, lots of advance VBA tutorial videos are waiting for you in my channel.

Thanks brother

Thanks

Thanks for the comments, and I will try to keep your request.

@@SupportPlus Thanks You Sir 😘

Do you have any code to initialize two listboxs at the same time

It's possible to populate more than one listbox at same time. You have to write listbox populating code in a procedure. Thanks

Hey dear Please retrieve the DLL file name and find that in Google and installation steps also. It should be solved your problem. Below are the links of two videos and I request you to please visit my channel once. Thanks ru-vid.com/video/%D0%B2%D0%B8%D0%B4%D0%B5%D0%BE-k0NntOirBpA.html ru-vid.com/video/%D0%B2%D0%B8%D0%B4%D0%B5%D0%BE-nFo_3wQViHw.html

For 64 bit, add ptrsafe and convert "as long" with "as longptr" For exemple : '//declaration//' Private Declare Ptrsafe Function Findwindow lib "user32" Alias "FindwindowA" (ByVal lpClassname As String ...) As longptr And work on it with all functions

Thanks buddy

@@SupportPlus Ok Sir.. I'll try this & reply you... Thanks...👍 My another Request to you pls upload advance menu bar in userform... 👍

I request you to please visit my channel there has an advance menu system in excel userform.

Yes it is possible.

@@SupportPlus How?

Thank you for your tip it worked for me. Great

thank you 💕💕

@@mubasharhill7154 hello ,can you give me the code for 64 BITS?

You need to change 32bit to 64bit by writing PtrSafe like "Private Declare PtrSafe Function"

Good question, nothing is impossible. I think this video will help you ru-vid.com/video/%D0%B2%D0%B8%D0%B4%D0%B5%D0%BE-0pzWDtX8eBk.html

Hey Rez, use the "Private Declare PtrSafe Function....", this sentence PtrSafe solve the problem

Thanks

For 64 bit, add ptrsafe and convert "as long" with "as longptr" For exemple : '//declaration//' Private Declare Ptrsafe Function Findwindow lib "user32" Alias "FindwindowA" (ByVal lpClassname As String ...) As longptr And work on it with all functions

🤔

I also want that

Please stay with me I must show you...

I will be very happy when I publish your request video. So please stay tuned with me.

I apologise for the delay to reply Yes dear, it is possible and very soon I publish a video on this topic. Thanks for your comments.

@@SupportPlus Thank you Sir 🙏🏻

I think it's not possible. You have to minimize application.

@@SupportPlus tHank you foR Reply

This error appears Compile error: ! The code in this project must be updated for use on 64-bit systems. Please review and update Declare statements and then mark them with the PtrSafe attribute.

please try in 32bit office

@@SupportPlus Can you help me update the code to work on a 64bit system?

Thanks for watching Somthing special tonight 9 pm Please stay tuned with me

@@SupportPlus invoice wala video ayega kya

@@SupportPlus mujhe invoice wala program ka link bhej dizia please my contact.no 7076065439 My mail id is skst000786@gmail.com

@@SupportPlus ok

Please convert the 32bit code in to 64bit by writing PtrSafe

Thanks for the comments. You are on the right way. Comparison of 32bit or 64bit. Otherwise please google once.

Write "PtrSafe" after Private Declare. For 32 bit :Private Declare Function For 64 bit :Private Declare PtrSafe Function

Please set your userform height and width in userform resize. It select from procedure drop-down Thanks But don't forget to write where are you from.

@@SupportPlus thanks you. I am from Somalia 🇸🇴🇸🇴🇸🇴. Sorry my poor English.

Please visit into my channel. There has lots of video on Ms Excel. Do your best for Channel growth.

@@SupportPlus Thanks. I subscribe the Chanel. Your videos is good. 👍👍👍 👏👏👏 👌👌👌

Please fallow all the comments, I request you to please visit my channel, there has lots of extra ordinary video are waiting for you.

I have already seen the video ru-vid.com/video/%D0%B2%D0%B8%D0%B4%D0%B5%D0%BE-0pzWDtX8eBk.html but I have not solved the problem. I have watched other videos on your channel but have not found any feedback. thanks for a solution

antes de la funcion colocar: PtrSafe

Change to 'As Long'

Both the userform are minimize and maximize style userforms.

Your question is very small but the answer would be very long. Send me your email on comment section.

@@SupportPlus shiningtapas@gmail.com

If possible send me your project workbook to this email id so I can give it a try. Thanks

taxbuddy99@gmail.com

No.

Thanks Vikash for your valuable comment Please watch the video by clicking below link ru-vid.com/video/%D0%B2%D0%B8%D0%B4%D0%B5%D0%BE-0pzWDtX8eBk.html It should help you.

Please shohel move to new video. Here is the link ru-vid.com/video/%D0%B2%D0%B8%D0%B4%D0%B5%D0%BE-yOkdQQFfqGg.html

It should be work

@@SupportPlus Thank you very much

You are welcome.

Dear, I shared concept. Please try yourself to combined two different code. I hope you can do this.

please try in 32bit

OK I'll check

Please fallow all the comments Thanks

@@SupportPlus Follow all steps one by one still don’t know where is the problem

I apologise for the unwanted error please convert the code for 64bit

@@SupportPlus I am getting the same error, can you please make another video for 64bits

Ok

It's a direct download link and its tested. Please download again...

@@SupportPlus i tried many times

After receiving your comment, I tried it once and I was able to download it through that download link, but I can't say exactly why you are not.

I would be very happy if I could help you. Please write "PtrSafe" after Private Declare. For 32 bit :Private Declare Function For 64 bit :Private Declare PtrSafe Function Thanks for your question and positive comments.

@@SupportPlus Dear Sir, thank you very much. It worked now. I have subscribed to you channels to support you :)

@@SupportPlus Sir if we don't know our client using which bit 32 or 64 and i want to send project file to him so what i do

Good question Abid, Always try to make universal application. Your answer Wright vba code #if vb7 then Private Declare PtrSafe Function... #Else Private Declare Function.... #End If Thanks

docs.microsoft.com/en-gb/office/vba/Language/Concepts/Getting-Started/64-bit-visual-basic-for-applications-overview according to this article if i used if function but its not working could you please help in this regards down is code which i chage Option Explicit If Win64 Then Private Declare PtrSafe Function FindWindow _ Lib "user32" Alias "FindWindowA" _ (ByVal lpClassName As String, _ ByVal lpWindowName As String) As LongPtr Private Declare PtrSafe Function ExtractIcon _ Lib "shell32.dll" Alias "ExtractIconA" _ (ByVal hInst As LongPtr, _ ByVal lpszExeFileName As String, _ ByVal nIconIndex As Long) As LongPtr Private Declare PtrSafe Function SendMessage _ Lib "user32" Alias "SendMessageA" _ (ByVal hWnd As LongPtr, _ ByVal wMsg As LongPtr, _ ByVal wParam As Integer, _ ByVal lParam As Long) As LongPtr Else Private Declare Function FindWindow _ Lib "user32" Alias "FindWindowA" _ (ByVal lpClassName As String, _ ByVal lpWindowName As String) As Long Private Declare Function ExtractIcon _ Lib "shell32.dll" Alias "ExtractIconA" _ (ByVal hInst As Long, _ ByVal lpszExeFileName As String, _ ByVal nIconIndex As Long) As Long Private Declare Function SendMessage _ Lib "user32" Alias "SendMessageA" _ (ByVal hWnd As Long, _ ByVal wMsg As Long, _ ByVal wParam As Integer, _ ByVal lParam As Long) As Long End If Private Const WM_SETICON = &H80 Public Const WS_MINIMIZEBOX = &H10000 Public Const WS_MAXIMIZEBOX = &H20000 Public Const GWL_STYLE = (-16) If Win64 Then Public Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr Public Declare PtrSafe Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As LongPtr Public Declare PtrSafe Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As LongPtr Public Declare PtrSafe Function DrawMenuBar Lib "user32" (ByVal hWnd As Long) As LongPtr Else Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Public Declare Function DrawMenuBar Lib "user32" (ByVal hWnd As Long) As Long End If Public Sub AddMinMaxButtons(ByVal FormCaption As String, ByVal MinButton As Boolean, ByVal MaxButton As Boolean) Dim hWnd As Long Dim lngStyle As Long hWnd = FindWindow(vbNullString, FormCaption) lngStyle = GetWindowLong(hWnd, GWL_STYLE) If MaxButton Then lngStyle = lngStyle Or WS_MAXIMIZEBOX End If If MinButton Then lngStyle = lngStyle Or WS_MINIMIZEBOX End If SetWindowLong hWnd, GWL_STYLE, lngStyle DrawMenuBar hWnd End Sub

😃

I apologise for the delay Please be patience, I would be very happy to help you. Thanks babalo. Is that's your name?

use the "Private Declare PtrSafe Function....", this sentence PtrSafe solve the problem

For 64 bit, add ptrsafe and convert "as long" with "as longptr" For exemple : '//declaration//' Private Declare Ptrsafe Function Findwindow lib "user32" Alias "FindwindowA" (ByVal lpClassname As String ...) As longptr And work on it with all functions

Please fallow some comments There you will find your answer Types of PtrSafe

Thanks

Don't worry please turn off audio and watch. I known you must understand what I want to show you. Thanks 🙏

Language is HINDI

Indian mother tongue

appreciate you i was only worry you telling important comments anyway thanks bro

For more you can mail me. Thank you

Nice. Please write your email on comment section I will reply

babaloomobilegallery@gmail.com

Sir G reply to kariye Or Email Id bataiye

Sir G reply to kariye Or Email Id bataiye

Please give me your email address in comment section. Anpe email ID kaha likha he?

Thanks

Dear I probably owe you an apology. I recommend you to move another code which help you to make minimize and maximize button on userform. And it's ready for 64bit office. Here is the link ru-vid.com/video/%D0%B2%D0%B8%D0%B4%D0%B5%D0%BE-yOkdQQFfqGg.html.