Akaryakıt Takip

[iplikci_80]

Ayların yanındaki + bastıkça ayları değiştiren mevcut kodu, + basıp yeni ay oluşunca eski aydan örnekteki sarı boyalı hücreleri getirecek (Tarih yeni ayın ilk günü, Plaka ya DEPO, Giren sütununa önceki aydan devreden miktar ve Açıklama sütununa bir önceki ay hangisi ise ŞUBAT NAKİL gibi) şekilde revize edilmesi hususunda yardımlarınızı rica ediyorum.

 

[gokhanayd]

rica etsem dosyanızı herkesin indirebileceği bi şekilde yükleme yapabilirmisiniz bende akaryakıtla ilgi tablolar arıyorum

 

[Tevfik_Kursun]

Buyrun
Motorin
iyi çalışmalar

 

[iplikci_80]

Arkadaşlar yardımlarınızı rica ediyorum.

 

[necati]

Merhaba,
Bas = DateValue("1/" & Sheets.Count - 1 & "/" & yil) satırı ile
For sut = 6 To 8 satırları arasına şu şatırları ekleyip deneyin.

    onceki = aylar((Sheets.Count - 2) Mod 13)
    [B10] = Bas
    [C10] = "DEPO"
    [E10] = Sheets(onceki).Range("D4").Value
    [H10] = onceki & " NAKİL"

 

[iplikci_80]

Çok teşekkür ederim.