• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

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

ahmed_ummu

ahmed_ummu

Altın Üye
Katılım
28 Mart 2011
Mesajlar
777
Excel Vers. ve Dili
Excel 2010 Professional Plus 64 Bit
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.
 
Son düzenleme:
C++: 
Sheets("Sayfa2").Range("A1") = Format(DateSerial(Sheets("Sayfa1").Range("A1"), ComboBox1.ListIndex, 15), "dd.mm.yyyy")
 
İ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.
 
Son düzenleme:
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.
 
Entere basınca artı + yı kendiliğinden kaldırıyo.
 
Kod: 
Sheets("Sayfa2").Range("A1") = Format(DateSerial(Sheets("Sayfa1").Range("A1"), ComboBox1.ListIndex +1, 15), "dd.mm.yyyy")
 
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.
 
Kod ile
Kod: 
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)
 
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.
 
Dosyanızı harici Dosya Yükelem Sitelerine yükleyip link paylaşırmısın
 
Ç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.
 

İ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.
 
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?
 
ÖmerFaruk' Alıntı:
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?
Genişletmek için tıkla ...
Pardon konuyu yeni actigimda örnek olarak yazmıştım. A1 i falan Sabitler sayfasında 2021
 
Ben tekrar soracağım siz cevap verene kadar.

2021 A1 de yazmıyor. Nerede bu 2021?
AS9 da ne yazacak?
AV9 da ne yazacak?
 
ÖmerFaruk' Alıntı:
Ben tekrar soracağım siz cevap verene kadar.

2021 A1 de yazmıyor. Nerede bu 2021?
AS9 da ne yazacak?
AV9 da ne yazacak?
Genişletmek için tıkla ...
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
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst