şampiyonlar ligi skor üretme

[Muhammet Okumuş]

arkadaşlar şampiyonlar ligi için rastgele skorlar ürettim

 

[leumruk]

Tebrik ederim. Ellerine sağlık. İlginç bir çalışma olmuş.
Yalnız bu başlık burada kalıcı olmaz bilgine.

 

[Muhammet Okumuş]

Saol.başlıktaki sorun nedir

 

[leumruk]

Saol.başlıktaki sorun nedir

Yanlış yerde açılmış. Burada sadece soru sorabiliyorsun. Paylaşım dosyaları için ayrı başlılar var. Onları incelemeni tavsiye ederim.

 

[Muhammet Okumuş]

LEumruk sayı üret makrosunda sıfırı seçmesini nasıl engelleriz

 

[Muhammet Okumuş]

nasıl nerede açacağız

 

[leumruk]

nasıl nerede açacağız

Örnek uygulamalar olabilir.

 

[Levent Menteşoğlu]

Sn leumruk haklı, eğer bir örnek çalışma ekliyorsanız aşağıdaki linkte uygun bir başlığı tercih etmenizi öneririm. Aksi takdirde bu başlıkta konunuz zamanla geriye doğru kayacağından bir süre sonra farkedilmeyecektir.

Excel İçin Örnek Uygulamalar

 

[leumruk]

LEumruk sayı üret makrosunda sıfırı seçmesini nasıl engelleriz

Hangi sayı üret kodu.

 

[Muhammet Okumuş]

tamam bundan sonra öyle yaparım

 

[Muhammet Okumuş]

içinde sayı üretme makrosu var.100e kadar sayı üretiyor.sıfırı seçmesini istemiyorum

 

[leumruk]

Sıfır ürettiğine emin misin bende hiç sıfır üretmedi?
100 tane sayı üretiyorsan neden ilk satıra 500 yazdın. 500 satır boyunca sayı mı üretmesini istiyorsun.

 

[leumruk]

Şimdi farkettim. Kod bu şekliyle 100'ü almıyor, onunyerine "0"ı alıyor. Kodu aşağıda eklediğim kodla değiştir. Ya da kırmızı alanı kendi koduna ekle.

Sub uret()
    For i = 1 To 100
        If Cells(i, 1) = "" Then
        Cells(i, 1) = Int((Rnd * 100) [COLOR="red"]+ 1[/COLOR])
        Exit Sub
        ElseIf Cells(i, 2) = "" Then
        Cells(i, 2) = Int((Rnd * 100) [COLOR="Red"]+ 1[/COLOR])
        Exit Sub
        End If
    Next
End Sub

 

[Muhammet Okumuş]

kod bana ait değil.ama sıfır üretiyor.butona bastığımda cm2:cn2 satırlarında aynı anda üretmesini istiyorum

 

[leumruk]

13 nolu mesajda eklediğim kodu denedin mi?

 

[Muhammet Okumuş]

onu denedim oldu.ama butona bir kez bastığımda cm2:cn2 satırlarında aynı anda üretmesini istiyorum

 

[leumruk]

Sub uret()
    For i = 1 To 100
        If Cells(i, 1) = "" Then
        Cells(i, 1) = Int((Rnd * 100) + 1)
        End If
        If Cells(i, 2) = "" Then
        Cells(i, 2) = Int((Rnd * 100) + 1)
        Exit Sub
        End If
    Next
End Sub

Kodları bununla değiştir.

 

[Muhammet Okumuş]

Tamam oldu.çok teşekkür ederim.sn leumruk

 

[leumruk]

Rica ederim.

 

[istanbulcahan]

arkadaşlar şampiyonlar ligi için rastgele skorlar ürettim

Güzel bir çalışma elinize sağlık.

Ben İstanbul badminton da bundan bayağı faydalanacağız. Bu dosyada takımlar 4 'lü grupta bizim maçlarımız 5-6-7-8 lü gruplar haline olabiliyor.

5-6-7-8 Lİ fikstür olarak nasıl düzeltilebilir.

Selam ve saygılarımla.