• 10-07-2024, 00:04:27
    #1
    Arkadaşlar merhaba. Mermer ocağı ile ilgili bir Excel yazılımı gerekli. Örneğin elimde 100 adet mermer var. Taşlar Ng1, Ng2 gibi isimlerle sıralı şekilde. Her kamyona örnek 27 ton yükleme yapılacak. Taş tonajları 16,12,25 gibi alt alta gireceğim. Ben ilk satıra taşa verilen ismi, ikinci sıraya tonajı yazdığım zaman bana eşleştime yaparak Maksimum tonaja yazdığım rakama en yakın taşları eşleştirsin istiyorum. Örn; Ng1 12 ton, Ng2 10 ton, Ng3, 15 ton olsun Ng1 ile Ng3 27 ton yapıyor. Bu iki taşa verilen ismiyle bana döküm yapacak. Bu şekilde bir çalışmayı ücreti ile yapacak olan varsa sevinirim. İyi forumlar.
  • 10-07-2024, 00:06:29
    #2
    Back-End Developer
    Sürekli kullanılacak bir işlevse web tabanlı çözüm dilerseniz yardımcı olabilirim.
  • 10-07-2024, 00:47:01
    #3
    Üyeliği durduruldu
    Bu yazıyı gbt ye yapıştır yapsın hemen
  • 10-07-2024, 00:51:59
    #4
    Platin üye
    Ben senin yerine yaptım yorulma diye hocam

    Merhaba! Excel'de mermer tonajlarını ve isimlerini eşleştirerek maksimum yükleme kapasitesine en yakın kombinasyonları bulmak için bir makro veya VBA (Visual Basic for Applications) kodu kullanabilirsiniz. Bu tür bir yazılımın geliştirilmesi için gereken adımları ve temel bir örnek VBA kodunu burada paylaşacağım.
    1. Verilerinizi Excel'e girin:
      • A sütununa taş isimlerini (Ng1, Ng2, vb.)
      • B sütununa taş tonajlarını (12, 10, 15, vb.)
    2. VBA kodunu ekleyin:
      • Excel'de Alt + F11 tuşlarına basarak VBA editörünü açın.
      • Insert menüsünden Module seçeneğini seçin.
      • Aşağıdaki kodu kopyalayıp modül içine yapıştırın:
    vba
    Kodu kopyala
    Sub FindCombinations() Dim ws As Worksheet Dim i As Integer, j As Integer, k As Integer Dim lastRow As Integer Dim totalWeight As Double Dim maxWeight As Double Dim result As String ' Çalışma sayfasını ve maksimum yükleme kapasitesini belirleyin Set ws = ThisWorkbook.Sheets("Sheet1") maxWeight = 27 ' Son satırı bul lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row ' Kombinasyonları bul ve en yakın sonucu yazdır For i = 2 To lastRow For j = i + 1 To lastRow totalWeight = ws.Cells(i, 2).Value + ws.Cells(j, 2).Value If totalWeight <= maxWeight Then result = "Kombinasyon: " & ws.Cells(i, 1).Value & " ve " & ws.Cells(j, 1).Value & " - Toplam Ağırlık: " & totalWeight Debug.Print result MsgBox result End If Next j Next i End Sub
    1. Makroyu çalıştırın:
      • Excel'de Alt + F8 tuşlarına basarak makro çalıştırma penceresini açın.
      • "FindCombinations" adlı makroyu seçip "Çalıştır" butonuna tıklayın.
    Bu kod, her iki taşı eşleştirerek toplam tonajı 27 tona en yakın olan kombinasyonları bulur ve bir mesaj kutusunda sonuçları gösterir. Daha karmaşık ihtiyaçlarınız varsa, bu temel kodu genişleterek tüm mümkün kombinasyonları değerlendiren veya optimizasyon yapan bir algoritma geliştirebilirsiniz.
  • 10-07-2024, 10:57:00
    #5
    Feanorist adlı üyeden alıntı: mesajı görüntüle
    Ben senin yerine yaptım yorulma diye hocam

    Merhaba! Excel'de mermer tonajlarını ve isimlerini eşleştirerek maksimum yükleme kapasitesine en yakın kombinasyonları bulmak için bir makro veya VBA (Visual Basic for Applications) kodu kullanabilirsiniz. Bu tür bir yazılımın geliştirilmesi için gereken adımları ve temel bir örnek VBA kodunu burada paylaşacağım.
    1. Verilerinizi Excel'e girin:
      • A sütununa taş isimlerini (Ng1, Ng2, vb.)
      • B sütununa taş tonajlarını (12, 10, 15, vb.)
    2. VBA kodunu ekleyin:
      • Excel'de Alt + F11 tuşlarına basarak VBA editörünü açın.
      • Insert menüsünden Module seçeneğini seçin.
      • Aşağıdaki kodu kopyalayıp modül içine yapıştırın:
    vba
    Kodu kopyala
    Sub FindCombinations() Dim ws As Worksheet Dim i As Integer, j As Integer, k As Integer Dim lastRow As Integer Dim totalWeight As Double Dim maxWeight As Double Dim result As String ' Çalışma sayfasını ve maksimum yükleme kapasitesini belirleyin Set ws = ThisWorkbook.Sheets("Sheet1") maxWeight = 27 ' Son satırı bul lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row ' Kombinasyonları bul ve en yakın sonucu yazdır For i = 2 To lastRow For j = i + 1 To lastRow totalWeight = ws.Cells(i, 2).Value + ws.Cells(j, 2).Value If totalWeight <= maxWeight Then result = "Kombinasyon: " & ws.Cells(i, 1).Value & " ve " & ws.Cells(j, 1).Value & " - Toplam Ağırlık: " & totalWeight Debug.Print result MsgBox result End If Next j Next i End Sub
    1. Makroyu çalıştırın:
      • Excel'de Alt + F8 tuşlarına basarak makro çalıştırma penceresini açın.
      • "FindCombinations" adlı makroyu seçip "Çalıştır" butonuna tıklayın.
    Bu kod, her iki taşı eşleştirerek toplam tonajı 27 tona en yakın olan kombinasyonları bulur ve bir mesaj kutusunda sonuçları gösterir. Daha karmaşık ihtiyaçlarınız varsa, bu temel kodu genişleterek tüm mümkün kombinasyonları değerlendiren veya optimizasyon yapan bir algoritma geliştirebilirsiniz.
    Bu şekilde hata alıyorum hocam makroyu yazınca
  • 12-07-2024, 21:50:45
    #6
    backlinkmatik.com
    merhaba

    ilan aktif ise istediğiniz exceli profesyonel bir şekilde hazırlayabilirim.

    inşaat sektöründe satınalmacı olarak çalıştıgım zamanlarda, hafriyat işleri kapsamında buna benzer çok excel formatları hazırladım.

    https://www.r10.net/freelancer/38252...post1087098958