Makinelerde üretim planı oluşturma hk.

Katılım
4 Aralık 2019
Mesajlar
112
Excel Vers. ve Dili
Excel 2013 Türkçe
Sayın Tevfik_Kursun

Gönderdiğimdosyayı burada denedim sorunsuz açıldı. Ancak ilk anda makina 3 için excel sayfasında formüllerde hata olduğundan #DEĞER uyarısı ile ben de karşılaştım , textboxların sayıya formatlanması gerektiğini bunu hazırladığım dönemde bilmiyordum .Doğal olarak metin görmüş ve öyle yazmış kurduğum sistem. Bu akşam arıza gösteren sayıların hepsini sayıya çevirdim, ancak textbox formatı ile uğraşmadım .
Ayrıca hatırlamak için baştan okumam gerek tüm kodları.


Hataya ulaşmak için VBE şifresi " cems " tir. Açtım ama belki o şekilde save etmemişimdir.

Dosyayı yüklemekteki amacım sorun ve cevap buna benzer mi değil mi sormak içindi , zira anlatımdan da bir şey anlamadım.

Ayrıca saygı bizden ; ustadım :)
Merhaba, göndermiş olduğunuz çalışmayı inceledim. Aslında mantık olarak evet yakın istediğim şeye. Kısaca tekrar anlatmak gerekirse birbiriyle aynı olan 6 makinam var. Toplamda 1500 küsür saatlik bir üretim yapmam gerekiyor farklı malzemelerden oluşan. Ben bu 1500 küsür saati 6 makineye dengeli bir şekilde dağıtmak istiyorum. 1500/6 desek 200 küsür saat çıkar. Her makinayı ortalama 200 saat çalıştırırsam dengelenir gibi bir sonuca ulaşırım dolayısıyla. Ama bu dağıtımı otomatik olarak nasıl yapabilirim onu çözemedim açıkçası. Mesela birinci işi birinci makineye verdim. ikinci işi ikinci makineye verdim. 6 makineye bu şekilde dağıttıktan sonra bir sonraki ürün için hangi makinedeki iş süresi azsa otomatik olarak o makineye üretim yazılsın. Kısaca istediğim şey bu.
 

Tevfik_Kursun

Altın Üye
Katılım
30 Temmuz 2012
Mesajlar
3,581
Excel Vers. ve Dili
Office 2016 Pro - Türkçe 64 Bit
Merhaba,
Belki Asri hoca size daha uygun bir çalışma yapabilir. Hiç yapılmasa da siz, benim hazırladığım gibi bir çalışma düşünebilirsiniz. Bu da makinelerinizin dolu dolu çalışmalarını sağlar.
İyi çalışmalar
 
Katılım
4 Aralık 2019
Mesajlar
112
Excel Vers. ve Dili
Excel 2013 Türkçe
Merhaba, ekiniz evet istediğim çalışma şeklinde. Yalnız şöyle bir sorun varki. İşlerin dağılımı benim gönderdiğim ekteki sıralama ile olmalı. Yani birinci işten başlayarak dağılım yapılmalı. Bunu nasıl sağlayabiliriz? Çalışmayı inceleyeceğim ancak anlamam için biraz detay vermeniz mümkün müdür? Ellerinize sağlık.
 
Katılım
4 Aralık 2019
Mesajlar
112
Excel Vers. ve Dili
Excel 2013 Türkçe

Tevfik_Kursun

Altın Üye
Katılım
30 Temmuz 2012
Mesajlar
3,581
Excel Vers. ve Dili
Office 2016 Pro - Türkçe 64 Bit
Merhaba,
Rica ederim, Anlayabilirsem anlatırım, tabii.
İyi çalışmalar
 

veyselemre

Özel Üye
Katılım
9 Mart 2005
Mesajlar
3,553
Excel Vers. ve Dili
Pro Plus 2021
Merhaba, ekiniz evet istediğim çalışma şeklinde. Yalnız şöyle bir sorun varki. İşlerin dağılımı benim gönderdiğim ekteki sıralama ile olmalı. Yani birinci işten başlayarak dağılım yapılmalı. Bunu nasıl sağlayabiliriz? Çalışmayı inceleyeceğim ancak anlamam için biraz detay vermeniz mümkün müdür? Ellerinize sağlık.
Kod:
Sub isDagit()
    Range("D7:U80").ClearContents
    son = Cells(Rows.Count, 1).End(3).Row
    With Range("A7:C" & son)
        veri = .Value
        '.Sort [b7], xlDescending, , , , , , xlNo
        For i = 7 To Cells(Rows.Count, 1).End(3).Row
            If Cells(i, "b") > 0 Then
                mn = [e4]: sut = 4
                If [h4] < mn Then mn = [h4]: sut = 7
                If [k4] < mn Then mn = [k4]: sut = 10
                If [n4] < mn Then mn = [n4]: sut = 13
                If [q4] < mn Then mn = [q4]: sut = 16
                If [t4] < mn Then mn = [t4]: sut = 19
                sat = Cells(Rows.Count, sut).End(3).Row + 1
                Cells(i, 1).Resize(, 3).Copy Cells(sat, sut)
            End If
        Next i
        '.Value = veri
    End With
End Sub
 
Katılım
4 Aralık 2019
Mesajlar
112
Excel Vers. ve Dili
Excel 2013 Türkçe
Kod:
Sub isDagit()
    Range("D7:U80").ClearContents
    son = Cells(Rows.Count, 1).End(3).Row
    With Range("A7:C" & son)
        veri = .Value
        '.Sort [b7], xlDescending, , , , , , xlNo
        For i = 7 To Cells(Rows.Count, 1).End(3).Row
            If Cells(i, "b") > 0 Then
                mn = [e4]: sut = 4
                If [h4] < mn Then mn = [h4]: sut = 7
                If [k4] < mn Then mn = [k4]: sut = 10
                If [n4] < mn Then mn = [n4]: sut = 13
                If [q4] < mn Then mn = [q4]: sut = 16
                If [t4] < mn Then mn = [t4]: sut = 19
                sat = Cells(Rows.Count, sut).End(3).Row + 1
                Cells(i, 1).Resize(, 3).Copy Cells(sat, sut)
            End If
        Next i
        '.Value = veri
    End With
End Sub
Çok teşekkür ederim. Ama bana bu kodların ne anlama geldiğini de ufak bilgiler de olsa söyleyebilir misiniz? Anlamak istiyorum çünkü.
 

Tevfik_Kursun

Altın Üye
Katılım
30 Temmuz 2012
Mesajlar
3,581
Excel Vers. ve Dili
Office 2016 Pro - Türkçe 64 Bit
Merhaba,
Kendinize biraz zaman tanıyın ve biraz da İngilizce olan kelimelerin anlamlarını kavrayın. Bence makroyu kolaylıkla anlamaya başlarsınız.
Basit örnekler vereyim:
Range alan, bölge anlamına gelir.
Range("D7:U80") D7:U80 arası
ClearContents olanları temizle
cell hücre
Row satır
Rows.Count satır sayısı
gibi, gibi ...
Sitede arama yaparsanız, tahmin edemeyeceğiniz kadar bilgi bulabilirsiniz. Öğrenmek istiyorsanız Altın Üye olun. Dersanedeki notları da inceleyebilirsiniz.
Not: Burada bulduklarınızı parayla ölçemezsiniz.
Kolay gelsin
 
Son düzenleme:
Katılım
4 Aralık 2019
Mesajlar
112
Excel Vers. ve Dili
Excel 2013 Türkçe
Merhaba,
Kendinize biraz zaman tanıyın ve biraz da İngilizce olan kelimelerin anlamlarını kavrayın. Bence makroyu kolaylıkla anlamaya başlarsınız.
Basit örnekler vereyim:
Range alan, bölge anlamına gelir.
Range("D7:U80") D7:U80 arası
ClearContents olanları temizle
cell hücre
Row satır
Rows.Count satır sayısı
gibi, gibi ...
Sitede arama yaparsanız, tahmin edemeyeceğiniz kadar bilgi bulabilirsiniz. Öğrenmek istiyorsanız Altın Üye olun. Dersanedeki notları da inceleyebilirsiniz.
Not: Burada bulduklarınızı parayla ölçemezsiniz.
Kolay gelsin
Merhaba, aslında verdiğiniz örneklerdeki kısımları anladım zaten. Anlamadığım aşağıdaki kısımlar. Yardımcı olabilirseniz çok sevinirim.

Kod:
mn = [e4]: sut = 4
                If [h4] < mn Then mn = [h4]: sut = 7
Evet farkındayım para ile ölçülemeyeceğini tabikii, çok haklısınız.
 

serhat2013

Altın Üye
Katılım
4 Mart 2013
Mesajlar
39
Excel Vers. ve Dili
2010
Arkadaşlar merhaba. 6 adet makinem var. Birbirleri yerine kullanılabiliyor. Yapmak istediğim şey bu 6 makineye dengeli olarak üretilecek ürünlerin dağılımını yapmak. Açıkçası şu an için bir kısıtım yok. Sadece elimde üretilecek ürünler ve bu ürünlerin toplam ne kadar sürede üretileceği bilgisi var. Söz konusu planı formülüze ederek mi yoksa vba üzerinden mi yapmak gerekir?
Makinelere dengeli dağılımı ile ilgili yardımcı olabilecek var mıdır acaba?

Teşekkürler şimdiden.
dosyayı indiremedim .
 
Üst