Rastgele Fatura Seçtirmek

[mekist]

Merhaba,
Muhasebe denetimi içim ay içerisinde girilen faturalardan rastgele seçim yaptırarak kayıt ile faturayı kontrol etmek istiyoruz.
Örneğin ekli listede 9 fatura var. Bunlardan 4 tanesini rastgele seçtirmek istiyoruz. Fakat aynı müşteriden sadece 1 fatura seçmesini istiyoruz.
Yardımcı olabilir misiniz.

http://s6.dosya.tc/server4/1mjjjg/Rastgele_Secim_Yaptirmak.xlsx.html

 

[Ömer BARAN]

Merhaba.
Aşağıdaki kod'u sayfanın kod bölümüne yapıştırdıktan sonra, sayfaya konumlandıracağınız bir düğmeye atayıp, düğmeye fareyle tıklayın.
Sayfanın kod bölümüne, alt taraftan sayfa adına fareyla sağ tıklayıp KOD GÖRÜNTÜLEyi seçerek ulaşabilirsiniz.

[B][COLOR="Blue"]Sub FATURA_SEÇ_BARAN()[/COLOR][/B]
Dim s2 As Worksheet: Set s2 = Sheets("Sayfa2")
Dim seçim As Worksheet: Set seçim = Sheets("SEÇİM")
alan = "A2:E" & [A65536].End(3).Row
    seçim.Range(alan).ClearContents
seçim.Cells(1, 1) = "Müşteri": seçim.Cells(1, 2) = "Müşteri Adı"
seçim.Cells(1, 3) = "Tarih": seçim.Cells(1, 4) = "Tutar"

For adet = 1 To 4
20: If WorksheetFunction.CountA(seçim.Range("A:A")) = 5 Then Exit Sub
    a = WorksheetFunction.RandBetween(2, s2.[A65536].End(3).Row)
            If WorksheetFunction.CountIf(seçim.Range("A:A"), s2.Cells(a, 1)) = 1 Then GoTo 20
                satır = seçim.[A65536].End(3).Row + 1
                seçim.Cells(satır, 1) = Cells(a, 1)
                seçim.Cells(satır, 2) = Cells(a, 2)
                seçim.Cells(satır, 3) = Cells(a, 3)
                seçim.Cells(satır, 4) = Cells(a, 4)
10: Next
    seçim.Columns("A:D").EntireColumn.AutoFit
MsgBox "SEÇİM TAMAMLANDI"
[B][COLOR="blue"]End Sub[/COLOR][/B]

 

[mekist]

Ömer Baran Çok çok teşekkür ederim,
Seçilen faturaları E sütununa yazıyor,
E sütununa yazmayıp seçilen faturaları tüm bilgilerini içerecek şekilde başka bir sayfaya kopyalayabilir mi?

 

[Ömer BARAN]

O zaman belgenize ikinci bir sayfa oluşturup "SEÇİM" olarak adlandırın.
Güncellediğim yukarıdaki kod'u boş bir Modül'e yapıştırın.

SEÇİM sayfasındaki ilgili sütunların TARİH/SAYI biçimlendirmelerini yapın.

 

[mekist]

O zaman belgenize ikinci bir sayfa oluşturup "SEÇİM" olarak adlandırın.
Güncellediğim yukarıdaki kod'u boş bir Modül'e yapıştırın.

SEÇİM sayfasındaki ilgili sütunların TARİH/SAYI biçimlendirmelerini yapın.

Çok teşekkür ederim, Elinize sağlık Allah razı olsun

 

[Ömer BARAN]

Eyvallah, cümlemizden.
İyi günler dilerim.