UserForm Etkinleşmesinde Küçültme ve Başlık Kodlarını Birleştirme

[MyTeacher]

Excel Versiyonu

Excel 2016

Excel Sürümü

64 Bit

Excel Dili

Türkçe

Hocalarım 32 bit versiyonda userformu simge durumuna küçültmek için gereken kod olan aşağıdaki kod ve bir alttaki bana lazım olan kod aynı sub olan userform_activate'yi kullanıyor. Ayrı ayrı ekleyince hata alıyorum, bir arada nasıl yazacağım onu da bilmiyorum yardımcı olur musunuz?

Userform minimize kodu

Bu kodu görmek için giriş yapmanız gerekmektedir (17 satır). Giriş Yap

Userform hareketli başlık kodu

Bu kodu görmek için giriş yapmanız gerekmektedir (24 satır). Giriş Yap

 

[MyTeacher]

Yardım edebilecek kimse ?

 

[ExcelDepo]

Bir tanesinin sonundaki End Sub, diğerinin başındaki Private Sub UserForm_Activate() kaldırmanız yeterliydi.
Dim ile tanımlanmış değişkenleri de başa almak faydalı olacaktır...
Sonuç:

Bu kodu görmek için giriş yapmanız gerekmektedir (42 satır). Giriş Yap

HATIRLATMA: 64 bit pişmanlıktır

 

[MyTeacher]

Bir tanesinin sonundaki End Sub, diğerinin başındaki Private Sub UserForm_Activate() kaldırmanız yeterliydi.
Dim ile tanımlanmış değişkenleri de başa almak faydalı olacaktır...
Sonuç:

Bu kodu görmek için giriş yapmanız gerekmektedir (42 satır). Giriş Yap

HATIRLATMA: 64 bit pişmanlıktır

Hocam, kodu bu şekilde ekledim simge durumuna küçült kısmı çıkmadı hocam.

 

[ExcelDepo]

Dosyanızı göremediğim için bir şey diyemeyeceğim.

İkinci Activate yerine Initialize deneyin olmadı.

Private Sub UserForm_Initialize() olarak yazın, belki kesen bir şey vs vardır, bu şekilde çalışabilir.

 

[MyTeacher]

Dosyanızı göremediğim için bir şey diyemeyeceğim.

İkinci Activate yerine Initialize deneyin olmadı.

Private Sub UserForm_Initialize() olarak yazın, belki kesen bir şey vs vardır, bu şekilde çalışabilir.

Hocam initialize kısmına normal kod olarak da ekledim olmadı, modüller kısmına ekleyip call simgedurum diye çağırdım da olmadı. Genelde simge durumu çalışmıyor ikisi bir arada iken.

 

[ExcelDepo]

Dosyanızı ekleyin yardımcı olmaya çalışalım.
Bunun dışında diyebileceğim tek şey ne yazık ki "simgesiz kullanın" olacaktır.

 

[Ömer BARAN]

Bence MİNİMİZE işe yarayacak bir işlem.
Bu nedenle KAYAN YAZIdan vazgeçin ya da userforum sol üst köşesine veya üst ortasına bir LABEL ekleyip,
Userform'un MOUSE_MOOVE veya CLICK olayına label nesnesinde kayan yazı uygulaması düşünün.

 

[MyTeacher]

Bence de minimize olayı daha önemli kayan başlıktan vazgeçtim. Peki minimize butonuna tıklayınca görev çubuğuna yerleştirme imkanı var mıdır? Aşağı inince görev çubuğunda simgesi yer alsın.

 

[ExcelDepo]

Hocam yanlış anlamayın ama, bundan 15-16 yıl önce bu tür şeylerle çok ilgilenen biri olarak, tamamen gereksiz olduğunu size söylemek istiyorum.
Simge, küçültme büyültme vs hepsi gereksiz detaylar....
UserForm kullanıyorsanız, tamamen işe odaklı olup olmadığı ile ilgilenmenizi naçizane tavsiye ederim.
Bu yorumumu, yıllardır böyle fantezik şeylerle uğraşan ama günün sonunda hiç bir işe yaramadığını gören biri olarak yazıyorum sadece.
Tercih, takdir elbet sizlerindir.

 

[MyTeacher]

Hocam yanlış anlamayın ama, bundan 15-16 yıl önce bu tür şeylerle çok ilgilenen biri olarak, tamamen gereksiz olduğunu size söylemek istiyorum.
Simge, küçültme büyültme vs hepsi gereksiz detaylar....
UserForm kullanıyorsanız, tamamen işe odaklı olup olmadığı ile ilgilenmenizi naçizane tavsiye ederim.
Bu yorumumu, yıllardır böyle fantezik şeylerle uğraşan ama günün sonunda hiç bir işe yaramadığını gören biri olarak yazıyorum sadece.
Tercih, takdir elbet sizlerindir.

Fikirleriniz benim için çok önemli hocam, programı kullanacak kişiler bilgisayar özürlü olduğu için en ince ayrıntısına kadar hazırlayıp teslim etmek istiyorum. Hayır kurumu için yapıyorum bari hayrımız da tam olsun düşüncesi ile, saygılar

 

[ExcelDepo]

İnşallah muvaffak olursunuz, Allah razı olsun.