Makinaların Birlikte Çalışma Saat Hesabı

[projessor]

Sistemde bulunan 6 adet makinanın müşterek çalışma saatlerini bulmak istiyorum.Makro olayında zayıfım ve sitede de bu tür bir uygulama bulamadım.
Sorunum şöyle : 6 adet makina var. 24 saat içinde kaç makina aynı anda kaç saat çalışmış onları bulmak istiyorum.
Örneği:

1 makina ile çalışma : 00.15 saat
2 makina ile çalışma : 12:12 saat
3 makina ile çalışma : 5:00 saat
4 makina ile çalışma : 4:00 saat
5 makina ile çalışma : 1:00 saat
6 makina le çalışma : 1:33 saat

Toplam Çalışma süresi : 24:00 saat
Şimdiden teşekkürler.

 

[muygun]

Slm.
Örnek dosya ekleyin.
Müşterek çalışma zamanı bulmak istiyorsanız her makine için tarih,başlama zamanı ve çalışma süresi gerekli. Birde 6 makinenin tamamının müşterek çalışma zamanı mı? yada en az 2 makinenin açık olduğu zaman mı.?
Yada daha net soracak olursak güç sarfiyatı mı hesap edeceksiniz?
İyi çalışmalar.

 

[projessor]

Sayın muygun
İstediğimiz makinaların birlikte çalışması.Güç sarfiyatı değil de Güç üretim hesabı bizimkisi. .
Bu işi elle yapıyoruz.Elle yaparken grafik çıkarıyoruz.
Örneğin :

1.makina çalışmaya başlama saati : 08:00
2.makina çalışmaya başlama saati : 09:00
3.makina çalışmaya başlama saati : 10:00
2.makina çalışmayı durdurma saati : 11:00
3.makina çalışmayı durdurma saati : 12:00
1.makina çalışmayı durdurma saati : 13:00

Çözümleyecek olursak
1. makina ile çalışma : 2:00 saat
2. makina ile çalışma : 2:00 saat
3. makina ile çalışma : 1:00 saat

İlginize teşekkürler.

 

[muygun]

Üzgünüm konuyu anlayamadım.
8:00 de başlayan makine 13:00 de duruyorsa kime sorsanız aktif zamanı 5 saat çıkarır.
Sizin çözümleme sonucunuz 2:00 saat.
Umarım sorunu bilen bir arkadaş yardımcı olur.
İyi çalışmalar.

 

[projessor]

Konuyu çözecek arkadaş olursa sevinirim.

 

[egebes]

birlikte calismaktan kastinizin ne oldugunu tam olarak anlatabilir misiniz.
verdiginiz ornekte 2-2-1 saat birlikte calisma rakamlarini nasil hesapladiniz mesela.Bu ornekte 2 nolu makina ile 3 nolu makinanin karsilastirma durumlari bana gore ayni gibi ama siz birine 2 birine 1 saat birlikte calisma yazmissiniz dedigim gibi bu rakamlari nasil hesapladiginizi yazarsaniz daha anlasilir olacak.

 

[projessor]

birlikte çalışma veya müşterek çalışma

Birlikte çalışmayı şöyle tarif edebiliriz.
1 numaralı makinamız saat 08:00 da devereye girmiş.2 nolu veya başka bir makinamız saat 09:00 da devreye girmiş.3 numaralı makinamız saat 10:00 da çalışmaya başlamış.4 numaralı makina 12.00 da devreye girsin.Olayı çözümleyelim.

A-1 makina ile 1 saat çalıştık (çünkü : 1 numaralı makinamız 08.00-09:00 arası çalışıyordu ve o esnada başka makina çalışmıyordu.)
B-2 makina ile 1 saat çalıştık.(çünkü saat 09:00-10.00 arası 1 ve 2 nolu makinalarımız çalışıyordu.3 nolu makina saat 10:00 da çalışmaya başlayarak aynı anda çalışan makina sayımız 3'e yükseldi.)
c-3 makina ile 2 saat çalıştık.Çünkü 4. makinamız devreye girdi ve aynı anda çalışan makina sayımız 4 oldu.

Bu makinalarda değişik saatlerde çalışmayı durduracaklar.
Elimde başka bir dosyada yapılmış makro var ama.benim dosyaya uyduramadım.Diğer makrolara ihtiyacı var bu makronun.Aşağıdaki makroyu yardımcı olabilir diye ekledim.

Sub BirlikteÇalışmaSaatHesabı()
Dim c As Object, Süre As Date
Dim Birlikte(0 To 9)
Dim YolVermeSayısı(0 To 9)
ÜniteSayısı = Worksheets("SAATMENÜ").Cells(1, 60).Value
Sheets("Saatler").Select
Range("A41:C330").Select
Selection.ClearContents
KompansatörlüSaatDizisiOluşturmak
Range("A40").Select
Set SaatDizinAlanı = Worksheets("Saatler").Cells(40, 1).CurrentRegion
Worksheets("Saatler").Cells(40, 1).Sort _
Key1:=Worksheets("Saatler").Cells(40, 1), Order1:=xlAscending, _
Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
ü = 0
Kü = 0
DiziSonSatırı = SaatDizinAlanı.Rows.Count
For Değer = 2 To DiziSonSatırı
İlkSatır = 40
Cells(İlkSatır + Değer, 1).Select
Set c = ActiveCell
If c.Value = "" Then Exit For
Süre = c.Value - c.Offset(-1, 0).Value
With c
If c.Offset(-1, 1).Value = "OG" Then ü = ü + 1
If c.Offset(-1, 1).Value = "KG" Then ü = ü + 1
If c.Offset(-1, 1).Value = "GO" Then ü = ü - 1
If c.Offset(-1, 1).Value = "GK" Then ü = ü - 1

If c.Offset(-1, 1).Value = "OK" Then Kü = Kü + 1
If c.Offset(-1, 1).Value = "GK" Then Kü = Kü + 1
If c.Offset(-1, 1).Value = "KO" Then Kü = Kü - 1
If c.Offset(-1, 1).Value = "KG" Then Kü = Kü - 1
Birlikte(ü) = Birlikte(ü) + Süre
If ü = 0 Then GensizKompÇalşSaToplamı = GensizKompÇalşSaToplamı + (Kü * Süre)
End With
If Not c.Value = 0 Then
If c.Offset(0, 1).Value = "OG" Or c.Offset(0, 1).Value = "KG" Then
GrNo = c.Offset(0, 2).Value
YolVermeSayısı(GrNo) = YolVermeSayısı(GrNo) + 1
End If
End If
Next Değer
For l = 1 To ÜniteSayısı
Cells(8, 64 + l).Value = Birlikte(l)
Next l
Cells(8, 64).Value = GensizKompÇalşSaToplamı
Range("CD100").Activate
Range("BL1").Activate
End Sub

İlginize teşekkürler.

 

[egebes]

simdi anlasildi
siz daha onceki mesajda 1.makina ile calisma 2.makina ile calisma seklinde yazdiginizdan bu sayilar calisan makina adedi degilde makinanin kod numarasi imis gibi algilandi.
olayi anladim size bir dosya hazirlamaya calisacagim

 

[projessor]

Sayın @egebes

Öncelikle ilginize teşekkürler.
2. mesajımda eklediğim excel dosyasında makinaların çalışmaya başlama ve durma saatlerini girdiğimiz bir sayfa mevcut.Yapacağınız sayfada farklı bir şablon kullanırsanız onuda sistemimize uygulayabilirim.

İlginize tekrardan teşekkürler.

 

[muygun]

Slm.
Doğru anladıysam tablonuzu biraz değiştirerek birşeyler yapmaya çalıştım.
Eki inceleyin.
Not:makinelerin çalışmalarını yazdığınız sayfada 100. satıra kadar veri girebileceğinizi varsaydım. Ayrıca hesaplama sonucunun doğruluğunu mutlak kontrol ediniz.
İyi çalışmalar.

 

[projessor]

Sayın muygun
ilginize tekrardan teşekkürler.Yaptığınız işlemler doğru çalışıyor.Yalnız bir sorunumuz var.Şöyle :
giriş :01:00
çıkış:01:01
işlemin sonucu 1 dk.
makinanın çalışma süresinde bu değer doğru.birlikte çalışma hesabında 2 dk olarak gözüküyor.Çalışmaya başladığı dakika ve durduğu dakikayı tam kabul ederek yaptığı için oluyor.Bu bizim hesaplarda sorun teşkil eder.Gün sonunda birlikte çalışma saatlerini topladığımız da tam 24:00 saat olması gerek.
Eğer bu sorunu da halledebilirsek sevinirim.
İyi çalışmalar.

 

[muygun]

Slm.
10 nolu mesaj ekini güncelledim. Eki indirip tekrar deneyin.
İyi çalışmalar.

 

[projessor]

Şu an sorunsuz çalışıyor.Herşey için teşekkürler

 

[egebes]

bende sizin dosyaniz uzerinde ekteki sekilde bir duzenleme yaptim

 

[projessor]

sayın @egebes

Alakanıza teşekkürler. sayın @muygun'un yaptığı sistemle kullanıyorum.excel dosyam 5,5 MB ve dış veri ve makrolar var.Anlayacağınız bilgisayarı bayağı kasıyor sizin makroyu da kullanırsam iyice zorlanacak bilgisayar.

İyi çalışmalar.

 

[projessor]

Sayın muygun
yaptığınız sistemde makina 00:00 da çalışmaya başlamış ise gece 24:00 durursa çalışma saati 24:00 saat gözüküyor ama birlikte çalışma değeri oluşmuyor.Metine çevirirken değer 0 gözüküyor.Bu soruna bir çözüm bulursanız sevinirim.İyi çalışmalar.

 

[muygun]

Merhaba...
Zaman hesaplarında saati ilerletirken örn:01:01:00 , 01:01:01 gibi artan adımda bir period elde edilir.
bu örneği 23 saat 59 dk da uygularsak 23:59:58 ,23:59:59 ,00:00:00 gibi bir sonuç elde ederiz. yani 23:59:59 dan sonra 24. saat 0. dakika 01 saniye ye geçer ki bunun anlamı da 00:00:01 dir.
Eğer sizin hesaplamalarınızda kullandığınız süregelen zamandan çok bir bütünün(yani 1 günün) bölüntü dilimleri ise bunun için zaman görünümlü metinlerden oluşan örneği inceleyin.
burda veri girişlerinizi saat : dakika (1:05 gibi) saat ve dakika arasına ":" işareti girerek yapın.
Birkaç deneme verisi girerek ve bunların tabloda doğru sonuç çıkardığını teyid ederek tabloyu deneyin. Sorun varsa tekrar bakalım.
İyi çalışmalar.

 

[fahrecel]

Merhaba,
Bana da böyle bir dosya lazımdı. Ama indiremiyorum.
Neden indirilmiyor? Yardımcı olabilir misiniz?

 

[projessor]

Sizin için yükledim alabilirsiniz. İyi çalışmalar.

 

[fahrecel]

Çok teşekkür ederim.
Çok işime yaradı.