Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Excel'e Yeni Başlayanlar
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Excel'e Yeni Başlayanlar Excel kullanmaya yeni başladıysanız sorularınızı buraya gönderebilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 15-06-2016, 13:26   #1
mehmetaltin
Altın Üye
 
Giriş: 17/11/2011
Şehir: burdur
Mesaj: 231
Excel Vers. ve Dili:
excel 2007 türkçe
Varsayılan Benzersiz rastgele sayı oluşturma

Arkadaşlar excelde A1-Z1 arasında 1-100 arasında benzersiz sayılar oluşturmak istiyorum nasıl yapabilirim?
mehmetaltin Çevrimdışı   Alıntı Yaparak Cevapla
Eski 15-06-2016, 14:05   #2
kuvari
Destek Ekibi
 
kuvari kullanıcısının avatarı
 
Giriş: 04/05/2007
Şehir: İstanbul
Mesaj: 2,638
Excel Vers. ve Dili:
OFİS 2013 TÜRKÇE-İNG. 64 BİT
Varsayılan

Merhaba,

Tag'daki kodu kullanabilirsiniz. Ben 100'e kadar üretmesini istedim aralığı siz belirleyebilirsiniz.

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub sayiuret()
Randomize
    
   For Each alan In Range("a1:z1")
10  Sayi = Int(Rnd * 100)
      If WorksheetFunction.CountIf(Range("A1:Z1"), Sayi) > 0 Then GoTo 10
alan.Value = Sayi
Next
End Sub
__________________
Bilgi kadar zenginlik, cehalet kadar yoksulluk yoktur.
(Hz. Ali)
kuvari Çevrimdışı   Alıntı Yaparak Cevapla
Eski 05-01-2018, 21:49   #3
xternet
Altın Üye
 
xternet kullanıcısının avatarı
 
Giriş: 12/11/2004
Şehir: Rize
Mesaj: 384
Excel Vers. ve Dili:
2003 Tr 2010 Tr
Varsayılan

Alıntı:
kuvari tarafından gönderildi Mesajı Görüntüle
Merhaba,

Tag'daki kodu kullanabilirsiniz. Ben 100'e kadar üretmesini istedim aralığı siz belirleyebilirsiniz.

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub sayiuret()
Randomize
    
   For Each alan In Range("a1:z1")
10  Sayi = Int(Rnd * 100)
      If WorksheetFunction.CountIf(Range("A1:Z1"), Sayi) > 0 Then GoTo 10
alan.Value = Sayi
Next
End Sub
Merhaba Arkadaşlar,

Yukarıdaki kod 0(sıfır) dan başlayarak sayı üretiyor.
Bunu 1 den başlatabilir miyiz?
__________________
Matematik Hayattır.
Herkese İyi Çalışmalar.
Excel 2003 - Türkçe
http://www.yavuzkoc.com
http://www.rizeihl.com
xternet Çevrimdışı   Alıntı Yaparak Cevapla
Eski 05-01-2018, 21:54   #4
YUSUF44
Destek Ekibi
 
YUSUF44 kullanıcısının avatarı
 
Giriş: 04/01/2006
Şehir: Manisa, Kula
Mesaj: 6,496
Excel Vers. ve Dili:
İş : Ofis 2016 - Türkçe Ev: Ofis 2016 - Türkçe
Varsayılan

Aşağıdaki kodu deneyiniz:

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub rastgele()
For i = 1 To 26
10:
    sayı = WorksheetFunction.RandBetween(1, 100)
    If WorksheetFunction.CountIf(Range(Cells(1, "A"), Cells(1, i)), sayı) > 0 Then GoTo 10
    Cells(1, i) = sayı
Next
End Sub
__________________


Sorularınızı örnek dosyayla desteklemeniz çözüme ulaşmanızı kolaylaştırır.

Altın Üye olmanızı öneririm. Altın Üye değilseniz dosyanızı dosya yükleme sitelerinden birine yükleyip linkini paylaşabilirsiniz.
YUSUF44 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 05-01-2018, 22:00   #5
xternet
Altın Üye
 
xternet kullanıcısının avatarı
 
Giriş: 12/11/2004
Şehir: Rize
Mesaj: 384
Excel Vers. ve Dili:
2003 Tr 2010 Tr
Varsayılan

Yusuf bey yanıtınız için teşekkür ediyorum.
Yalnız ben yukarıdaki kodu aşağıdaki şekilde kendime göre düzenlemiştim.
Siz tamamen farklı bir kod gönderince uyarlayamadım.
Aşağıdaki kodda 1 den nasıl başlatırız?

Sub sayiuret_2()
Randomize

For Each alan In Range("B1:B" & [D3])
10 Sayi = Int(Rnd * Range("D3"))
If WorksheetFunction.CountIf(Range("B1:B" & [D3]), Sayi) > 0 Then GoTo 10
alan.Value = Sayi
Next
End Sub
__________________
Matematik Hayattır.
Herkese İyi Çalışmalar.
Excel 2003 - Türkçe
http://www.yavuzkoc.com
http://www.rizeihl.com
xternet Çevrimdışı   Alıntı Yaparak Cevapla
Eski 05-01-2018, 22:05   #6
YUSUF44
Destek Ekibi
 
YUSUF44 kullanıcısının avatarı
 
Giriş: 04/01/2006
Şehir: Manisa, Kula
Mesaj: 6,496
Excel Vers. ve Dili:
İş : Ofis 2016 - Türkçe Ev: Ofis 2016 - Türkçe
Varsayılan

Aşağıdaki gibi olur muhtemelen:

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub sayiuret_2()
Randomize

For Each alan In Range("B1:B" & [D3])
10 Sayi = WorkSheetFunction.Max(1,Int(Rnd * Range("D3")))
If WorksheetFunction.CountIf(Range("B1:B" & [D3]), Sayi) > 0 Then GoTo 10
alan.Value = Sayi
Next
End Sub
__________________


Sorularınızı örnek dosyayla desteklemeniz çözüme ulaşmanızı kolaylaştırır.

Altın Üye olmanızı öneririm. Altın Üye değilseniz dosyanızı dosya yükleme sitelerinden birine yükleyip linkini paylaşabilirsiniz.
YUSUF44 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 05-01-2018, 22:28   #7
xternet
Altın Üye
 
xternet kullanıcısının avatarı
 
Giriş: 12/11/2004
Şehir: Rize
Mesaj: 384
Excel Vers. ve Dili:
2003 Tr 2010 Tr
Varsayılan

Çok telekkür ediyorum Yusuf bey. Üretilen sayı adedini seçilen alandan bir fazla yapınca kod sorunsuz çalıştı.

Bir şey daha sormak istiyorum:

Range("B1:B" & [D3])

ile B1 den başlayıp B sütununda [D3] hücresindeki değere kadar işlem yapmasını sağlamış oluyorum.
Aynı ifade içinde B1 ifadesindeki "1" değerini de seçtiğim bir hücreden almasını nasıl sağlarım.
Böylece başlangıç ve bitiş aralığını excel üzerinden belirlemiş olucam.
__________________
Matematik Hayattır.
Herkese İyi Çalışmalar.
Excel 2003 - Türkçe
http://www.yavuzkoc.com
http://www.rizeihl.com
xternet Çevrimdışı   Alıntı Yaparak Cevapla
Eski 05-01-2018, 22:58   #8
YUSUF44
Destek Ekibi
 
YUSUF44 kullanıcısının avatarı
 
Giriş: 04/01/2006
Şehir: Manisa, Kula
Mesaj: 6,496
Excel Vers. ve Dili:
İş : Ofis 2016 - Türkçe Ev: Ofis 2016 - Türkçe
Varsayılan

Örneğin D1'den alması için:

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Range("B" & [D1] & ":B" & [D3])
__________________


Sorularınızı örnek dosyayla desteklemeniz çözüme ulaşmanızı kolaylaştırır.

Altın Üye olmanızı öneririm. Altın Üye değilseniz dosyanızı dosya yükleme sitelerinden birine yükleyip linkini paylaşabilirsiniz.
YUSUF44 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 05-01-2018, 23:09   #9
xternet
Altın Üye
 
xternet kullanıcısının avatarı
 
Giriş: 12/11/2004
Şehir: Rize
Mesaj: 384
Excel Vers. ve Dili:
2003 Tr 2010 Tr
Varsayılan

Her şey tam istediğim gibi yerine oturdu Yusuf bey.
Zihninize sağlık.

İyi çalışmalar.
__________________
Matematik Hayattır.
Herkese İyi Çalışmalar.
Excel 2003 - Türkçe
http://www.yavuzkoc.com
http://www.rizeihl.com
xternet Çevrimdışı   Alıntı Yaparak Cevapla
Eski 06-01-2018, 09:58   #10
İdris SERDAR
Moderatör
 
İdris SERDAR kullanıcısının avatarı
 
Giriş: 21/10/2005
Şehir: Ankara
Mesaj: 14,564
Excel Vers. ve Dili:
Excel, 2016 - İngilizce
Varsayılan

.

Buradaki örnekleri de inceleyin.

http://www.excelgurusu.com/rassal-sayilar/


.
__________________
Çalışmalarımı görmek için:

http://www.excelgurusu.com/

İdris SERDAR
İdris SERDAR Çevrimdışı   Alıntı Yaparak Cevapla
Yanıtla


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 23:41


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım -- Beylikdüzü mali müşavir - Lingerie - Dyeing Machine - Karton Bardak- Çorlu Dil Konuşma Terapisti- Çorlu Özel Eğitim- Site Yönetimi- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Çorlu- Çorlu Araç Takip- Çorlu Su Arıtma- Gebze Emlak- Rampa- Rotary- Çorlu İnternet Sitesi- Çorlu Sürücü Kursu- Çorlu Sürücü Kursu- Şişli Avukat- Edirne Serbest Muhasebeci- Çorlu Etüt- İstanbul Botanik- Çorlu Sigorta- Kağıt Bardak- Kaplan Tekstil- Çorlu Perde- Çorlu Havuz- Makina- Danışmazlar-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden