M5 hücresinde bir tarih mevcut;

M5 hücresine tıklandığı zaman INPUTBOX açılıp rakam girdiğim zaman M6 hücresine M5 Hücresinde ki tarihe girilen rakam kadar yıl eklenmiş yeni tarihi

M6 hücresine tıklandığı zaman INPUTBOX açılıp rakam girdiğim zaman M7 hücresine M6 Hücresinde ki tarihe girilen rakam kadar yıl eklenmiş yeni tarihi

M7 hücresine tıklandığı zaman INPUTBOX açılıp rakam girdiğim zaman M8 hücresine M6 Hücresinde ki tarihe girilen rakam kadar yıl eklenmiş yeni tarihi

M8 hücresine tıklandığı zaman INPUTBOX açılıp rakam girdiğim zaman M9 hücresine M7 Hücresinde ki tarihe girilen rakam kadar yıl eklenmiş yeni tarihi


yani M5 sütunundan itibaren tıklanan hücrenin bir altına INPUTBOX da ki rakam kadar yıl eklenmiş yeni tarihi yazacak bir makro konusunda yardımınızı istirham etsem, yardımcı olabilir misiniz?

Saygı ve hürmetlerimle.

İnputboxa tarihmi,yılmı sayımı gireceksiniz.

Örnek dosya istemekten artık kendimi dilenciler gibi hissetmeye başladım

Ayrıca diğer forumlardan sizi tanıdığım kadarıyla artık sheetsselectedchange gibi koduna target.row ve target.column gibi kodları öğrenmeniz gerekiyordu abey

(28/03/2021, 17:36)feraz yazdı: Örnek dosya istemekten artık kendimi dilenciler gibi hissetmeye başladım

ben artık söylemiyorum bile @feraz hocam
sadece yeni üye olmuslara hatırlatıyorum o kadar

(28/03/2021, 17:42)berduş yazdı:

(28/03/2021, 17:36)feraz yazdı: Örnek dosya istemekten artık kendimi dilenciler gibi hissetmeye başladım

ben artık söylemiyorum bile @feraz hocam
sadece yeni üye olmuslara hatırlatıyorum o kadar

Yapacak bişey yok abey
@accessman abeyin kulağı çınlasın hep aklıma o gelir dosya ekleme olayı için

Aslında INPUT' a rakam girilecek diye belirtmiştim.
Ekli örnek dosya da M sütununda 5. satırda tarih mevcut. Alta doğru girilen tarihler hep 2 yıl artırılmış.
Sizlerden ricam yıl kısmına girilen rakamı INPUT ile girmek. Üst hücreye tıklandıkça INPUT açılması rakam girdikçe bir altına girilen rakam kadar yıl artırılmış tarihi yazmak.

Örnek dosya için de karışık olmadığını düşündüğüm için yüklememiştim.

Alttaki kodu sayfa koduna ekleyip deneyiniz abey.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)



    Dim sor

    

    If Target.Column <> 13 Then Exit Sub

    If Target.Row < 5 Then Exit Sub

    If Target.Rows.Count > 1 Then Exit Sub

    If Target.Value = "" Then Exit Sub

    If Not IsDate(Target) Then Exit Sub

    

    On Error Resume Next

    sor = Application.InputBox("Sayi giriniz..." & vbNewLine & vbNewLine & "Not:Sadece sayi giriniz", "Sayi", 0)

    On Error GoTo 0

    If sor = False Or sor = "" Then Exit Sub

    If Not IsNumeric(sor) Then: MsgBox "Rakam giriniz..", vbCritical, "Hata": Exit Sub

    If Val(sor) < 1 Then MsgBox "0 den büyük rakam giriniz..", vbCritical, "Hata": Exit Sub

    Target.NumberFormat = "dd.mm.yyyy"

    Target.Offset(1).Value = WorksheetFunction.EDate(CDate(Target), 12 * Val(sor))

    Target.Offset(1).NumberFormat = "dd.mm.yyyy"

End Sub