Bakım Süresi Hesaplamak için Yardım

[Akifff]

Benzer bir konuyada yazdım fakat ileriki sayfalarda olduğu için görülmedi o yüzden yeni konu açmak istedim,,, Ekteki dosyada da yazıyor açıklaması yardımcı olursanız çok sevinirim )


bu tablo bir lokomotifin çalışma saatlerini göstermekte. Her ay girilen saat toplamı sarı kutucukta birikir. Benim istediğim bakım sürelerini altında başka bir kutucukta göstermesi. 350 saatte bir bakım süresi gelmekte. Bakım süresi sıfırlandığı zaman bu kısmından emin değilim ama mümkünmüdür bir yere e posta göndermesi, eposta olmasa sadece göstersin yeterli Teşşekür ederim

 

[prmts]

Merhaba, f34 hücresine =350 - f32 formülünü yazın. Sayfanın kod bölümüne ;

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("f34")) Is Nothing Then Exit Sub
If Val(Range("f34").Value) < 1 Then

Dim OutlookApp As Object, OutlookMsg As Object
Dim FSO As Object, BodyText As Object
Dim MyRange As Range, TempFile As String
'On Error Resume Next
Set MyRange = ActiveSheet.UsedRange
If MyRange Is Nothing Then Exit Sub
Set FSO = CreateObject("Scripting.FilesystemObject")
TempFile = "C:\TempHTML.htm"
ActiveWorkbook.PublishObjects.Add _
(4, TempFile, MyRange.Parent.Name, MyRange.Address, 0, "", "").Publish True
Set OutlookApp = CreateObject("Outlook.Application")
Set OutlookMsg = OutlookApp.CreateItem(0)
Set BodyText = FSO.OpenTextFile(TempFile, 1)
OutlookMsg.HTMLBody = BodyText.ReadAll
OutlookMsg.Subject = "BAKIM SÜRESİ GELDİ ..."
OutlookMsg.To = "BU BÖLÜME MAİL ADRESİNİ YAZIN TIRNAKLARIN İÇİNE"
'OutlookMsg.Display
OutlookMsg.Send
'Kill TempFile
Set BodyText = Nothing
Set OutlookMsg = Nothing
Set OutlookApp = Nothing
Set FSO = Nothing

End If
End Sub

Mail kodları denenmedi kod arşivinden ekledim deneyin umarım olur.

 

[Akifff]

Öncelikle teşşekkür ederim Yalnız e posta kodu çalışmadı sanırım, değerleri girdiğimde 350 rakamını geçti ama hiç bir hareketlilik olmadı, outlook hesapları normal çalışıyor bi sorun yok ama maili göndermiyor yaptığım şekliyle ekledim tekrardan acaba ben mi bir hata yaptım, bir diğer sorun ise, bakım sati 350 yi geçtikten sonra kırmızı kutuda - li değerler yazıyor, acaba onun tekrardan sıfırlaması mümkün müdür? Yani bakım saati 400 olduğunda bakım için kalan süre 300 saat göstermeli çünkü 1. bakımı yapılmış oluyor,, biraz fazla şey istediysem kusura bakmayın ama baya karışık kodlar beni aştı doğrusu Teşekkürler

 

[prmts]

Merhaba, f34 hücresinin formülünü alttakiyle değiştirin. Sayfanın kod bölümüne yazdığınız kodlar çalışıyor sadece mail kodlarında problem olabilir onada üstadlar el atarsa bu iş olur diye düşünüyorum.

f34 için :

=EĞER(F32<350;350-F32;F32-(TAMSAYI(F32/350)*350))

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("f34")) Is Nothing Then Exit Sub
If Val(Range("f34").Value) < 1 Then

'buraya mail kodları gelecek.

End If
End Sub