AccessTr.neT

(21/02/2021, 00:10)feraz yazdı: [ -> ]Son halşni bir yollayın.Zaten 7 sütunluk değilmi listbox.Ay sütunu yoktu bildiğim listboxtta

Toplam 8 sütun var ben listboxta ilk 7 sütunu gösteriyorum 8 . sütun hesaplamalarda kullanılıyor. Ana Sayfada 8.sütun AY sütunu en son sütun. Tarih sütunundaki ay bilgisini gösteriyor.

Worksheets("Ana Sayfa").Cells(SonSatir, 7) = CDbl(txt_Tutar)

Yukarıdaki kodun altına attaki kodu eklerseniz Ay olarak ekler.
Bence formülleride böyle yaparsanız dahada hızlanır dosya.

Worksheets("Ana Sayfa").Cells(SonSatir, 8) = Month(txt_MasrafTarihi.Value)

Tabii else satırının üzerinede eklenecek.

Birde tablo olduğu için formül yani ay sütunu otomatik oluyordu veri girdikçe sizinkinde olmuyor.
Onu ayarlarsam onuda göstereyim en garantilisi önceki vediğim kod.

(21/02/2021, 00:29)feraz yazdı: [ -> ]Birde tablo olduğu için formül yani ay sütunu otomatik oluyordu veri girdikçe sizinkinde olmuyor.
Onu ayarlarsam onuda göstereyim en garantilisi önceki vediğim kod.

Type mistmatch hatası veriyor. Tarih formatından kaynaklı sanırım. dd/mm/yyyy ve mm/dd/yyyy şeklinde kodda geçen heryerde değiştirdim iki şekilde de hata veriyor

Bir gif yaptım.Daha önce dediğim olayı anlatmak için.
Yani tablodaki formüller otomatik oluşuyor alta.
Yani koda 8.sütun yazılmasa bile kendiliğinden oluşması gerek siz yanlış yapmışınız.

Mesaj kutunuz kapalı mesaj atamıyorum