• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

TextBox'lara tıklayınca tarih adlı formun açılması?

E

Emine Şahin

Katılım
19 Haziran 2007
Mesajlar
418
Excel Vers. ve Dili
excel 2007
Merhaba.
Forumdan örnek aldığım bir dosyadan tarih adlı formun açılmasını nasıl sağlayabilirim?
Burada Tarih adlı userformun initialize olayını aynen kopyaladım.
Sonra class1 de olanlarıda kendi formumu taşıdım
Sonra Modüle1 de olanları kendi formumda Modüle 3'e taşıdım.
Benim formumda satış ekranında sağ tarafta ikitane boş TextBox var.
Bunlara tıklayınca takvimin gelmesini tarih seçince de TextBoxlara yazılmasını sağlamak istiyorum.
Yardımcı olur musunuz?

Dosyam ektedir...
 
Emine Şahin' Alıntı:
Merhaba.
Forumdan örnek aldığım bir dosyadan tarih adlı formun açılmasını nasıl sağlayabilirim?
Burada Tarih adlı userformun initialize olayını aynen kopyaladım.
Sonra class1 de olanlarıda kendi formumu taşıdım
Sonra Modüle1 de olanları kendi formumda Modüle 3'e taşıdım.
Benim formumda satış ekranında sağ tarafta ikitane boş TextBox var.
Bunlara tıklayınca takvimin gelmesini tarih seçince de TextBoxlara yazılmasını sağlamak istiyorum.
Yardımcı olur musunuz?

Dosyam ektedir...
Genişletmek için tıkla ...

Merhaba
Kod: 
Private Sub TextBox1_Enter()
Takvim.Show
End Sub
Bu şekilde kullanabilirsiniz_?
Bu arada verisyonunuz 2007 neden excel'in kendi takvimini kullanmıyorsunuz.
Kullanmak isterseniz Sitede Calendar diye arama yapınız.
 
asi_kral_1967' Alıntı:
Merhaba
Kod: 
Private Sub TextBox1_Enter()
Takvim.Show
End Sub
Bu şekilde kullanabilirsiniz_?
Bu arada verisyonunuz 2007 neden excel'in kendi takvimini kullanmıyorsunuz.
Kullanmak isterseniz Sitede Calendar diye arama yapınız.
Genişletmek için tıkla ...

Merhaba.
excelin kendi takvimi olduğunu bilmiyordum. Bu konuyu araştıracağım.
Burada yapmak istediğim iki tarih arasını "UMO" adını verdiğim sayfaya aktarmak.
Verdiğiniz kod yardımı ile takvim geliyor. Ama takvimden midir, yoksa başka birşeyden midir, çalıştıramadım. Örnek aldığım dosyada takvimin bugünü kırmızı olarak beliriyordu. Şu an durum böyle değil.

Her iki textboxıma tarih girdiğimde "satış" adındaki sayfamdaki verileri "UMO" adındaki sayfama "hücre seçerek" nasıl aktarabilirim? Örneğin: satış A2 UMO A2 ye gibi...

Saygılarımla...
 
Emine Şahin' Alıntı:
Merhaba.
Forumdan örnek aldığım bir dosyadan tarih adlı formun açılmasını nasıl sağlayabilirim?
Burada Tarih adlı userformun initialize olayını aynen kopyaladım.
Sonra class1 de olanlarıda kendi formumu taşıdım
Sonra Modüle1 de olanları kendi formumda Modüle 3'e taşıdım.
Benim formumda satış ekranında sağ tarafta ikitane boş TextBox var.
Bunlara tıklayınca takvimin gelmesini tarih seçince de TextBoxlara yazılmasını sağlamak istiyorum.
Yardımcı olur musunuz?

Dosyam ektedir...
Genişletmek için tıkla ...

Modül3 içerisinde tarih formunun tıklayınca çıkmasını istediğiniz Userform ve textboxların adreslerini vermeniz gerekir.
Şu şekilde;
Sub clasa_ekle()
baslangıc_yılı = 1976
bitis_yılı = 2100
ReDim Preserve takvim_txt(1)
Set takvim_txt(1).takvim_txt = satış.TextBox1
End Sub

Diyelimki başka bir form ve textboxda daha çıkmasını istiyorsunuz o zaman şu şekilde olması lazım.

Sub clasa_ekle()
baslangıc_yılı = 1976
bitis_yılı = 2100
ReDim Preserve takvim_txt(2)
Set takvim_txt(1).takvim_txt = satış.TextBox1
Set takvim_txt(1).takvim_txt = rapor.TextBox1
End Sub

Ayrıca Takvim formunun çıkacağı Userformların İnitializelerinde
call clasa_ekle
yazması lazım

Kolay Gelsin
 
Emine Şahin' Alıntı:
Merhaba.
excelin kendi takvimi olduğunu bilmiyordum. Bu konuyu araştıracağım.
Burada yapmak istediğim iki tarih arasını "UMO" adını verdiğim sayfaya aktarmak.
Verdiğiniz kod yardımı ile takvim geliyor. Ama takvimden midir, yoksa başka birşeyden midir, çalıştıramadım. Örnek aldığım dosyada takvimin bugünü kırmızı olarak beliriyordu. Şu an durum böyle değil.

Her iki textboxıma tarih girdiğimde "satış" adındaki sayfamdaki verileri "UMO" adındaki sayfama "hücre seçerek" nasıl aktarabilirim? Örneğin: satış A2 UMO A2 ye gibi...

Saygılarımla...
Genişletmek için tıkla ...

Sn. Şahin,
iki tarih arasını UMO sayfasına aktarma Rapor formunuza eklendi, ayrıca tarih ile ilgili düzeltmeleride yaptım. Dosyanız ektedir.
Kolay Gelsin

dosya kaldırıldı
 
Son düzenleme:
Ben size mesaj yazarken siz konuyu halletmişsiniz.
Ben denemelerimde (yol gösterdiğiniz şekliyle) tam sonuç alamamıştım.
Dersime biraz çalışıp size bilgi vereceğim. Emeğinize sağlık Bedri Bey. Allah razı olsun...
 
Bedri Bey yanlış dosyayı mı eklediniz?
Çalışmıyor?

Pardon düzeltiyorum. Rapor Formundaymış :D
 
Bedri Bey emeğinize sağlık.
Kafamda oluşturduğum şablon bu değildi ama olsun. Bir iki husus var onları dile getirmek istiyorum.
1) Filtreleme yapmadan bu sonucu almak mümkün mü?
2) satış sayfam üzerinde bir makrom vardı kaybolmuş. Sorun değil eklerim.
3) Yukarıda mesajda belirtmiştim. UMO sayfasına, tarihi seçilen satırlardaki verileri belirlediğim hücrelere dağıtmak. Örneğin;
satış sayfasında bulunan A2 = UMO A2
satış sayfasında bulunan B2 = UMO C2
satış sayfasında bulunan C2 = UMO E2
satış sayfasında bulunan D2 = UMO F2
gibi...

Mümkün mü?
Saygılarımla...
 
Bir üstteki mesajım günceldir arkadaşlar.
Verileri belirlediğim hücrelere göre aktarmak istiyorum.

Ayrıca Bedri Bey yolladığınız dosyayı evde açamıyorum bir hata veriyor.
Tarih formatıyla alakalı ama?
Saygılarımla.

55hx8.jpg
 
Son düzenleme:
Emine Şahin' Alıntı:
Bedri Bey emeğinize sağlık.
Kafamda oluşturduğum şablon bu değildi ama olsun. Bir iki husus var onları dile getirmek istiyorum.
1) Filtreleme yapmadan bu sonucu almak mümkün mü?
2) satış sayfam üzerinde bir makrom vardı kaybolmuş. Sorun değil eklerim.
3) Yukarıda mesajda belirtmiştim. UMO sayfasına, tarihi seçilen satırlardaki verileri belirlediğim hücrelere dağıtmak. Örneğin;
satış sayfasında bulunan A2 = UMO A2
satış sayfasında bulunan B2 = UMO C2
satış sayfasında bulunan C2 = UMO E2
satış sayfasında bulunan D2 = UMO F2
gibi...

Mümkün mü?
Saygılarımla...
Genişletmek için tıkla ...

1) Filtreleme yapmadan derken, belirleyeceğiniz iki tarihin arasındaki verileri almak istemiyormusunuz ? Sütun, sütun tüm veriler mi taşınacak ?
2) Ben dosyayı açmak isterken dış veri bağlantıları ile ilgili hata veriyordu bunlar kaldırıldığı için bahsettiğiniz makrolar kaybolmuş olabilir.
3) tek bir satırdaki veriler mi belirlenen hücrelere gidecek ?
 
Emine Şahin' Alıntı:
Bir üstteki mesajım günceldir arkadaşlar.
Verileri belirlediğim hücrelere göre aktarmak istiyorum.

Ayrıca Bedri Bey yolladığınız dosyayı evde açamıyorum bir hata veriyor.
Tarih formatıyla alakalı ama?
Saygılarımla.

55hx8.jpg
Genişletmek için tıkla ...

Hata veren makiada Tools> References kısmında missing ile başlayan referans başındaki çentiği kaldırın.
Kolay Gelsin
 
Eğer öyle bir referans yoksa VBA.Date olarak bir deneyin...
 
bedri41' Alıntı:
1) Filtreleme yapmadan derken, belirleyeceğiniz iki tarihin arasındaki verileri almak istemiyormusunuz ? Sütun, sütun tüm veriler mi taşınacak ?
2) Ben dosyayı açmak isterken dış veri bağlantıları ile ilgili hata veriyordu bunlar kaldırıldığı için bahsettiğiniz makrolar kaybolmuş olabilir.
3) tek bir satırdaki veriler mi belirlenen hücrelere gidecek ?
Genişletmek için tıkla ...

Merhaba Bedri Bey.
1) Filtreleme yapacak. Ama bunu VBA kodlarıyla yapabilirse daha hoş olur. Raporlarda TexBox içine girdiğim iki tarih arasındaki tüm verileri seçecek.
2) Dosyamı işyerinde sorunsuz açıyorum. Ama akşam eve gittiğimde dosyayı tekrar indirip açtım. Dosya açıldı. Otomatik olarakta anasayfam geldi. Lakin, "Rapor" ya da "satış" ekranına geçmek için butonları tıkladığımda resimdeki gibi hata verdi.
3) Tek bir satır hücrelere gitmeyecek. Şuan seçilen tarihler "UMO" sayfasına doğru aktarılıyor. Ama daha açık olması için dosyayı tekrar ekliyorum. Seçilen iki tarih arasındaki veriler ilgili hücrelere taşınacak. Çok zahmet vermemesi adına örnek bir kod dizini bile olsa ben gerisini hallederim.

Yinede bir örnekleme yacak olursak;
İki tarih arasında seçilen satırlar,
A2 Hücresindeki tarih UMO ya A2 hücresine
B2 Hücresindeki Borkodu bulunan veriler B2 hücresine
C2 Hücresinde bulunan veriler C2 hücresine
D2 Hücresinde bulunan veriler D2 hücresine
E2 Hücresinde bulunan veriler F2 hücresine
F2 Hücresinde bulunan veriler E2 hücresine
Bu şekilde bir harmanlama yapmak istiyorum. Neden derseniz? Buradaki çıkan raporu Farklı bir programa aktarmak zorundayım. Bu sebeple şablon UMU adındaki sayfadır. Şayet bu sayfayı "masa ütüne UMO adında kaydettirebilirsek bu daha da kullanışlı olur. Ama bu şekildede işimi ziyadesiyle görür.

Umarım anlatabildim. Dosyam ektedir.
Saygılarımla.
bedri41' Alıntı:
Hata veren makiada Tools> References kısmında missing ile başlayan referans başındaki çentiği kaldırın.
Kolay Gelsin
Genişletmek için tıkla ...
Tools> References kısmında missing ile başlayan bir şeye rastlayamadım.
Murat OSMA' Alıntı:
Eğer öyle bir referans yoksa VBA.Date olarak bir deneyin...
Genişletmek için tıkla ...
Merhaba Murat Bey. Tools> References içerisinde mi bahsettiğiniz "VBA.Date"
Bulamadım ya da bahsettiğiniz konuyu anlayamadım.
Saygılarımla.
 
Bu satırı;
TextBox1.Value = Format(Date, "DD.MM.YYYY")

Bu satır ile değiştirip deneyiniz...
Kod: 
TextBox1.Value = Format(VBA.Date, "DD.MM.YYYY")
 
Murat OSMA' Alıntı:
Bu satırı;
TextBox1.Value = Format(Date, "DD.MM.YYYY")

Bu satır ile değiştirip deneyiniz...
Kod: 
TextBox1.Value = Format(VBA.Date, "DD.MM.YYYY")
Genişletmek için tıkla ...

Merhaba Murat Bey.
Bu sorunu evdeki PC'de yaşıyorum. Şu an işyerimdeki PC'de sorunum yok.
Akşam dediğinizi deniyeceğim. Teşekkür ederim.
 
Rapor ilavesi

Raporlamayı dediğiniz gibi A-D aralığını A dan itibaren ve kalan kısmıda F den itibaren aktaracak şekilde değiştirdim. Ayrıca raporlamayı UMO sayfasına yapabileceğiniz gibi UMO dosyasınada yapabilmeniz için bir buton daha ekledim. UMO dosyasına veri aktarırken hata almamak için bu dosyayının kapalı olmasına ve stoksatış dosyası ile aynı klasör içerisinde olmasına dikkat edin.
 
Son düzenleme:
Merhaba Bedri Bey.
Emeğinize sağlık. Tam istediğim ibi olmuş. Ancak söylemekten imtina ediyorum. Verilerin aktarıldığı hücreler doğru değil.
Ben belki hallederim dedim ama kodlardan da bir şey anlamadım. Şayet yol gösterirseniz halletmeye açlışırım, zor gibi görünsede.
Ben bir dökümünü yapayım.

UMO ya aktarılan A, B, C, D sütununa kadar doğru. Bundan sonrası;

satış E UMO F ye
satış F UMO E ye
satış G UMO G ye
satış H UMO H ye
satış I UMO M ye
satış J UMO N ye
satış K UMO O ye
satış L UMO R ye
satış M UMO S ye
satış N UMO T ye
satış O UMO U ye
satış P UMO V ye
satış Q UMO X ye
satış R UMO AE ye
satış S UMO AF ye
satış T UMO AG ye
satış U UMO AH ye

şeklinde aktarılabilir mi? Yine yukarıda dediğim gibi
bana yolunu yordamını da izah ederseniz çok memnun olurum.
Bir küçük ayrıntı olarakda tarih seçilmez ise hata veriyor. Lütfen tarih seçin gibi bir mesaj oluşturabilir miyiz?
Saygılarımla.
 
Son düzenleme:
Bir üstteki mesajın ekini güncelledim, kontrol ediniz.
Kolay Gelsin
 
Murat OSMA' Alıntı:
Bu satırı;
TextBox1.Value = Format(Date, "DD.MM.YYYY")

Bu satır ile değiştirip deneyiniz...
Kod: 
TextBox1.Value = Format(VBA.Date, "DD.MM.YYYY")
Genişletmek için tıkla ...

Merhaba Murat Bey.
Dediğinizi uyguladım. Bu seferde Format kısmı hata veriyor. :)
Güldüğüme bakmayın ölücem sinirden.

56twr.jpg


Bedri Bey zahmet verdim. Konuyu inceliycem ama, şu sıkıntıyı bir aşabilirsem... İnşallah...

EDİT: Bedri Bey bahsettiğiniz missing ile ilgili check'i kaldırdım. Olay tamam... :)
 
EDİT: Bedri Bey bahsettiğiniz missing ile ilgili check'i kaldırdım. Olay tamam... :)[/QUOTE]

Hepimize geçmiş olsun :)
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst