Tarih hesaplama

[fireman64]

Selamlar test periyodu 5 ve 10 yıl olan iki çeşit malzemenin test tarihi girildiğinde test için kalan sürenin hesaplanması ve sonucun sıfır ve eksi çıktığında sonuç hanesine test ihtiyacı vardır şeklinde ibare yazdırabilecek bir makroya ihtiyacım var.

 

[İhsan Tank]

Merhaba
Makroyu yazacağım ama kafama takılan bir konu var.
Siz Test tarihini girdiğinizde ve Test periyodu (yıl ) giriyorsunuz gerisini otomatik mi hesaplıyacaksınız yoksa sadece sonuç kısmını mı istiyorsunuz.

 

[fireman64]

test tarihi ve test periyodu textbox kullanarak girilecek . Yanlız test periyodu a ürünü için 5 yıl b ürünü için 10 yıl olacak periyod 5 ve 10 yıl seçenekli olacak hocam

 

[fireman64]

şimdiki tarih kısmınında içinde bulunduğumuz yıl otomatik olarak yazdırılacak şimdiden çok teşekkürler

 

[İhsan Tank]

test tarihi ve test periyodu textbox kullanarak girilecek . Yanlız test periyodu a ürünü için 5 yıl b ürünü için 10 yıl olacak periyod 5 ve 10 yıl seçenekli olacak hocam

Bu verileri hangi textboxlardan gireceksiniz. Açıklayın isterseniz

 

[fireman64]

hocam yeni örneği inceleyebilirmisiniz

 

[İhsan Tank]

hocam yeni örneği inceleyebilirmisiniz

Merhaba
Userform'un kod bölümüne kopyalayın.

Option Explicit
Private Sub CommandButton1_Click()
Dim trabzonspor, ts
ts = MsgBox("Hesabı Yapıp Kaydediyorum", vbYesNo, "Onay")
If ts = vbNo Then Exit Sub
TextBox6 = Val(TextBox1.Text) + Val(TextBox2.Text)
TextBox4 = Year(CDate(Now))
TextBox5 = Val(TextBox6.Text) - Val(TextBox4.Text)
If TextBox5 > 0 Then
TextBox3 = "Test İhtiyacı Yoktur"
Else
TextBox3 = "Test İhtiyacı Vardır"
End If
trabzonspor = Range("B" & Rows.Count).End(xlUp).Row
Range("B" & trabzonspor + 1) = TextBox1 * 1
Range("D" & trabzonspor + 1) = TextBox2 * 1
Range("C" & trabzonspor + 1) = TextBox6 * 1
Range("F" & trabzonspor + 1) = TextBox4 * 1
Range("E" & trabzonspor + 1) = TextBox5 * 1
Range("G" & trabzonspor + 1) = TextBox3
Range("A2") = 1
Range("A2:A" & trabzonspor).DataSeries rowcol:=xlColumns, Type:=xlLinear, _
Date:=xlDay, step:=1, Trend:=False
End Sub

Not : Sadece Test Yapıldığı Tarih'i ve Test Periyodunu girmeniz yeterli diğer kalanları kendisi otomatik hesap yapar ve kayıt yapar

 

[fireman64]

hocam elinize yüreğinize sağlık çok teşekkürler

 

[İhsan Tank]

hocam elinize yüreğinize sağlık çok teşekkürler

Rica ederim
:keyif: