Çözüldü Sütun Başlıklarını Tarihe Göre Şekillendirme

ssavas · 2 Ocak 2021

Merhaba arkadaşlar.
Buradaki kod içerisinde bulunulan yıla ait ay isimlerini döngü ile


For aa = 1 To 12
.ColumnHeaders.Add , , Format(DateSerial(Year(Date), aa, 1), "mmmm yyyy"), 80, lvwColumnCenter
Next aa

bulunuyor.
Burada, döngüdeki hesaplanan yıl bilgisini textbox1 den almasını nasıl sağlarız.
Mevcut duruma göre 2021 yılına ait ay isimleri listview da sütun başlığı olarak tanımlanıyor ve devamında da 2021 yılına ait aylık toplamlar bulunuyor.
Yapılacak revizyon ile textbox1 de yazdığım tarihe göre listview1 sütun başlıkları tanımlansın ve tanımlı olan yılın ay toplamları hesaplansın.
Yardımcı olacak uzman arkadaşlara teşekkür ederim.

CPP:

Görüntülemek için giriş yapmalısınız.
(63 satır)

Feyzullah · 2 Ocak 2021

s.savas' Alıntı:
.ColumnHeaders.Add , , Format(DateSerial(Year(Date), aa, 1), "mmmm yyyy"), 80, lvwColumnCenter

Bu kodu aşağıdaki gibi
.ColumnHeaders.Add , , Format(DateSerial(Year(Cdate(TextBox1.Text)), aa, 1), "mmmm yyyy"), 80, lvwColumnCenter

s.savas' Alıntı:
sorgu = "Transform sum(fatura_tutari) Select IlAdi,IlceAdi,birim_adi,abone_adi,abone_no from fatura Where Year(fatura_tarihi)='" & Year(Date) & "' "

Bu kodu aşağıdaki gibi

sorgu = "Transform sum(fatura_tutari) Select IlAdi,IlceAdi,birim_adi,abone_adi,abone_no from fatura Where Year(fatura_tarihi)='" & Year(Cdate(TextBox1.Text))) & "' "

ssavas · 2 Ocak 2021

Feyzullah' Alıntı:
Bu kodu aşağıdaki gibi
.ColumnHeaders.Add , , Format(DateSerial(Year(Cdate(TextBox1.Text)), aa, 1), "mmmm yyyy"), 80, lvwColumnCenter

Bu kodu aşağıdaki gibi
sorgu = "Transform sum(fatura_tutari) Select IlAdi,IlceAdi,birim_adi,abone_adi,abone_no from fatura Where Year(fatura_tarihi)='" & Year(Cdate(TextBox1.Text))) & "' "

Üstat teşekkür ederim, ancak sütun başlıkları doğru gelmediği gibi aylık veriler de listview1 e gelmedi.

CPP:

Görüntülemek için giriş yapmalısınız.
(69 satır)

Feyzullah · 2 Ocak 2021

Hocam ben o alana 02.01.2020 tarih gireceğinizi düşünerekten yapmıştım. Eğer sadece yıl yazacaksanız.
ilk mesajınızdaki Year(Date) yazan yeri TextBox.Text yapmanız yeterli.

ssavas · 2 Ocak 2021

Feyzullah' Alıntı:
Hocam ben o alana 02.01.2020 tarih gireceğinizi düşünerekten yapmıştım. Eğer sadece yıl yazacaksanız.
ilk mesajınızdaki Year(Date) yazan yeri TextBox.Text yapmanız yeterli.

Tamamdır üstat, eline sağlık.

	Çözüldü Yaklaşan Tarihe Göre Yapılacak Görevi Hatırlatma ExcelDepo 15 Ocak 2024 Excel Makro Soruları
T	Çözüldü Satır ve Sütun Bilgilerine Göre Düzenleme tinkelbel 12 Mar 2024 Excel Makro Soruları
	Çözüldü Tarihe Göre Tcmb Döviz Kuru Alma Omer_BARAN 17 May 2021 Excel Makro Soruları
Y	Çözüldü Tarihe Göre Sıralama Omer_BARAN 19 Şub 2024 Excel Makro Soruları
B	Çözüldü Tarihe göre Giriş Kısıtlama AhmetRasim 9 Kas 2019 Excel Makro Soruları

Çözüldü Sütun Başlıklarını Tarihe Göre Şekillendirme

Gizliliğinize önem veriyoruz,