Skip to main content

AccessTr.neT


Tarihe Yıl Ekleme

Tarihe Yıl Ekleme

Çözüldü #1
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.
Cevapla
#2
İnputboxa tarihmi,yılmı sayımı gireceksiniz.

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

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 Img-grin
Cevapla
#3
(28/03/2021, 17:36)feraz yazdı: Örnek dosya istemekten artık kendimi dilenciler gibi hissetmeye başladım Img-grin
ben artık söylemiyorum bile @feraz hocam
sadece yeni üye olmuslara hatırlatıyorum o kadar
Cevapla
#4
(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 Img-grin
ben artık söylemiyorum bile @feraz hocam
sadece yeni üye olmuslara hatırlatıyorum o kadar
Img-grin
Yapacak bişey yok abey Img-grin
@accessman abeyin kulağı çınlasın hep aklıma o gelir dosya ekleme olayı için Img-grin
Cevapla
#5
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.
.rar Örnekk.rar (Dosya Boyutu: 7,25 KB | İndirme Sayısı: 5)
Cevapla
#6
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
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task