DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub HesaplaPaletSayisi()
Dim urunAdedi As Long
Dim urunEn As Double, urunBoy As Double, urunYukseklik As Double
Dim urunAgirlik As Double
Dim paletEn As Double, paletBoy As Double, paletYukseklik As Double
Dim paletAgirlikKapasitesi As Double
Dim urunHacmi As Double, toplamHacim As Double
Dim paletHacmi As Double
Dim gerekliPaletSayisi As Long
' Excel hücrelerinden verileri al
urunAdedi = Range("A2").Value ' Ürün adedi
urunEn = Range("B2").Value ' Ürün en
urunBoy = Range("C2").Value ' Ürün boy
urunYukseklik = Range("D2").Value ' Ürün yükseklik
urunAgirlik = Range("E2").Value ' Ürün ağırlığı
paletEn = Range("F2").Value ' Palet en
paletBoy = Range("G2").Value ' Palet boy
paletYukseklik = Range("H2").Value ' Palet yükseklik
paletAgirlikKapasitesi = Range("I2").Value ' Palet ağırlık kapasitesi
' Ürünün hacmini hesapla (En * Boy * Yükseklik)
urunHacmi = urunEn * urunBoy * urunYukseklik / 1000000 ' Hacim litre cinsinden
' Toplam hacmi hesapla (Ürün Adedi * Ürün Hacmi)
toplamHacim = urunAdedi * urunHacmi
' Paletin hacmini hesapla (En * Boy * Yükseklik)
paletHacmi = paletEn * paletBoy * paletYukseklik / 1000000 ' Hacim litre cinsinden
' Toplam hacime göre kaç palet gerektiğini hesapla
gerekliPaletSayisi = WorksheetFunction.Ceiling(toplamHacim / paletHacmi, 1)
' Ağırlık kapasitesine göre palet sayısını kontrol et
If urunAgirlik * urunAdedi > paletAgirlikKapasitesi Then
gerekliPaletSayisi = WorksheetFunction.Ceiling((urunAgirlik * urunAdedi) / paletAgirlikKapasitesi, 1)
End If
' Sonucu ekrana yaz
Range("J2").Value = gerekliPaletSayisi
End Sub
Elimde farklı malzemelerin olduğu bir sipariş listesi var küçük parçalar ve büyük parçalar bazen ortak palete koyulabiliyor. Kullanıcının ürün listesini girip hesapla demesiyle birlikte elimdeki ürünlerin kaç palete sığabileceğini gösteren bir program olarak düşündüm. İnternette bazı uygulamalar gördüm sitede yeniyim buraya link bırakılıyor mu bilgim yok ama aşağıya linkini attığım videodaki uygulama gibi bir şey düşündüm.Hacim hesabı ve Ağırlık. Palet adedi hesaplamada ağırlığın ne gibi önemi var. İstediğiniz şekilde bir pogram olmayabilir ama yapmak zor değil. Tam olarak nasıl birşey istiyorsunuz?