Rastgele Kelime Çağırma

[atedionysos]

Merhaba,
Sn. shodow,
Dosyanız üzerine fikir vermesi açısından eklemeler yaptım. Kelime Havuzu sayfasındaki c-d sütunlarını iptal ettim.
Sözlük kısmına da fonksiyon yerine makro uyguladım.
Ayrıca sözlüğü forma da taşıdım.
Eğer isterseniz uygulamayı tamamen userform üzerine taşıyabilirsiniz. Görsellik ve kullanım kolaylığı yönüyle size avantaj sağlayacaktır.

Hocam merhaba, yazdığım sorunun cevabı lazım yardımcı olursanız çok sevinirim.

 

[leumruk]

Selamlar,

kelime havuzu3.xls

docs.google.com

 

[atedionysos]

Selamlar,

kelime havuzu3.xls

docs.google.com

Kelime havuzu dosyasını çalıştıramadım. Hem hata verdi hem de üstünde değişiklik yaptırmıor. Benim paylaştığım kod dan yardım etseniz? Sadece aynı kelimeleri karşıma çıkarmamasını ve kelimeler bittikten sonra kapatmasını istiyorum.

 

[leumruk]

5 nolu mesaja alternatif link ekledim. Mesajdaki kodu incelediğinizde kelime havuzundan alınan kelimelerin başka bir sayfaya alındığını ve kontrolün o sayfadan yapılarak mükerrer kelime seçiminin önüne geçildiğini göreceksiniz.

Rastgele Kelime Çağırma

Merhaba arkadaşlar, Rastgele kelime çağırmak istiyorum ama başaramadım yardımcı olursanız sevinirim. İki sheet var bunlardan biri kelime havuzu diğeri arama ve rastgele kelime çağırma bölümü, Tuşa bastığımda kelıme havuzundan 10 tanesini rastgele sıralamasını istiyorum bunu nasıl yapabılırım...

excel.web.tr

 

[atedionysos]

5 nolu mesaja alternatif link ekledim. Mesajdaki kodu incelediğinizde kelime havuzundan alınan kelimelerin başka bir sayfaya alındığını ve kontrolün o sayfadan yapılarak mükerrer kelime seçiminin önüne geçildiğini göreceksiniz.

Rastgele Kelime Çağırma

Merhaba arkadaşlar, Rastgele kelime çağırmak istiyorum ama başaramadım yardımcı olursanız sevinirim. İki sheet var bunlardan biri kelime havuzu diğeri arama ve rastgele kelime çağırma bölümü, Tuşa bastığımda kelıme havuzundan 10 tanesini rastgele sıralamasını istiyorum bunu nasıl yapabılırım...

excel.web.tr

Hocam haklısınız fakat ben kodlardan anlamıyorum. Benim yaptığım netten kod toplayarak yaptığım uygulama. Güzel oldu ama eksikleri var ve onları yapamıyorum ve sizden yardım istiyorum. Eklediğim resimleri inceleyin ve bana benim yazdığım kod üzerinden değişiklik yapmama yardım edin lütfen.

 

[leumruk]

Hocam haklısınız fakat ben kodlardan anlamıyorum. Benim yaptığım netten kod toplayarak yaptığım uygulama. Güzel oldu ama eksikleri var ve onları yapamıyorum ve sizden yardım istiyorum. Eklediğim resimleri inceleyin ve bana benim yazdığım kod üzerinden değişiklik yapmama yardım edin lütfen.

Selamlar,
Örnek dosya olmadan yapılacak pek bir şey yok. Ancak öneride bulunabilirim. Aynı kelimenin gelmesini istemiyorsanız, Seçilen kelimeleri farklı bir sayfaya aldırmak ve o sayfadan Eğersay ya da Find komutlarıyla kontrol ettirerek aynı kelimenin önüne geçmeniz gerekiyor. Kod çözümü için örnek dosya eklemeniz gerekli.

 

[atedionysos]

Selamlar,
Örnek dosya olmadan yapılacak pek bir şey yok. Ancak öneride bulunabilirim. Aynı kelimenin gelmesini istemiyorsanız, Seçilen kelimeleri farklı bir sayfaya aldırmak ve o sayfadan Eğersay ya da Find komutlarıyla kontrol ettirerek aynı kelimenin önüne geçmeniz gerekiyor. Kod çözümü için örnek dosya eklemeniz gerekli.

Umarım doğru paylaşmışımdır.
Örnek Dosya

 

[leumruk]

Dosyaya erişim izni istiyor.

 

[atedionysos]

Dosyaya erişim izni istiyor.

Dosyaya erişim izni istiyor.

Düzelttim

 

[ghazestor]

I think it will be more useful if you get the words in the word pool with a macro instead of a formula.
mobdro 2022

 

[leumruk]

Selamlar,

Public n
Sub kelime_getir()
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Sayfa2")
Tekrar:
    kn = s1.Cells(s1.Rows.Count, 1).End(3).Row
    sonsat = s2.Cells(s2.Rows.Count, 1).End(3).Row + 1
    
    If sonsat - 1 >= kn Then
    Sor = MsgBox("Tüm kelimeler gösterildi. Gösterilen kelimeleri temizleyip başa dönmek ister misiniz?", vbYesNo, "UYARI")
    If Sor = vbYes Then
    s2.Range("a2:b" & sonsat).Delete
    GoTo Tekrar
    Else
    Exit Sub
    End If
    End If

        Randomize
        n = Int(kn * Rnd + 1) + 1

        say = WorksheetFunction.CountIf(s2.Range("a2:a" & sonsat), s1.Range("A" & n))
    
        If say > 0 Then
        GoTo Tekrar
        End If
        UserForm3.txtturkce.Text = s1.Range("A" & n)
        
        s2.Cells(sonsat, 1) = s1.Range("A" & n)


End Sub

Örnek Dosya

 

[atedionysos]

Selamlar,

Public n
Sub kelime_getir()
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Sayfa2")
Tekrar:
    kn = s1.Cells(s1.Rows.Count, 1).End(3).Row
    sonsat = s2.Cells(s2.Rows.Count, 1).End(3).Row + 1
  
    If sonsat - 1 >= kn Then
    Sor = MsgBox("Tüm kelimeler gösterildi. Gösterilen kelimeleri temizleyip başa dönmek ister misiniz?", vbYesNo, "UYARI")
    If Sor = vbYes Then
    s2.Range("a2:b" & sonsat).Delete
    GoTo Tekrar
    Else
    Exit Sub
    End If
    End If

        Randomize
        n = Int(kn * Rnd + 1) + 1

        say = WorksheetFunction.CountIf(s2.Range("a2:a" & sonsat), s1.Range("A" & n))
  
        If say > 0 Then
        GoTo Tekrar
        End If
        UserForm3.txtturkce.Text = s1.Range("A" & n)
      
        s2.Cells(sonsat, 1) = s1.Range("A" & n)


End Sub

Örnek Dosya

Öncelikle çok ama çok teşekkür ederim. Msgbox kısmı çalışmasa da kelimeleri tekrar karşıma çıkartmadığı için işimi fazlasıyla gördü. Ama msgbox ın çalışmamasını merak etmiyor değilim :d Nasıl bir ayar yapılması gerekiyor?

 

[leumruk]

Selamlar, Tüm kelimeler bittiğinde mesaj gelmesi gerekiyor. Yani Kelime sayfasında 100 kelime varsa, kontrol sayfasındaki kelime sayısı 100'e ulaştığında mesaj karşınıza çıkar.