Makinelerde üretim planı oluşturma hk.

[SKBR]

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]

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

 

[veyselemre]

Eki inceleyin.

 

[Tevfik_Kursun]

Sayın Veysel Emre Hocam,
Elinize sağlık, sağlamalarını da yaptım. Şimdi de makronun nasıl çalıştığına bakacağım.
https://dosya.co/5f7dcnutqcoi/isDagit.xlsm.html
Bağlantıyı sayın SKBR arkadaş için koydum.
Saygılarımla

 

[SKBR]

Eki inceleyin.

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.

 

[SKBR]

Sayın Veysel Emre Hocam,
Elinize sağlık, sağlamalarını da yaptım. Şimdi de makronun nasıl çalıştığına bakacağım.
https://dosya.co/5f7dcnutqcoi/isDagit.xlsm.html
Bağlantıyı sayın SKBR arkadaş için koydum.
Saygılarımla

Çok teşekkür ederim düşündüğünüz için.

 

[SKBR]

Sayın Veysel Emre Hocam,
Elinize sağlık, sağlamalarını da yaptım. Şimdi de makronun nasıl çalıştığına bakacağım.
https://dosya.co/5f7dcnutqcoi/isDagit.xlsm.html
Bağlantıyı sayın SKBR arkadaş için koydum.
Saygılarımla

Makro kodlarını çok net anlayamadım, çok uğraştırmayacaksam bana da detay verebilmeniz mümkün müdür?

 

[Tevfik_Kursun]

Merhaba,
Rica ederim, Anlayabilirsem anlatırım, tabii.
İyi çalışmalar

 

[SKBR]

Merhaba,
Rica ederim, Anlayabilirsem anlatırım, tabii.
İyi çalışmalar

Ben biraz inceledim ancak net olarak oturmadı kafamda malesef. Teşekkürler, size de kolay gelsin.

 

[veyselemre]

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.

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

 

[SKBR]

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]

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

 

[SKBR]

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.

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]

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 .