...bir bilgi yok
Ekran alıntısındaki müşteri siparişine Sipariş numarası belirlememiş program sipariş numarasız girişi kabul etmediği için rastgele (QQ) birşey yazdım
ekrana yalnızca bu bilgi geliyor Çerçeve içine aldığım bölüme seçmiş olduğum parçanın parça numarası gelebilir mi ? daire...
Şöyle bir mantık düşündüm. Alttaki resimde D sütununa Yemek kategorisini kullanıcı manuel girer. 5 tane kategori olsun diyelim. Menü hazırlık kısmında yemek1 e d kategorisinde Yemek1 yazılı yemeklerden rastgele dağıtılır. Aynı şekilde Yemek2 ye de Yemek2 kategorrisnden dağıtım yapılır.
hocam Muygun un rastgele yemek dağıtımını kodları çoğaltarak 3 yemekten 4 farklı yemeğe çıkarmıştım linkteki dosya ile. Siz de bu dosyadan yararlanmışsınız. İşinize yararsa bakabilirsiniz. Benim makro bilgimi aşıyor açıkcası biraz bu.
4 yemekli rastgele dağıtım yapan dosya...
...dosyada örneğin bir öğünlük menüde 3 adet tatlı gelebilmektedir. bunun yerine Çorbalar, Ana Yemek1, Ana Yemek2, Ekstra diye bölümler olsa. Rastgele dağıtılan yemekler o bölümden seçilip ilgili bölüme dağıtılsa daha iyi olur. Örneğin çorbalar listesinden her menüde 1 tane seçilecek gibi. Bunu...
Merhabalar
Ekte örneği mevcut olan excelde 2 ve 3. satırlarda veriler mevcut. Bu satırların sonunda da toplam hücreleri var.
2. satır rastgele sayılardan ve 3 satırda 5000 sayılarından oluşmakta.
Satır sonraları için;
2 satır sonunda sayı değeri 1000 üzeri olanların toplanması
3 satır sonunda...
Merhaba, rastgele seçilen değer eğer yerleştiği sütunun satır değerindeki h satırınının değeri değişmiyorsa tekrar yazdırmak istiyorum. Yanı h2 ve h3 değeri aynıysa p2 ve p3 e aynı rastgele değer yazılsın eğer h2 ve h3 değeri farklıysa o zaman yeni rastgele değer seçsin. eski rastgele değer bi...
Merhaba, d3ten başlayıp d sütunundaki son hücreye kadar olan verileri rastgele seçip başka bir sütuna (örneğin p sütunu) yazdırmak istiyorum. Ama bazı kurallarla rastgele seçilen değer bir daha seçilmiycek ve eğer seçilen değerin bulunduğu satırın yanındaki sütunda yani e sütunundaki satır...
...birleştirebilirim.
ÖRNEK: Ali dün 12 soru , bugün 15 soru çözmüştür.Ali iki günde toplam kaç soru çözmüştür? Bu problemdeki 12 ve 15 sayıları başka sayfadan rastgele arada olarak yada belirli bir kurala göre çekmek istiyorum.=Sayfa1!Z2 kodunu bu problemdeki 12 yada 15 yerine nasıl yazabilirim?
Boş bir excel açtım.
A sütununa bir başlık ekledim.
Altına rastgele veriler yazdım. Sizin kriterleride yazdım.
Sonra MAKRO KAYDET yöntemi ile gerekli filtre işlemini yaptım. Oluşan kodu aşağıdaki gibi düzenledim.
Oluşan Kod;
Sub Makro1()
'
' Makro2 Makro
'
'...
Merhaba.
Kod ile işinizi görürse
Sub Test()
Dim Harfler As String
Dim Bak As Integer
Dim Rastgele As Integer
Harfler = "ABCÇDEFGĞHIİJKLMNOÖPRSŞTUÜVYZ"
For Bak = 1 To 29
Rastgele = Int((Len(Harfler) * Rnd) + 1)
Cells(Bak, 1).Value = Mid(Harfler, Rastgele, 1)...
Arkadaşlar, sayın hocalarım, belki size basit gelecek ama A1'den A29'a kadar. Harfleri rastgele nasıl yazdırabilirim. Yaptım aslında ama mükerrer oluyor. Her harf sadece 1 kere olacak. 29 satır olacak. Yardımcı sütun da kullandım. Mükerrer harf oluyor.
Teşekkür ederim. Saygılarımla.
Merhaba herkese;
Excelde benim belirlediğim değerler arasında rastgele sayı oluşturmasını istiyorum örnek olarak ben 40,15 ile 45,27 değerlerini girdiğimde bana 25 adet bu değerler arası ondalıklı sayı vermesini istiyorum.
=A2+(B2-A2)*RASTGELE()
bu şekilde formuller buldum ama işe yaramadı...
...bulunun ortaokul (5-6-7-8. Sınıf) öğrencileri için hazırladığımız hedefler dosyasında "Bilgi Girişi" sayfasında Adı Soyadı ve sınıfları rastgele yazılan öğrencilerden alınan hedeflerin, sınıflarına göre ayırmış olduğumuz diğer sekmelere (5.sınıf Test) kendi sınıfından en fazla 20 kişi olacak...
Hocam ilgi ve alakanız için çok teşekkür ederim.
Şu an ufak bir sıkıntı var, A sütunu 2. satırdan başlıyor, yalnız B sütununa yazarken 1. satırdan başlıyor.
ws.Range("B2").Resize(sonSatir, 1).Value = degerler
şeklinde düzenledim, bu seferde en altta bir satır fazla yazıyor.
Çok önemli değil...
istediğini kodlar.
Sub RastgeleSirala()
Dim ws As Worksheet
Dim sonSatir As Long
Dim degerler As Variant
Dim i As Long, j As Long, temp As Variant
' Çalışma sayfasını belirt (Sayfa1 yerine gerçek sayfa adınızı kullanın)
Set ws = ThisWorkbook.Worksheets("Sayfa1")
'...
...Sayfada A sütununda yer alan yaklaşık 1000 satırda birbirinden farklı değerler yazılı;
yapmak istediğim "A" sütununda yazan bu değerleri rastgele(karışık) olarak B sütunundaki satırlara dağıtması,
Özetle A sütununda sıralı bir şekilde yazan değerleri B sütuna karışık olarak yazılması ...
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.