Userformda Takvimin Konumu

Kulanıcı arayüz formu

Userformda Takvimin Konumu

İleti#1)  Levent145 » 23 Mar 2021 13:57

Herkese Merhaba
Arkadaşlar Takvim userformunun yeri absürt duruyor yardımcı olabilecek olan varsa çok sevinirim
Userform üzerinde açılan takvim userformu ekranın tam ortasında açılıyor
1. si Takvimin userfomdaki ilgili TextBox hangisi ise o textboxun tam solunda uygun mesafede görünmesi için kodu nasıl revize edebiliriz

2. si Takvim formuna bugün ve dün checkboxları ekledim. Checkbox1 e tıkayınca bugünün tarihini ilgili textboxa yazıp kapanması
Checkbox2 e yıklayınca dünün tarihini ilgili textboxa yazıp kapanması için nasıl bir kod eklemek gerekiyor
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
Levent145
Yeni Başlamış
 
Kayıt: 09 Ağu 2020 20:51
Meslek: Memur
Yaş: 27
İleti: 98
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara

Cevap: Userformda Takvimin Konumu

İleti#2)  Levent145 » 25 Mar 2021 22:22

Bu konuda bir fikri olan var mı
Kullanıcı avatarı
Levent145
Yeni Başlamış
 
Kayıt: 09 Ağu 2020 20:51
Meslek: Memur
Yaş: 27
İleti: 98
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara

Cevap: Userformda Takvimin Konumu

İleti#3)  okutkan » 26 Mar 2021 00:17

Takvim isimli userform un özelliklerini şu şekilde ayarlayın.
Top:250
Left:750

FormBilgiGirişi isimli userform un özelliklerini şu şekilde ayarlayın.
Left:750

Ayarlar bu şekilde yanlış olursa monitörünüze göre değerleri değiştirebilirsiniz.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Excel VBA konusunda profesyonel değilim. Excel VBA öğrenmeye çalışıyorum.
Sorulara cevap vermek için araştırıyorum; araştırdıkça daha fazlasını öğreniyorum.
Kullanıcı avatarı
okutkan
Site Dostu
 
Kayıt: 27 May 2017 02:45
Meslek: pol. mem.
Yaş: 29
İleti: 894
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: DENİZLİ

Cevap: Userformda Takvimin Konumu

İleti#4)  Levent145 » 26 Mar 2021 11:23

Teşekkür ederim.
Dediginizi deneyeceğim.
Ama şöyle bir şey aklıma geldi.
Takvim userformunu bir çok Userformda çağıracağım.
Her Userformda da tarih textboxlari farklı yerlerde.
Kullanıcı avatarı
Levent145
Yeni Başlamış
 
Kayıt: 09 Ağu 2020 20:51
Meslek: Memur
Yaş: 27
İleti: 98
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Userformda Takvimin Konumu

İleti#5)  halily » 26 Mar 2021 11:38

Bu durumda parametre olarak aktif formun koordinatları +aktif nesnenin kordinatlar takvim formunun konumu olarak gönderilebilir belki,
TopTakvim=topAktifForm + topAktifNesne gibi ama sadece tahmin benimkisi excelden çok anlamam
Kullanıcı avatarı
halily
Siteye Alışmış
 
Kayıt: 23 May 2019 11:16
Meslek: yok
Yaş: 41
İleti: 433
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: adana

Cevap: Userformda Takvimin Konumu

İleti#6)  halily » 26 Mar 2021 11:39

Bu arada üst-üste gelmemesi için nesne yüksekliği ve genişliği de hesaba eklenebilir
Kullanıcı avatarı
halily
Siteye Alışmış
 
Kayıt: 23 May 2019 11:16
Meslek: yok
Yaş: 41
İleti: 433
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: adana

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Userformda Takvimin Konumu

İleti#7)  Justmag » 26 Mar 2021 14:31

Gerisini düzenlersiniz
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
Justmag
Siteye Alışmış
 
Kayıt: 16 Nis 2020 15:03
Meslek: Diğer
Yaş: 35
İleti: 200
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Diğer

Cevap: Userformda Takvimin Konumu

İleti#8)  Levent145 » 27 Mar 2021 21:42

Justmag Hocam
Bugün ve dün kısımları harika çalışıyor
Ama takvim userformnu hangi Userformda çağırırsam
Ekranın sol üst köşesinden başlayarak konumlanıp açılıyor.
Aktif userformun tetikleyen textboxun solunda açılma olayı olmadı
Elinize emeğinize sağlık Justmag Hocam
Kullanıcı avatarı
Levent145
Yeni Başlamış
 
Kayıt: 09 Ağu 2020 20:51
Meslek: Memur
Yaş: 27
İleti: 98
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara

Cevap: Userformda Takvimin Konumu

İleti#9)  Justmag » 28 Mar 2021 08:41

Kod: Tümünü seç
TakvimTop = FormBilgiGirişi.Top + (DTakvim.Top + 91)
TakvimLeft = FormBilgiGirişi.Left + (DTakvim.Left - 190)


hangi konumda açılmasını istiyorsanız bastığınız image veya butona göre bu kodu ayarlamalısınız
Kullanıcı avatarı
Justmag
Siteye Alışmış
 
Kayıt: 16 Nis 2020 15:03
Meslek: Diğer
Yaş: 35
İleti: 200
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Diğer

Cevap: Userformda Takvimin Konumu

İleti#10)  Levent145 » 28 Mar 2021 20:29

Justmag Hocam
Ben takvim userformunu yaklaşık 5 6 userform içersinden
Çağırıyorum. Her Userformda tarih textboxlarının yeri farklı.
Üst mesajda yazdığınız kodu yam olarak hangi userformun içerisinde hangi olaya eklemem gerektiğini anlamadım.
Yardımcı olursanız cok sevinirim .
Kullanıcı avatarı
Levent145
Yeni Başlamış
 
Kayıt: 09 Ağu 2020 20:51
Meslek: Memur
Yaş: 27
İleti: 98
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara

Cevap: Userformda Takvimin Konumu

İleti#11)  okutkan » 28 Mar 2021 20:40

Takvim userformuna, userform initialize başlığı altına eklemeniz gerekiyor. Userform açılırken konumu bu kod satırlarına göre ayarlayacak.
Excel VBA konusunda profesyonel değilim. Excel VBA öğrenmeye çalışıyorum.
Sorulara cevap vermek için araştırıyorum; araştırdıkça daha fazlasını öğreniyorum.
Kullanıcı avatarı
okutkan
Site Dostu
 
Kayıt: 27 May 2017 02:45
Meslek: pol. mem.
Yaş: 29
İleti: 894
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: DENİZLİ

Cevap: Userformda Takvimin Konumu

İleti#12)  Justmag » 28 Mar 2021 21:26

Kod: Tümünü seç
TakvimTop = FormBilgiGirişi.Top + (DTakvim.Top + 91)
TakvimLeft = FormBilgiGirişi.Left + (DTakvim.Left - 190)

Örnek:Bu kod Dakvim isimli image nesnesinin click olayında
siz hangi userformda hangi nesnenin yanında çıkmasını istiyorsanız, FormBilgiGrişi yerine o userformun ismini,Dtakvim yerine de o nesnenin ismini, tıkladığınız nesnenin click olayına yazın.
Kullanıcı avatarı
Justmag
Siteye Alışmış
 
Kayıt: 16 Nis 2020 15:03
Meslek: Diğer
Yaş: 35
İleti: 200
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Diğer

Cevap: Userformda Takvimin Konumu

İleti#13)  Levent145 » 30 Mar 2021 14:47

Justmag Hocam
2 gündür deneyip duruyorum ama bir türlü olmadı
Kullanıcı avatarı
Levent145
Yeni Başlamış
 
Kayıt: 09 Ağu 2020 20:51
Meslek: Memur
Yaş: 27
İleti: 98
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara

Cevap: Userformda Takvimin Konumu

İleti#14)  Justmag » 31 Mar 2021 07:17

Dosyanızı yükleyin yapalım
Kullanıcı avatarı
Justmag
Siteye Alışmış
 
Kayıt: 16 Nis 2020 15:03
Meslek: Diğer
Yaş: 35
İleti: 200
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Diğer

Cevap: Userformda Takvimin Konumu

İleti#15)  Levent145 » 31 Mar 2021 13:12

Hocam örnek dosyayı ekledim
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
Levent145
Yeni Başlamış
 
Kayıt: 09 Ağu 2020 20:51
Meslek: Memur
Yaş: 27
İleti: 98
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara

Cevap: Userformda Takvimin Konumu

İleti#16)  Justmag » 02 Nis 2021 07:31

İçinde birden fazla userform olan bir dosyanızı eklerseniz daha iyi olur, çünkü bu dosya üzerinde değişiklik yapmıştık zaten
Kullanıcı avatarı
Justmag
Siteye Alışmış
 
Kayıt: 16 Nis 2020 15:03
Meslek: Diğer
Yaş: 35
İleti: 200
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Diğer

Cevap: Userformda Takvimin Konumu

İleti#17)  Levent145 » 02 Nis 2021 17:36

Hocam bu dosyanın içinde birden fazla userform var zaten.
Kullanıcı avatarı
Levent145
Yeni Başlamış
 
Kayıt: 09 Ağu 2020 20:51
Meslek: Memur
Yaş: 27
İleti: 98
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara

Cevap: Userformda Takvimin Konumu

İleti#18)  alibuyuk66 » 03 Nis 2021 09:43

Biraz uğraşınca istediğim şekilde ayarladım tek eksiği tıklanan textboxun yanında değil sayfanın tam ortasında açılması.
Bu kondda bir revizyon yapabilecek varmı acaba
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
alibuyuk66
Siteye Alışmış
 
Adı Soyadı:ali büyük
Kayıt: 25 Ağu 2012 22:16
İleti: 139
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: urfa

Cevap: Userformda Takvimin Konumu

İleti#19)  Justmag » 05 Nis 2021 07:13

Kod: Tümünü seç
Private Sub DTakvim_Click()
DogumTarihiAl = True
TakvimTop = FormBilgiGirişi.Top + (DTakvim.Top + 65)
TakvimLeft = FormBilgiGirişi.Left + (DTakvim.Left - 190)


    Application.ScreenUpdating = False

    Dim sDate As String

    On Error Resume Next

    sDate = Takvim.DatePicker(Me.DogumTarihi)

    Me.DogumTarihi.Value = Format(sDate, "dd/mm/yyyy")

    On Error GoTo 0

    Application.ScreenUpdating = True

End Sub




Bu kod doğum tarihi kısmını girdiğiniz takvim simgesine tıklayınca çalışıyor,yukarıda da bahsettiğim gibi TOP değeri bu dosyada sadece FormbilgiGirişi isimli userform olduğundan(takvim hariç) FormBilgiGirişi formunun Top(üst)değerine Dtakvim nesnesinin top değerine 65 ekleyerek yapılıyor.Mantık bu şekilde
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
Justmag
Siteye Alışmış
 
Kayıt: 16 Nis 2020 15:03
Meslek: Diğer
Yaş: 35
İleti: 200
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Diğer


Forum UserForm

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 2 misafir

Bumerang - Yazarkafe