Makro otomotik çalışsın

[arslan]

Selam Arkadaşlar
Size ve bu siteye emeği geçen herkese teşekkürle başlamak istiyorum

C13:C50 Arasında girilmis değişik tarihlerim var
Bu aralıktaki Tarihlerin herhangi birisinin günü geldiğinde makrom otomotik Çalışsın Userform açsın istiyorum
yardımcı olabilirseniz sevinirim

 

[Levent Menteşoğlu]

Aşağıdaki kodu tarihlerin bulunduğu sayfanın kod sayfasına yazarak deneyin.

[vb:1:9ee07c3a56]Private Sub Worksheet_Activate()
On Error GoTo 10
Sheets("sayfa1").[c3:c50].Find(Date).Select
UserForm1.Show
10 End Sub
[/vb:1:9ee07c3a56]

 

[arslan]

teşekkürler
ama biraz değişiklik rica ediyorum
Birincisi, Makro sayfa değilde kitap açılırken çalışsın

İkinciside C deki tarihlerin karşısında Yani D stununda açıklamaları var
Userformu açınca Tarihi textbox1 de ve tarihe ait D stunundaki açıklamayıda textbox2 de Gösterebilirseniz harika olacak

Tekrar tesekkür ediyor saygılar sunuyorum

 

[Levent Menteşoğlu]

Kitabı açınca çalışması için kodu aşağıdaki gibi değiştirin. Bu kodu bir module sayfasına yazmalısınız.

[vb:1:f1be689793]Sub Auto_open()
On Error GoTo 10
Sheets("sayfa1").[c3:c50].Find(Date).Select
sat=Sheets("sayfa1").[c3:c50].Find(Date).row
userform1.textbox1=date
userform1.textbox2=Sheets("sayfa1").cells(sat,4).value
UserForm1.Show
10 End Sub
[/vb:1:f1be689793]

 

[arslan]

Harika
Çok teşekkür
Tüm ömrün basarı dolu ve sağlıklı geçsin

 

[arslan]

Bu Kodlara göre oluşturduğum sayfada tarihleri textbox'tan Yazdırınca
sonuç alamıyorum Hehalde Tarihleri sayı Yada metin olarak algılıyor. Sayfaya direkt tarih olarak yazdığımda sonuç alıyorum

Textboxtan sayfaya tarih formatında tarih girebilmek mümkünse
lütfen yazarmısınız
Tesekürler

 

[quinen]

cdate(textbox) bu komutla bir çeviri işlemi yapabilirsin. Belki işine yarayabilir.

Umarım doğru anlamışımdır.

 

[arslan]

Evet doğru anlamışın
tarihleri sayfaya yazdırınca formatları değişiyor onları sayı Yada metin gibi algılıyor

Tarih Sıralaması bile yaptırırken ona göre sıralıyor, Tarih sıralaması doğru olmuyor
Ã?rnek Olarak
2,4,2005
5,3,2005 ' i sıralatırken öndeki rakamlara (2 ve 5 ) e göre sıralıyor Aslında 5,3,2005 yukarda
2,4,2005 aşşağıda olması lazım

Verdiğiniz kodu nasıl yazacağımı bilemedim
Bir örnek yazabilirmisin

 

[Levent Menteşoğlu]

Aşağıdaki kodda A1 hücresine textbox1'deki tarih dd.mm.yy formatında yazılacaktır.

[a1]=format(cdate(textbox1.value),"dd.mm.yy")

Not:Netice alamazsanız dosyanızı gönderin onun üzerinden gidelim.

 

[arslan]

Ã?rneği gönderiyorum

 

[Levent Menteşoğlu]

Ekteki örneği inceleyin.

 

[arslan]

İste bu
harika oldu
Çok teşekkürler