1 sayfadan 1. sayfa

Yıl artırma

İletiTarih: 24 Kas 2020 19:13
malatyali
Ustam
C3 hücresinde
eğer Toplu Sözleşme seçili ise D2 hücresindeki Yılı 3 yıl artıracak D3 hücresine yazacak.
527 ya da 6111 seçili ise D2 hücresindeki Yılı 1 yıl artıracak D3 hücresine yazacak. Yardımcı olabilir misiniz?

Cevap: Yıl artırma

İletiTarih: 24 Kas 2020 20:09
Filizttl
rar olarak eklenmiş dosyada bulunan Excel dosyası içerisinde belirli günler ve haftaların tarihi vardır. Bu dosya bir klasörün içerinde kapalı olarak bulunacak olup yapmak istediğimiz şey ise şudur. İlgili tarihin geldiğinden bir gün önce klasörden pc uyarı gelsin ve haftayı hatırlatsın. Amaç kurumda bayrak asılması töreni yapılacaktır.

Cevap: Yıl artırma

İletiTarih: 24 Kas 2020 20:12
malatyali
Kod: Tümünü seç
If Target.Value = "Toplu Sözleşme" Then
        Target.Offset(0, 1).Value = ActiveCell.Offset(1, 0).Value + 3
    End If
       If Target.Value = "527" Then
        Target.Offset(0, 1).Value = ActiveCell.Offset(1, 0).Value + 1
    End If
       If Target.Value = "6111" Then
        Target.Offset(0, 1).Value = ActiveCell.Offset(1, 0).Value + 1
    End If
    End If

yukarıda ki kod ile yıl sütununa 3 ya da 1 yazdırıyorum. Ancak bir üstteki yıl ile toplayarak yazmıyor. Nasıl yazdırabilirim

Cevap: Yıl artırma

İletiTarih: 24 Kas 2020 20:26
malatyali
ActiveCell.Offset(1, 0).Value kısmını ActiveCell.Offset(-1, 1).Value yapınca çözüldü. Teşekkür ederim
-1, 1