[Yardım]  MAKRO İLE KURA ÇEKME

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

MAKRO İLE KURA ÇEKME

İleti#1)  esef34 » 14 Eyl 2022 16:08

Arkadaşlar merhaba, bir excel dosyasında 2 sayfam var. Bir sayfadaki toplam 79 adet isimi diğer sayfada bir tabloda 10 adet başlığın altına farklı sayılarda rastgele ve tekrar etmeyecek şekilde bir kura sistemi yapmak istiyorum. Yardımcı olabilir misiniz?

Örnek:
Sayfa1 Sayfa2
A HEDİYE1 HEDİYE2 HEDİYE3
ALİ VELİ RIZA OKAN
VELİ MEHMET ALİ ORHAN
AYŞE AYŞE
MEHMET GÜRKAN
ORHAN
OKAN
GÜRKAN
RIZA
Kullanıcı avatarı
esef34
 
Kayıt: 14 Eyl 2022 15:17
Meslek: isg uzmanı
Yaş: 30
İleti: 2
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: istanbul/kartal

Yıllık Maaş Bordrosu Hesaplama 2022

Cevap: MAKRO İLE KURA ÇEKME

İleti#2)  veyselemre » 15 Eyl 2022 09:55

Kod: Tümünü seç
Sub TEST()
    Set s1 = Sheets("Sheet1")
    Set s2 = Sheets("Sheet2")
    s2.Range("A2:J100").ClearContents
   
    son = s1.Cells(Rows.Count, 1).End(3).Row

    With New Collection
       
        For i = 1 To son
            .Add s1.Cells(i, 1).Value
        Next i
        sat = 2
   
basla:
        kacTane = WorksheetFunction.RandBetween(1, 12)
       
        If kacTane > 10 Then kacTane = 10
        'If kacTane < 5 Then kacTane = 5
       
        If kacTane > .Count Then kacTane = .Count
        For i = 1 To kacTane
            getir = WorksheetFunction.RandBetween(1, .Count)
            s2.Cells(sat, i).Value = .Item(getir)
            .Remove (getir)
        Next i
        sat = sat + 1
        If .Count > 0 Then GoTo basla
    End With

End Sub
Kullanıcı avatarı
veyselemre
Site Dostu
 
Kayıt: 28 Nis 2015 17:53
Meslek: SERBEST
Yaş: 107
İleti: 507
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara / Çubuk

Cevap: MAKRO İLE KURA ÇEKME

İleti#3)  esef34 » 15 Eyl 2022 18:08

Çok teşekkür ederim. Bu kodları düzenlemem gerekecek fakat anlamadığım için nereyi değiştireceğimi bilmiyorum. Dosyayı mail olarak atsam bakıp yardımcı olma şansınız var mı acaba? @veyselemre
Kullanıcı avatarı
esef34
 
Kayıt: 14 Eyl 2022 15:17
Meslek: isg uzmanı
Yaş: 30
İleti: 2
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: istanbul/kartal


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Google [Bot] ve 3 misafir

Bumerang - Yazarkafe