Combobox'daki Aylara Göre Excel Sayfasına Tarih Yazma

[ahmed_ummu]

Merhaba arkadaşlar.

Combobox1'de Sırasıyla, Ocak, Şubat, Mart, ... ay isimleri var. Excel Sayfa1 sayfasının A1 hücresinde 2021 değeri var.
Combobox1 den Hangi ayı seçersem, mesela Mart ayını seçtim, Excel sayfa2 A1 hücresine tarih formatında 15.03.2021 yazmasını istiyorum. 2021 değerini sayfa1 den alacak.
B1 hücresine de üçüncü ayı seçtiğim için "Mart", C2 hücresine B1 deki değerden bir sonraki gelen ay yani "Nisan" yazmasını istiyorum.
Yapamadım, yardımcı olursanız sevinirim.

 

[ÖmerFaruk]

Sheets("Sayfa2").Range("A1") = Format(DateSerial(Sheets("Sayfa1").Range("A1"), ComboBox1.ListIndex, 15), "dd.mm.yyyy")

 

[Merhum İdris SERDAR]

.

Buradaki dosyayı inceleyin.

Takvim Oluşturma – Excel Gurusu

.

 

[ahmed_ummu]

İlgilinize teşekkürler arkadaşlar.
Combo1 den ay adını seçince istediğim hücreye tarihi yazıyor. Bir de diyelim "Haziran" ayı seçildi. 15.06.2021 tarihini yazdı.
B1 hücresine Haziran, C1 hücresine de Haziran'dan bir sonraki ay Temmuz Yazmasını istiyorum. Yani B1 değerinden bir sonraki ay.

 

[ahmed_ummu]

Yeni farkettim, Combo1 den Haziran seçersem Mayıs ayının tarihini yazıyor, 15.05.2021 diye. Şubat ayını seçersem, Ocak ayının tarihini yazıyo. 15.01.2021 diye. Yani hep bir ay öncenin tarihini yazıyo.

 

[Korhan Ayhan]

@ÖmerFaruk beyin cevabında ki aşağıdaki bölüme artı 1 yaparak deneyin.

ComboBox1.ListIndex + 1

 

[ahmed_ummu]

Entere basınca artı + yı kendiliğinden kaldırıyo.

 

[ÖmerFaruk]

Sheets("Sayfa2").Range("A1") = Format(DateSerial(Sheets("Sayfa1").Range("A1"), ComboBox1.ListIndex +1, 15), "dd.mm.yyyy")

 

[ahmed_ummu]

Teşekkürler düzeldi.
Ama hala seçilen aydan bir sonraki ayın adını yazı ile yazdıramadım. Mesela A1 hücresinde hangi ay varsa o aydan bir sonraki ay ismini B1 hücresine yazdırmak istiyorum. Kod ile de, Formül ile de, biçimlendirme ile de olur.

 

[ÖmerFaruk]

Kod ile

Range("B1") = Format(DateAdd("m", 1, Range("A1")), "mmmm")

Formül ile
B1 hücresinin formatını "aaaa" yapın
=TARİH(1;AY(A1)+1;1)

 

[ahmed_ummu]

Dosyamın örnek resmini gönderiyorum. Dosya gönderemedim.
Günleri büyük yuvarlak içinde olan hücreden alıyor. Küçük yuvarlak içinde olan hücrede 15.04.2021 yazıyor. Halbuki 15 yazması gerekiyor. Diğerleri gibi. 16,17,18... gibi.
Sağdaki Nisan ayının da "Mayıs" olması gerekiyor.

 

[ÖmerFaruk]

Dosyanızı harici Dosya Yükelem Sitelerine yükleyip link paylaşırmısın

 

[ahmed_ummu]

Çok teşekkürler düzeldi. Nisan Mayıs oldu.
Çok bunaltıyorum ama örnek resimde gönderdiğim küçük yuvarlak içinde olan yer için de yardım edebilir misiniz.

 

[ahmed_ummu]

Dosyanızı harici Dosya Yükelem Sitelerine yükleyip link paylaşırmısın

Şimdi fazla meşgul etmeyim. Dosya yüklemeyi bilmiyorum. Akşam oğlandan öğrenirim. Yarın yüklerim. Daha doğrusu öyle bi site bilmiyorum. Oğlan biliyodur. Teşekkürler

 

[ahmed_ummu]

İndir ücretli

Dosyayı indir ücretli

dosya.co

dosya linkini gönderdim. ÜCP sayfasında 15,16,17,... gitmesi gereken günler, 15 olması gereken yerde 15.04.2021 yazıyor.

 

[ÖmerFaruk]

Anlattıklarınız göderdiğiniz uyuşmuyor
Combobox dediğiniz veri doğrulama ve hücresi AN9
2021 A1 de yazmıyor. Nerede bu 2021?
AS9 da ne yazacak?
AV9 da ne yazacak?

 

[ahmed_ummu]

Anlattıklarınız göderdiğiniz uyuşmuyor
Combobox dediğiniz veri doğrulama ve hücresi AN9
2021 A1 de yazmıyor. Nerede bu 2021?
AS9 da ne yazacak?
AV9 da ne yazacak?

Pardon konuyu yeni actigimda örnek olarak yazmıştım. A1 i falan Sabitler sayfasında 2021

 

[ahmed_ummu]

Pardon konuyu yeni actigimda örnek olarak yazmıştım. A1 i falan Sabitler sayfasında 2021

Ucp sayfasında yapmak istediklerim

 

[ÖmerFaruk]

Ben tekrar soracağım siz cevap verene kadar.

2021 A1 de yazmıyor. Nerede bu 2021?
AS9 da ne yazacak?
AV9 da ne yazacak?

 

[ahmed_ummu]

Ben tekrar soracağım siz cevap verene kadar.

2021 A1 de yazmıyor. Nerede bu 2021?
AS9 da ne yazacak?
AV9 da ne yazacak?

Hepsi düzeldi yardımlarınızla, teşekkürler.
Yalnız 15, 16, 17 ... Günler var. Sadece onun 15 yazması gereken yerde tarih yazıyor. 15.04.2021 diye