Açılır liste ile tarih atmak

[muratgunay48]

Arkadaşlar, sayın hocalarım. Örnek dosya bu yıl kullanacağımız bir dosya. Üstteki açılır listeden ŞUBAT seçerseniz A2'den A29'a kadar 1 şubat'tan 28 şubat'a kadar tarih atacak. Şu an TOPLAM A30'da
Eğer A1'den MART'ı seçersek A2'den A32'ye kadar 1 mart'tan 31 mart'a kadar tarih atacak ve TOPLAM A33'te olacak
Bu şekilde yapmak mümkün mü?
Şimdiden teşekkür ederim.
Saygılarımla.

 

[dEdE]

Merhaba,
Fonksiyon soruları bölümüne yazmışsınız ama VBA ile çözüm önerdim.
İkinci bir sayfa kullanmadan istediğiniz yapar.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [A1]) Is Nothing Then Exit Sub
    Range("A2:A32").ClearContents
    myAy = LCase(Replace(Replace(Range("A1"), "İ", "i"), "I", "ı"))
    myMonth = month(myAy & "." & Year(Date))
    myDay = Day(DateSerial(Year(Date), myMonth + 1, 0))
    Range("A2") = CDate(1 & "." & myMonth & "." & Year(Date))
    Range("A2:A" & myDay + 1).DataSeries
End Sub

 

[muratgunay48]

Merhaba,
Fonksiyon soruları bölümüne yazmışsınız ama VBA ile çözüm önerdim.
İkinci bir sayfa kullanmadan istediğiniz yapar.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [A1]) Is Nothing Then Exit Sub
    Range("A2:A32").ClearContents
    myAy = LCase(Replace(Replace(Range("A1"), "İ", "i"), "I", "ı"))
    myMonth = month(myAy & "." & Year(Date))
    myDay = Day(DateSerial(Year(Date), myMonth + 1, 0))
    Range("A2") = CDate(1 & "." & myMonth & "." & Year(Date))
    Range("A2:A" & myDay + 1).DataSeries
End Sub

Hocam çok teşekkür ederim. Elinize emeğinize sağlık.

 

[mhaluksen]

Merhaba,
Fonksiyon soruları bölümüne yazmışsınız ama VBA ile çözüm önerdim.
İkinci bir sayfa kullanmadan istediğiniz yapar.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [A1]) Is Nothing Then Exit Sub
    Range("A2:A32").ClearContents
    myAy = LCase(Replace(Replace(Range("A1"), "İ", "i"), "I", "ı"))
    myMonth = month(myAy & "." & Year(Date))
    myDay = Day(DateSerial(Year(Date), myMonth + 1, 0))
    Range("A2") = CDate(1 & "." & myMonth & "." & Year(Date))
    Range("A2:A" & myDay + 1).DataSeries
End Sub

Hocam elinize sağlık Peki açılan tarihte "cumartesi ve Pazar ı "nasıl renklendirebiliriz.

 

[dEdE]

...Peki açılan tarihte "cumartesi ve Pazar ı "nasıl renklendirebiliriz.

Buyurun.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [A1]) Is Nothing Then Exit Sub
    Range("A2:A32").ClearContents
    Range("A2:A32").Interior.ColorIndex = xlNone
    myAy = LCase(Replace(Replace(Range("A1"), "İ", "i"), "I", "ı"))
    myMonth = month(myAy & "." & Year(Date))
    MyDay = Day(DateSerial(Year(Date), myMonth + 1, 0))
    Range("A2") = CDate(1 & "." & myMonth & "." & Year(Date))
    Range("A2:A" & MyDay + 1).DataSeries
For i = 2 To MyDay + 1
    If Weekday(Range("A" & i)) = 1 Then Range("A" & i).Interior.ColorIndex = 15
    If Weekday(Range("A" & i)) = 7 Then Range("A" & i).Interior.ColorIndex = 15
Next i
End Sub

 

[assenucler]

Sayen dEdE,

Dosyayı kullanmak istediğimde, aşağıdaki iletiyi alıyorum.
Ne yapmalıyım?

 

[dEdE]

Forumda ARAMA yapmak lazım.
Bu iletinin kod ile ilgisi yok.

 

[AdemCan]

İlgili uyarının çıkmaması için resimde işaretlediğim alandaki onay işaretini kaldırmalısınız.

Spoyler: Güven Merkezi Ayarları

 

[dEdE]

AdemCan

"Forumda ARAMA yapmak lazım." derken
Balık tutmayı öğrensin istemiştim.

 

[muratgunay48]

Buyurun.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [A1]) Is Nothing Then Exit Sub
    Range("A2:A32").ClearContents
    Range("A2:A32").Interior.ColorIndex = xlNone
    myAy = LCase(Replace(Replace(Range("A1"), "İ", "i"), "I", "ı"))
    myMonth = month(myAy & "." & Year(Date))
    MyDay = Day(DateSerial(Year(Date), myMonth + 1, 0))
    Range("A2") = CDate(1 & "." & myMonth & "." & Year(Date))
    Range("A2:A" & MyDay + 1).DataSeries
For i = 2 To MyDay + 1
    If Weekday(Range("A" & i)) = 1 Then Range("A" & i).Interior.ColorIndex = 15
    If Weekday(Range("A" & i)) = 7 Then Range("A" & i).Interior.ColorIndex = 15
Next i
End Sub

Hocam, umarım cevabımı görürsünüz, çünkü bu akşam kullanmam lazım. Bu EĞER fonksiyonları neden çalışmıyor?
Bir de hocam, mesela ŞUBAT ayı seçili, B,C,D,E sütunlarının alt tarafının boş olmasını nasıl sağlayabilirim.
Tekrar teşekkür ederim hocam.

 

[dEdE]

EĞER Fonksiyonları ile ne yapmak istiyorsunuz ?

 

[muratgunay48]

EĞER Fonksiyonları ile ne yapmak istiyorsunuz ?

Hocam B sütunun da Pazar ya da (örneğin) Perşembe yazıyorsa 0 yazacak, diğer günlerde 1 yazacak.

 

[dEdE]

B' hücresine =METNEÇEVİR(A2;"gggg") yazıp aşağı doğru çoğaltarak dener misiniz?

 

[muratgunay48]

B' hücresine =METNEÇEVİR(A2;"gggg") yazıp aşağı doğru çoğaltarak dener misiniz?

Hocam doğru METNEÇEVİR demeliydim. Sayenizde öğreniyorum.
Hocam peki, koşullu biçimlendirme ile hücre doluysa çerçeve yaptım. Ama ŞUBAT'ta mesela 3 günlük daha para yazıyor. A30 boşsa, B30'da boş olsun nasıl yapabilirim?

 

[dEdE]

B' hücresine =EĞER(A2="";"";METNEÇEVİR(A2;"gggg")) yazıp aşağı doğru çoğaltarak dener misiniz?

 

[muratgunay48]

B' hücresine =EĞER(A2="";"";METNEÇEVİR(A2;"gggg")) yazıp aşağı doğru çoğaltarak dener misiniz?

Çok teşekkür ederim hocam, oldu. Akşam saatlerinde uğraştırdım sizi. Çok teşekkür ederim.