Skip to main content

AccessTr.neT


Makroda Eğer Kullanımı

Makroda Eğer Kullanımı

Çözüldü #1
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.
.zip Kitap1yatay.zip (Dosya Boyutu: 19,83 KB | İndirme Sayısı: 1)
malatyalı, 31-01-2010 tarihinden beri AccessTr.neT üyesidir.
Cevapla
#2
M3'ün anlamı ne? L3'teki tarihin gün ve ay kısmı değil mi?
Cevapla
#3
Berduş ustam M3
Sayfa1de öğrenim durumunun hemen altında yer alan yıl eksik tarih
malatyalı, 31-01-2010 tarihinden beri AccessTr.neT üyesidir.
Cevapla
#4
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
Cevapla
#5
Berduş Ustam
Hakkınızı Helal edin
malatyalı, 31-01-2010 tarihinden beri AccessTr.neT üyesidir.
Cevapla
#6
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...
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da