Userform Yardım

[emreeken]

Merhaba Üstadlarım

Aşağıda resimde gördüğünüz gibi Tarih Seçiciler Userform düzenlerken doğru yerde gözüküyor fakat userform çalıştırdığımda yerlerinde kayma oluyor. Bununla ilgili yardımcı olabilir misiniz ?

9znpfml.jpeg

ff

hizliresim.com

İlgili Excel VBA

Таблица из Облака Mail.ru

Посмотрите и скачайте документ

cloud.mail.ru

 

[Saban Sertkaya]

Dosyanıza bakmak istemiştim ama indirilmeye çalışıldığında mail vs. bişeyler istiyor. Dosya.tc gibi bir siteye yükleyin isterseniz.

 

[emreeken]

Dosyanıza bakmak istemiştim ama indirilmeye çalışıldığında mail vs. bişeyler istiyor. Dosya.tc gibi bir siteye yükleyin isterseniz.

Günaydın Şaban Bey:
İlgili dosyayı istediğiniz yere yükledim. Teşekkür eder, iyi çalışmalar dilerim
Link:

Emre_EKEN.xls dosyasını indir - download

Emre_EKEN.xls dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s6.dosya.tc

 

[Saban Sertkaya]

Maalesef ben çözemedim. Forma DateTimePicker nesneleri ekleniyor. Bunun kontrolü de ClassModüller ile yapılmış. Class Modül hakkında hiçbir bilgim yok maalesef. Denedim ama halledemedim. Kusura bakmayın.

 

[AdemCan]

Merhaba,
Userformu ekrana sığdırmak için kullandığınız aşağıdaki kodları pasif yaparsanız kayma olmuyor.

Dim X1 As Long, Y1 As Long, Y2 As Long, X2 As Long
    Dim CX As Double, CY As Double
    Dim MyCtrl As Control
        X1 = Application.Width
        Y1 = Application.Height
        X2 = Me.Width
       Y2 = Me.Height
        CX = X1 / X2
       CY = Y1 / Y2
        Me.Width = X1
        Me.Height = Y1
        For Each MyCtrl In Me.Controls
            MyCtrl.Top = MyCtrl.Top * CY
            MyCtrl.Left = MyCtrl.Left * CX
            MyCtrl.Width = MyCtrl.Width * CX
           MyCtrl.Height = MyCtrl.Height * CY
            On Error Resume Next
                MyCtrl.Font.Size = MyCtrl.Font.Size * CY
            On Error GoTo 0
        Next