Makroda Eğer Kullanımı - Baskı Önizleme

Makroda Eğer Kullanımı - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Makroda Eğer Kullanımı (/konu-makroda-eger-kullanimi.html)

Sayfalar: 1 2

Makroda Eğer Kullanımı - malatyalı - 02/05/2021

Kod:

If Sheets("Sayfa3").Range("D3").Value = "Ortaokulu bitirenler" And Sheets("Sayfa3").Range("D5").Value = "Liseyi bitirenler" Then

Kod:

Sheets("Sayfa3").Range("D3").Value = Format(Day(Range("M3").Value) & "." & Month(Range("M3").Value) & "." & Year(Range("L3").Value) + 3, "dd.mm.yyyy")

Yapmak istediğim L3 de ki yıl kısmına 3 yıl ekleyerek M3 deki tarihin yıl kısmına almak
Örnek :
M3 = 30.06
L3 = 30.06.1998
D10 = 30.06.2001 olacak

Yardımlarınızı istirham ediyorum.

RE: Makroda Eğer Kullanımı - berduş - 02/05/2021

M3'ün anlamı ne? L3'teki tarihin gün ve ay kısmı değil mi?

RE: Makroda Eğer Kullanımı - malatyalı - 02/05/2021

Berduş ustam M3
Sayfa1de öğrenim durumunun hemen altında yer alan yıl eksik tarih

RE: Makroda Eğer Kullanımı - berduş - 02/05/2021

kodu aşağıdaki gibi düzenleyip dener misiniz?

If Not Intersect(Target, [B3:O6]) Is Nothing Then

If Sheets("Sayfa3").Range("D3").Value = "Ortaokulu bitirenler" And Sheets("Sayfa3").Range("D5").Value = "Liseyi bitirenler" Then _

    Sheets("Sayfa3").Range("D10").Value = Sheets("Sayfa3").Range("M3").Value & Format(DateAdd("yyyy", 3, Sheets("Sayfa3").Range("L3").Value), "yyyy")

End If

RE: Makroda Eğer Kullanımı - malatyalı - 02/05/2021

Berduş Ustam
Hakkınızı Helal edin

RE: Makroda Eğer Kullanımı - berduş - 02/05/2021

rica ederim
iyi çalışmalar ama bu kodu siz de yazabilirdiniz aslında, dilerim yazdığımız kodları inceleyip anlamaya çalışıyorsunuzdur çünkü ilerde sorun yaşama ihtimaliniz olabilir
taşıma suyla değirmen bir yere kadar döner...