[Yardım]  Yıl artırma

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

Yıl artırma

İleti#1)  malatyali » 24 Kas 2020 19:13

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?
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
malatyali
Siteye Alışmış
 
Adı Soyadı:ilhan YÜKSEL
Kayıt: 20 Kas 2008 10:08
Konum: Malatya
Meslek: Meb ilçe milli eğitim şef
Yaş: 46
İleti: 238
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Malatya / Merkez

Cevap: Yıl artırma

İleti#2)  Filizttl » 24 Kas 2020 20:09

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.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
Filizttl
Yeni Başlamış
 
Kayıt: 01 Kas 2020 15:05
Meslek: Mühendis
Yaş: 32
İleti: 22
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: Ordu

Cevap: Yıl artırma

İleti#3)  malatyali » 24 Kas 2020 20:12

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
Kullanıcı avatarı
malatyali
Siteye Alışmış
 
Adı Soyadı:ilhan YÜKSEL
Kayıt: 20 Kas 2008 10:08
Konum: Malatya
Meslek: Meb ilçe milli eğitim şef
Yaş: 46
İleti: 238
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Malatya / Merkez

Cevap: Yıl artırma

İleti#4)  malatyali » 24 Kas 2020 20:26

ActiveCell.Offset(1, 0).Value kısmını ActiveCell.Offset(-1, 1).Value yapınca çözüldü. Teşekkür ederim
-1, 1
Kullanıcı avatarı
malatyali
Siteye Alışmış
 
Adı Soyadı:ilhan YÜKSEL
Kayıt: 20 Kas 2008 10:08
Konum: Malatya
Meslek: Meb ilçe milli eğitim şef
Yaş: 46
İleti: 238
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Malatya / Merkez

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 2 misafir

Bumerang - Yazarkafe