datepicker ekleme

[caylakmuhendis]

merhabalar,

excel sayfasında pazartesi salı .. cuma olarak belirlediğim hücreler mevcut. istiyorum ki excel sayfasına bir datepicker ekleyeyim ve datepickerdan seçilen tarih hangi güne denk geliyorsa o günün üstündeki hücreye yazdırılsın.

örneğin datepicker dan 26/07/2016 seçildiyse bu tarih salı gününün üstüne yazılsın, otomatik olarak
pazartesi üzerine 25/07/2016
çarşamba üzerine 27/07/2016
perşembe üzerine 28/07/2016
cuma üzerine 29/07/2016 yazılsın. Bunu excel 2010da nasıl sağlarım?

Teşekkürler, iyi çalışmalar

 

[Necdet]

Selam,

İyi diyorsunuz hoş diyorsunuz da, Gün adları hangi satırda ve hangi sütunlardan başlıyor?
Bunu söylemiyorsunuz.

Eğer değişkense farklı kod, sabitse farklı kod yazılır.

Bir de "Salı" günü diyelim ki B2 hücresinde yazılı, tarih B1 hücresine mi yazılacak, yoksa B2 hücresine mi?

Kısaca çok bilinmeyenli bir soru, net değil.

 

[caylakmuhendis]

Selam,

İyi diyorsunuz hoş diyorsunuz da, Gün adları hangi satırda ve hangi sütunlardan başlıyor?
Bunu söylemiyorsunuz.

Eğer değişkense farklı kod, sabitse farklı kod yazılır.

Bir de "Salı" günü diyelim ki B2 hücresinde yazılı, tarih B1 hücresine mi yazılacak, yoksa B2 hücresine mi?

Kısaca çok bilinmeyenli bir soru, net değil.

Merhabalar, hemen şöyle açıklayayım;

D5-H5 arasında yatay olarak haftanın günleri, yani pazartesi salı ... cuma yazıyor. tarihlerin de günlerin hemen üstündeki satıra yani D4-H4 hücrelerine yazılmasını istiyorum.

E5 hücresinde salı yazıyorsa E4 hücresinde D1 hücresindeki datepickerdan seçtiğim günün ait olduğu haftadaki salı gününün tarihi yazılmalı.

mesela,

datepickerdan 29/07/2016 seçtiysem E4 hücresinde 26/07/2016 yazmalı

teşekkürler, iyi çalışmalar.

 

[Necdet]

Merhaba,

Aşağıdaki kodları genel amaçlı olarak yazmıştım.

Cells olanı siz Range("D5:H5") olarak değiştirebilirsiniz, eğer sayfada gün isimleri başka yoksa bir değişiklik yapmaya da gerek kalmaz.

Sayfanıza bir DTPicker ekleyin Adı DTPicker1 olsun.

Private Sub DTPicker1_Change()

    Dim Gun As String, _
        c   As Range
    
    Gun = Format(DTPicker1.Value, "dddd")
    
    Set c = Cells.Find(Gun, LookIn:=xlValues, LookAt:=xlWhole)
    If Not c Is Nothing Then
        c.Offset(-1, 0) = DTPicker1.Value
    Else
        MsgBox Gun & " Gününü Sayfada Bulamadım, nereye yazayım?", vbCritical, "NECDET YEŞERTENER"
    End If
    
End Sub

 

[Ömer BARAN]

Merhaba. Alternatif olsun.

-- D4 hücresine =E4-1 formülünü,
-- E4 hücresine =D1+(2-HAFTANINGÜNÜ(D1;2)) formülünü,
-- F4 hücresine de =E4+1 formülünü uygulayın,
-- sonra F4 hücresini H4'e kadar kopyalayın.

Artık D1 hücresine yazılan tarihin bulunduğu haftanın Pazartesi tarihi D4'te,
Salı tarihi F4'te ... oluşacaktır. Formüldeki 2 sayısı SALI anlamındadır.
.

 

[caylakmuhendis]

çok çok teşekkür ediyorum, her iki yöntem de isteğimi karşılıyor

iyi günler, iyi çalışmalar

 

[Tevfik_Kursun]

Merhaba Arkadaşlar,
Sadece merak ettiğim için soruyorum. Bilmediğini kabul etmek te bir erdemdir derdi bir Öğretmenim (Allah rahmet eylesin).
DatePicker nedir? Tarih mi tutuyor? Rastgele tarih mi atıyor?
Saygılarımla

 

[Emir Hüseyin Çoban]

Merhaba Arkadaşlar,
Sadece merak ettiğim için soruyorum. Bilmediğini kabul etmek te bir erdemdir derdi bir Öğretmenim (Allah rahmet eylesin).
DatePicker nedir? Tarih mi tutuyor? Rastgele tarih mi atıyor?
Saygılarımla

.

Google yazip on arastirma yaptiniz mi.

.

 

[seydag.]

Merhabalar,
Ben excel 2010 kullanıyorum da Developer kısmında insert dediğimde datepicker çıkmıyor maalesef. activeX denetimlerinde de Microsoft Date seçeneğini seçtiğimde nesne eklenemiyor hatası alıyorum. Excel sayfama datepicker ı nasıl eklerim? Bu konuda bir yönlendirme rica edebilir miyim?

İyi çalışmalar,

 

[Necdet]

Merhabalar,
Ben excel 2010 kullanıyorum da Developer kısmında insert dediğimde datepicker çıkmıyor maalesef. activeX denetimlerinde de Microsoft Date seçeneğini seçtiğimde nesne eklenemiyor hatası alıyorum. Excel sayfama datepicker ı nasıl eklerim? Bu konuda bir yönlendirme rica edebilir miyim?

İyi çalışmalar,

Merhaba,

Linki İnceleyiniz, umarım yararlı olur.

http://www.excel.web.tr/f48/win7-guvenlik-guncellemesi-t145148.html

 

[Tevfik_Kursun]

Sayın Hüseyin Hocam,
Uzman Üstadların iki cümlesi, yerine göre, kesinlikle ciltlerle anlatılabilecek ifadeleri sollar diye düşünürüm.
Saygılarımla

 

[seydag.]

Merhabalar Necdet Bey,
Belirttiğiniz link içindeki,

MSForms.exd dosyasını kaldırmayı ve FM20.DLL dosya uzantısını değiştirip yapılandırmayı yeniden sağlama çözümlerini ayrı ayrı denedim fakat yine activex denetimi kısmındaki microsoft outlook date control e tıklayıp bir hücre seçtiğimde yine nesne eklenemiyor hatası alıyorum. benim linkte gözden kaçırdığım veya sizin alternatif olarak belirtebileceğiniz bir çözüm var mıdır?

Teşekkürler, iyi çalışmalar

 

[Necdet]

Merhaba,

Daha fazla benim de fikrim yok Sayın seydag.

 

[gurcannasuh]

Merhaba,
Bu kodlarda nerede hata yapıyorum, destek olabilir misiniz?

Option Explicit
Private Sub CommandButton1_Click()
If Me.TextBox5 < 1900 Then Exit Sub
Me.TextBox5 = Me.TextBox5 - 1
Call olustur

End Sub

Private Sub CommandButton2_Click()
If Me.TextBox5 > 2100 Then Exit Sub
Me.TextBox5 = Me.TextBox5 + 1

End Sub

Private Sub CommandButton3_Click()
Dim suan
suan = Me.TextBox14
If suan = 12 Then Exit Sub
suan = suan + 1
Me.TextBox6 = MonthName(suan)
Me.TextBox14 = suan
Call olustur
End Sub

Private Sub CommandButton4_Click()
Dim suan
suan = Me.TextBox14
If suan = 1 Then Exit Sub
suan = suan - 1
Me.TextBox6 = MonthName(suan)
Me.TextBox14 = suan
Call olustur
End Sub

Private Sub UserForm_Initialize()
Me.TextBox14 = Month(Now)
Me.TextBox5 = Year(Now)
Me.TextBox6 = MonthName(Me.TextBox14)
Call olustur
End Sub

Sub olustur()
Dim i As Integer
For i = 1 To 42
dtp.Controls("t" & i) = ""

Next i

Dim bas_gun As String
Dim bas_tarih As Date
bas_gun = Format(DateSerial(dtp.TextBox5, dtp.TextBox14, 1), "dddd")
bas_tarih = CDate("01" & "." & dtp.TextBox14 & "." & dtp.TextBox5)

Dim aysonu As Date
Dim aysonu_gun As String
aysonu = Format(WorksheetFunction.EoMonth(bas_tarih, 0), "dd.mm.yyyy")
aysonu_gun = Day(aysonu)

Select Case bas_gun
Case "mondey"
dtp.t1 = 1
Case "Tuesday"
dtp.t2 = 1
Case "Wednesday"
dtp.t3 = 1
Case "Thursday"
dtp.t4 = 1
Case "Friday"
dtp.t5 = 1
Case "Saturday"
dtp.t6 = 1
Case "Sunday"
dtp.t7 = 1
End Select

Dim bul As String
Dim c

For Each c In dtp.Controls
If TypeName(c) = "textbox" Then
If c.Text = "1" Then
bul = c.Name
End If
End If
Next

Dim ilk_kutu_no As String
Dim son_kutu_no As String


ilk_kutu_no = Right(bul, 1)
son_kutu_no = ilk_kutu_no + aysonu_gun

For i = ilk_kutu_no + 1 To son_kutu_no - 1
dtp.Controls("t" & i).Value = dtp.Controls("t" & i - 1).Value + 1
dtp.Controls("t" & i).Visible = True
dtp.Controls("t" & i - 1).Visible = True
Next i

For i = 1 To 42
If dtp.Controls("t" & i).Value = "" Then
dtp.Controls("t" & i).Visible = False
End If
Next i
End Sub