MAX MİN BUTONLARI | Excel Userform Maximize ve Minimize Butonu Eklemek | Userform Öğreniyorum Bonus1

[@costantfear]

Çok iyi olmuş tebrik ederim.

[@muratgunay48]

Çok faydalı ve kullanışlı olacağına inanıyorum kardeşim.

[@CodePlus-BurakcanBayraktar]

Murat Abi selamlar, projelerinde kullanırsın inşallah :)

[@muradlizad7936]

Süpersin, birebir denedim, oldu

[@suatomerbeyoglu3180]

Harika

[@CodePlus-BurakcanBayraktar]

Teşekkürler :)

[@aytacengin2259]

​@@CodePlus-BurakcanBayraktar merhaba hocam minmax yaptım oldu minimize edince diğer açık excellerle çalışmam için ne yapmam gerekiyor bu konuda yardımcı olabilir misiniz

[@CEYLAN64]

Elinize sağlık. Bunun gibi hazır kodları saklayabileceğimiz bir VBA hazır kod kütüphanesi makrosu da elimizin altında hazır olursa ne güzel olur. Teşekkürler

[@CodePlus-BurakcanBayraktar]

Bununla ilgili ilerleyen dönemlerde web sitemizde bir paylaşım yayınlayabilirim, çok doğru söylüyorsunuz böyle bir kaynak elimizde bulunsa çok daha güzel olur.

[@oguzturkyilmaz543]

Teşekkürler

[@gurkanburgucu8980]

Selamın Aleyküm hocam öncelikle videolar için çok teşekkürler çok yararlı videolar çekiyorsunuz daha önce de size bir sorum olmuştu kodlar ile ilgili yardımcı olmuştunuz onun için de ayriyeten teşekkür ederim.
Şimdi bir sorum daha olacak mesela bana excel üzerinde şöyle bir şablon tablo lazım.
12'nin 2'li Permütasyonu yani 132 farklı kombinasyonu. Bunu excelde hazır tablo haline nasıl getirebilirim ?
Örnek olarak şöyle.
1-1
2-1
3-1
4-1
5-1
6-1
7-1
8-1
9-1
10-1
11-1
12-1
------------------------------------
1-2
2-1
3-1
4-1
5-1
6-1
7-1
8-1
9-1
10-1
11-1
12-1
--------------------------------------
1-2
2-2
3-1
4-1
5-1
6-1
7-1
8-1
9-1
10-1
11-1
12-1

[@CodePlus-BurakcanBayraktar]

Merhaba, dediğiniz konuyu araştıracağım, bir sonuca ulaşırsam size ileteceğim.

[@gurkanburgucu8980]

@@CodePlus-BurakcanBayraktar çok teşekkür ederim

[@aydneroglu7908]

Elinze sağık, ancak bu uygulama benim formda olmadı, neden olabilir? bire bir aynısını yaptım

[@CodePlus-BurakcanBayraktar]

Merhaba, teşekkürler. Hata mı alıyorsunuz kodlarda yoksa hiç mi çalışmıyor, tam olarak sorun nedir ?

[@aydneroglu7908]

@@CodePlus-BurakcanBayraktar Hata almadım ama kod çalışmadı.
Option Explicit
Public Const MinBox = &H10000
Public Const MaxBox = &H20000
Public Const Style = (-16)
Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Declare PtrSafe Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Declare PtrSafe Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Declare PtrSafe Function DrawMenuBar Lib "user32" (ByVal hWnd As Long) As Long
Public Sub maxMinButton(ByVal FormCaption As String)
Dim hWnd As Long
Dim lngstyle As Long
hWnd = FindWindow(vbNullString, FormCaption)
lngstyle = GetWindowLong(hWnd, Style)
lngstyle = lngstyle Or MinBox
lngstyle = lngstyle Or MaxBox
SetWindowLong hWnd, Style, lngstyle
DrawMenuBar hWnd
End Sub

[@CodePlus-BurakcanBayraktar]

@@aydneroglu7908 Bu makroyu daha sonra userform activete olduğundan çalışması için ayarladınız mı ?

[@aydneroglu7908]

@@CodePlus-BurakcanBayraktar Bu kodu yazarak aktive ettim. Module2 de verdiğiniz kodlar.
Private Sub UserForm_Activate()
Module2.maxMinButton (Me.Caption)
End Sub

[@CodePlus-BurakcanBayraktar]

@@aydneroglu7908 Rica etsem çalışma dosyanızı mail olarak [e-mail] adresine gönderebilir misiniz?