Alternatifli Seçim Yaptırmak

[ligulabruchus]

Selamun Aleyküm. Ben Excel içinde şöyle bir işlem yaptırmak istiyorum. Mesela toplam bir değerim var onu programa ben gireceğim. Örneğin bu değer 500 olsun. Bir de parça değerlerim var bunlar da 50, 90, 110, 150, 190 ve 220 olsun. Ben istiyorum ki bu parçaları kullanarak toplam değere ulaşan alternatifleri bana versin. Mesela
1. Alternatif 220, 90, 190;
2. Alternatif 50, 50, 90, 90, 110, 110;

Bu şekilde olası tüm alternatifleri versin. Yardımcı olacak arkadaşlara şimdiden teşekkür ediyorum.

 

[kulomer46]

Merhaba,

Forumun arama kutusuna "kombinasyon" yazarsanız çıkan sonuçlar linktedir. İncelemeniz için iyi bir kaynak : )

Sorgu için arama sonuçları: kombinasyon


Fazladan Ek 'teki dosyada işinize yarayabilir.

Selamlar...

 

[ligulabruchus]

Merhaba,

Forumun arama kutusuna "kombinasyon" yazarsanız çıkan sonuçlar linktedir. İncelemeniz için iyi bir kaynak : )

Sorgu için arama sonuçları: kombinasyon


Fazladan Ek 'teki dosyada işinize yarayabilir.

Selamlar...

Çok teşekkür ederim ama bana kombinasyon sayısı değil kombinasyonların kendisi lazım.

 

[YUSUF44]

Sayın @kulomer46 'nın paylaştığı dosyada HANGİ_KOMBİNASYONLAR_ARANAN_DEĞERİ_VERİYOR makrosunda Cells.EntireColumn.AutoFit satırından önce aşağıdaki kodları ilave ederseniz RAPOR sayfasında o kombinasyonların değerlerini de istediğiniz şekilde listeler:

    Application.ScreenUpdating = False
        Set s1 = Sheets("VERİ")
        Set s2 = Sheets("RAPOR")
        s2.[C:IV].ClearContents
        son = s2.Cells(Rows.Count, "A").End(3).Row
        Dim veri
        For i = 2 To son
            veri = Split(s2.Cells(i, "A"), "+")
            For j = 0 To UBound(veri)
                s2.Cells(i, j + 3) = veri(j)
                s2.Cells(i, j + 4).FormulaR1C1 = "=INDIRECT(""VERİ!""&RC[-1])"
                s2.Cells(i, j + 3) = s2.Cells(i, j + 4)
                s2.Cells(i, j + 4).ClearContents
            Next
        Next
        s2.Activate
    Application.ScreenUpdating = True

 

[ligulabruchus]

Sayın @kulomer46 'nın paylaştığı dosyada HANGİ_KOMBİNASYONLAR_ARANAN_DEĞERİ_VERİYOR makrosunda Cells.EntireColumn.AutoFit satırından önce aşağıdaki kodları ilave ederseniz RAPOR sayfasında o kombinasyonların değerlerini de istediğiniz şekilde listeler:

    Application.ScreenUpdating = False
        Set s1 = Sheets("VERİ")
        Set s2 = Sheets("RAPOR")
        s2.[C:IV].ClearContents
        son = s2.Cells(Rows.Count, "A").End(3).Row
        Dim veri
        For i = 2 To son
            veri = Split(s2.Cells(i, "A"), "+")
            For j = 0 To UBound(veri)
                s2.Cells(i, j + 3) = veri(j)
                s2.Cells(i, j + 4).FormulaR1C1 = "=INDIRECT(""VERİ!""&RC[-1])"
                s2.Cells(i, j + 3) = s2.Cells(i, j + 4)
                s2.Cells(i, j + 4).ClearContents
            Next
        Next
        s2.Activate
    Application.ScreenUpdating = True

Dosyayı açamadım altın üye olmadığım için. Yine de teşekkür ederim.

 

[kulomer46]

Değerli Arkadaşım Merhaba

Bu sitedeki değerli hocalarımızın paylaştığı dosya, bilgi ve tecrübelerinde yardımıyla hazırlanmış

A Sütunundaki Sayılarla Hedef Sayıyı Veren Kombinasyonlar

Programını barındıran dosya Ek 'tedir.

Program A sütunundaki sayıları toplayarak Hedef sayısını veren kombinasyonları, Hedef sayısına en yakından itibaren listelemektedir.

Her program gibi bu programında eksikleri olabilir.

Hayırlı Çalışmalar Diliyorum.

Selamlar...

Dosya İndirme Linki
https://dosyam.org/1RKr/A_Sütunundaki_Sayılarla_Hedef_Sayıyı_Veren_Kombinasyonlar.xlsm

Ekran Resmi 1


Ekran Resmi 2

 

[ligulabruchus]

Çok teşekkür ederim. Fakat A sütunundaki verileri birden fazla kez kullanarak aynı işlemleri yapabilir miyiz?

Değerli Arkadaşım Merhaba

Bu sitedeki değerli hocalarımızın paylaştığı dosya, bilgi ve tecrübelerinde yardımıyla hazırlanmış

A Sütunundaki Sayılarla Hedef Sayıyı Veren Kombinasyonlar

Programını barındıran dosya Ek 'tedir.

Program A sütunundaki sayıları toplayarak Hedef sayısını veren kombinasyonları, Hedef sayısına en yakından itibaren listelemektedir.

Her program gibi bu programında eksikleri olabilir.

Hayırlı Çalışmalar Diliyorum.

Selamlar...

Dosya İndirme Linki
https://dosyam.org/1RKr/A_Sütunundaki_Sayılarla_Hedef_Sayıyı_Veren_Kombinasyonlar.xlsm

Ekran Resmi 1
Ekli dosyayı görüntüle 238489

Ekran Resmi 2
Ekli dosyayı görüntüle 238491

 

[kulomer46]

Çok teşekkür ederim. Fakat A sütunundaki verileri birden fazla kez kullanarak aynı işlemleri yapabilir miyiz?

Değerli Arkadaşım

Aşağıdaki dosyayı deneyiniz.

Selamlar...

Ücretsiz indirme adresi
https://dosyam.org/1RMg/A_Sütunundaki_Sayılarla_Hedef_Sayıyı_Veren_Toplamlar.xlsm

Ekran Resmi 1


Ekran Resmi 2

 

[kulomer46]

Değerli Arkadaşlarım

Yukardaki #8 numaralı mesaj ekindeki dosyada bir hata farkettim.

İhtiyaç duyanlar yukardaki #8 numaralı mesaj ekindeki dosya yerine ek 'teki dosyayı kullanabilir.

Selamlar...

 

[ligulabruchus]

Çok teşekkür ederim. Fakat bu şekilde indiremiyorum. Yine dosyam sitesinden link koyabilir misiniz size zahmet?

Değerli Arkadaşlarım

Yukardaki #8 numaralı mesaj ekindeki dosyada bir hata farkettim.

İhtiyaç duyanlar yukardaki #8 numaralı mesaj ekindeki dosya yerine ek 'teki dosyayı kullanabilir.

Selamlar...

 

[kulomer46]

Çok teşekkür ederim. Fakat bu şekilde indiremiyorum. Yine dosyam sitesinden link koyabilir misiniz size zahmet?

Merhaba

A Sütunundaki Sayılarla Hedef Sayıyı Veren Toplamlar dosyası Ek 'tedir.

Selamlar...

https://dosyam.org/1RMt/A_Sütunundaki_Sayılarla_Hedef_Sayıyı_Veren_Toplamlar__(Vers._2).xlsm