takvim.ocx excel 2010

[mancubus]

1 nolu mesajdaki DTPicker nesnesinin adı ne?
bir önceki mesajdaki dosyanın içindekinin adı ne?

nesnenin adı ile bu nesneyi ilgilendiren kod içinde ad aynı olmalı.

 

[drykcktl]

Dppicker

1. yöntem. sağ klik ile çıkan...

bende dppicker umarım doğru yazdım çıkmıyor neden olabilir

 

[mancubus]

aslında tarih seçme imkanı veren kontrollerin hepsine date picker deniliyor.

profildeki versiyon doğru ise ofis 2003'te calendar control var.

sayfaya veya userform'a ekleyeceğinizi kontroller için ilgili ekleme menüsünden (sayfa veya VBA)kontrol kutusunu (control toolbox) açıp "ilave kontroller"i tıklayarak açılan listeden seçmek mümkün.

 

[mancubus]

ayrıca:

http://www.excel.web.tr/f60/dtpicker-takvim-nesnesinin-kurulumu-t76456.html

 

[mancubus]

ve dahi:

http://www.excel.web.tr/f60/excel-hata-mesajlary-ve-anlamlary-t59354/post406411.html

 

[drykcktl]

teşekkürler

ayrıca:

http://www.excel.web.tr/f60/dtpicker-takvim-nesnesinin-kurulumu-t76456.html

cehaletime verin ama kurcalamadığım menü kalmadı desem yeridir ama olmadı
en son http://www.excel.web.tr/f48/dtpicker-t128520.html bunu denedim ama olmadı hala birde sizinkilere bakıcam

 

[drykcktl]

son olarak 2003 ve biraz daha açıklarmısınız rica etsem

 

[drykcktl]

7. "ToolBox" üzerinde sağ mouse tuşuna basın. "Additional Controls" komutunu verin.

8. Listeden, "Microsoft ProgressBar Control 6.0 (SP6)" yı işaetleyip "OK" deyiniz.

açılmıyor zaten "Additional Controls" bu ekran..kafayı ıicem bir dosya yollasam sadece takvimi eklermisiniz

 

[gimmeluck]

1 nolu mesajdaki DTPicker nesnesinin adı ne?
bir önceki mesajdaki dosyanın içindekinin adı ne?

nesnenin adı ile bu nesneyi ilgilendiren kod içinde ad aynı olmalı.

hocam hepsi aynı
"DTPicker21"
ama su yukardaki secme alanında worksheetin içine neden yazdın benim bu kodu DTPicker21 içine yazsana diyorsan, onu yazdırmıyor ki hocam?
senin kodu yapıstırıyorum kaydediyor cıkıyorum,
yeniden açınca DTPicker21 secince
illa senin kodla beraber bunu da koyuyor kendi kendine:

Private Sub DTPicker21_CallbackKeyDown(ByVal KeyCode As Integer, ByVal Shift As Integer, ByVal CallbackField As String, CallbackDate As Date)

End Sub

 

[mancubus]

listede çıkmıyorsa bilgisayarda yok demektir.

 

[mancubus]

ekte çalışan bir örnek...

 

[gimmeluck]

listede çıkmıyorsa bilgisayarda yok demektir.

hoca msecenek var ama senin kodu kaydettirmiyor.
ekteki printscrren gibi, worksheette sizin kod. eger dtpick seversem yukardan direk kendi Şu kodunu yazıyor zorla:

Private Sub DTPicker21_CallbackKeyDown(ByVal KeyCode As Integer, ByVal Shift As Integer, ByVal CallbackField As String, CallbackDate As Date)

Hocam sende oluyorsa senin kodun eklenmiş halini gönderebilir misin?
dosyayı da eke koydum tekrar o yuzden.

EDIT: yeni sayfaya gecmis verdigin ornegi yeni gordum bir bakayim teşekkürler.

 

[gimmeluck]

hocam sizin dosya da dinamik değil, şu anda 11.07 yi seçemiyorum mesela.
today-1 değil yani. dünküyle aynı kalmış. en son 10.07 seçilebiliyor.

 

[gimmeluck]

hocam sizin dosya da dinamik değil, şu anda 11.07 yi seçemiyorum mesela.
today-1 değil yani. dünküyle aynı kalmış. en son 10.07 seçilebiliyor.

 

[mancubus]

hoca msecenek var ama senin kodu kaydettirmiyor.
ekteki printscrren gibi, worksheette sizin kod. eger dtpick seversem yukardan direk kendi Şu kodunu yazıyor zorla:

Private Sub DTPicker21_CallbackKeyDown(ByVal KeyCode As Integer, ByVal Shift As Integer, ByVal CallbackField As String, CallbackDate As Date)

Hocam sende oluyorsa senin kodun eklenmiş halini gönderebilir misin?
dosyayı da eke koydum tekrar o yuzden.

EDIT: yeni sayfaya gecmis verdigin ornegi yeni gordum bir bakayim teşekkürler.

bu cevap sana değildi zaten.

 

[mancubus]

31 no.lu mesaja eklediğim dosyadaki kodların tamamını silip aşağıdakini kopyalarak deneyelim.

umarım çalışır. başka önerim yok çünkü. yarın tekrar test etmek lazım tabii.

Private Sub DTPicker1_GotFocus()
    DTPicker1.Value = Date - 1
    DTPicker1.MaxDate = Date - 1
End Sub

Private Sub DTPicker1_Change()
    On Error Resume Next
    rww = Application.Match(CDbl(DTPicker1.Value), Columns(2), 0)
    If rww = 0 Then
        Range("I9") = "veri yok"
    Else
        Range("I9") = Range("C" & rww)
    End If
End Sub

 

[gimmeluck]

anladım hocam,
peki o data pick Activex şablonun hücreye tam oturmaması nedeni ne olabilir?

SAğ tıklayıp format kontrl- propertiesden- move and size with cells işaretliyorum ama yine random bir şekli var formun.

standart form degil de activex oldugunan mıdır ki


EDiT: DRAwing toolstan'dan align - shape to yapmak da lazımmıs. ok dir.

 

[mancubus]

activex şablonun ne olduğunu bilmiyorum.

kastedilen activex control ise... her türlü nesne program aracılığı ile eklenebilir, boyutu ve pozisyonu ayarlanabilir.

forumda ve google'da bir çok örnek bulmak mümkün.

 

[gimmeluck]

activex şablonun ne olduğunu bilmiyorum.

kastedilen activex control ise... her türlü nesne program aracılığı ile eklenebilir, boyutu ve pozisyonu ayarlanabilir.

forumda ve google'da bir çok örnek bulmak mümkün.

yukarıda editledim,
EDiT: DRAwing toolstan'dan align - shape to yapmak da lazımmıs.
hücreye oturma işlemi ok dir.

yalnız bizim takvim olmuyor,

takvimim kullanıalcagı rapordaki sonuçların icinde "
bugun ve sonrası tarih secilirse" diye eklemeler yaparak idare edecegim.

yardımlarınız için teşekkürler :redface:

 

[mancubus]

şansa cuma günü hazırladığım dosyayı silmemişim.

tekrar açtım ve bugünükü tarihe göre güncellenmiş olduğunu gördüm.

doğrudan olmadı yalnız. tasarım modunu açıp kapattım. ve peşinden güncellendiğini gördüm.

nesne yerine hücrede veri doğrulama (data validation) ile de belli bir veri girişine izin vermek mümkün. olmadı öyle denenebilir.