Excel tablosunda buton ile nasıl tarih eklenir?

Retoucher dedi:

Eklediğim görseldeki gibi bir şey uygun olur mu ? Eğer işinizi görürse aşağıdaki kodu macro olarak kaydedin. Daha sonra geliştirici seçeneklerinden bir buton ekleyip makroyu seçin.

Kod:Panoya kopyala

Sub EklemeIslemi()
    Dim secenek As String
    Dim tarih As Date
    Dim yeni_tarih As Date
  
    ' Seçenekleri kullanıcıya göster
    secenek = InputBox("Hangi seçeneği eklemek istersiniz?" & vbCrLf & _
                       "1: 1 ay" & vbCrLf & _
                       "2: 3 ay" & vbCrLf & _
                       "3: 6 ay" & vbCrLf & _
                       "4: 12 ay", "Seçenek Seçin")
  
    ' Hatalı seçenek girilirse çıkış yap
    If secenek <> "1" And secenek <> "2" And secenek <> "3" And secenek <> "4" Then
        MsgBox "Geçersiz seçenek!"
        Exit Sub
    End If
  
    ' C5 hücresinden tarihi al
    tarih = Range("C5").Value
  
    ' Seçeneklere göre yeni tarihi hesapla
    Select Case secenek
        Case "1"
            yeni_tarih = DateAdd("m", 1, tarih)
        Case "2"
            yeni_tarih = DateAdd("m", 3, tarih)
        Case "3"
            yeni_tarih = DateAdd("m", 6, tarih)
        Case "4"
            yeni_tarih = DateAdd("yyyy", 1, tarih)
    End Select
  
    ' Yeni tarihi C6 hücresine yaz
    Range("C6").Value = yeni_tarih
End Sub

Genişletmek için tıkla...