Private Sub CommandButton1_Click()
On Error Resume Next
If ComboBox1.Value = "510004013000000" Then
TextBox2 = Format(DateAdd("d", Val(TextBox3) / Range("c2").Value, TextBox1), "dd.mm.yyyy")
TextBox6 = Format(TextBox2, "dd.mm.yyyy")
ElseIf ComboBox1.Value = "510008001100000" Then
TextBox7= Format(DateAdd("d", Val(TextBox4) / Range("c3").Value, TextBox6), "dd.mm.yyyy")
TextBox8= Format(TextBox7, "dd.mm.yyyy")
End If
End If
End Sub
textbox1 e ayın ilk tarihi yani 01.01.2007 el ile giriliyor üretim miktarı textbox3 e girildiğinde textbox 2 deki tarihi kendisi hesaplıyor ve text6 ya atıyor ve bu şekilde devam ediyor textbox4 te de girilen üretime göre yine tarihi textbox8 e atıyor ayın son gününe gelinceye kadar devam ediyor.Yapılmak istenen aşağıda textbox13 e planlı duruş tarihi ve textbox14 ede planlı duruş saatini girdiğimde hangi tarih ve saati girdiysek onu eklemesi ve üretim tarihini ileriye atması.Tşk ediyorum
On Error Resume Next
If ComboBox1.Value = "510004013000000" Then
TextBox2 = Format(DateAdd("d", Val(TextBox3) / Range("c2").Value, TextBox1), "dd.mm.yyyy")
TextBox6 = Format(TextBox2, "dd.mm.yyyy")
ElseIf ComboBox1.Value = "510008001100000" Then
TextBox7= Format(DateAdd("d", Val(TextBox4) / Range("c3").Value, TextBox6), "dd.mm.yyyy")
TextBox8= Format(TextBox7, "dd.mm.yyyy")
End If
End If
End Sub
textbox1 e ayın ilk tarihi yani 01.01.2007 el ile giriliyor üretim miktarı textbox3 e girildiğinde textbox 2 deki tarihi kendisi hesaplıyor ve text6 ya atıyor ve bu şekilde devam ediyor textbox4 te de girilen üretime göre yine tarihi textbox8 e atıyor ayın son gününe gelinceye kadar devam ediyor.Yapılmak istenen aşağıda textbox13 e planlı duruş tarihi ve textbox14 ede planlı duruş saatini girdiğimde hangi tarih ve saati girdiysek onu eklemesi ve üretim tarihini ileriye atması.Tşk ediyorum
Son düzenleme: