Merhaba,
Farklı veriden kastınız nedir? Rastgele firma ismi mi gelmeli? Belirli ölçü yada sınırlamaları var mı? Sıralı bir değişim ihtiyacınız varsa Kaydırma çubuğu yada Değer Değiştirme Düğmesi form denetimlerini tavsiye ederim.
...ahmet yazan hücreyi bulup, 5 satır altı ve 7 sütun sağ tarafındaki veriyi nasıl bulabiliriz.
office 2019 kullanıcısıyım
yeşil renkli numaralı tabloda gri renkli verileri başka bir yerde listelemek için buna benzer bir formül sordum (örneğimdeki satır sütun ötelemesi rastgele verilmiştir)
...İNGİLİZCE
A
B
C
D
ABSENCE
YOKLUK
NESLİ TÜKENMEK
BIRAZ GARIP SESSIZLIK VAR
BAGAJ
Bu kelimenin seçeneklerini yatay olarak rastgele yerlerini değiştirmek istiyorum.
A sütununda doğru cevaplar var B-C-D de yanlış cevaplar var.
Doğru cevabın olduğu sütunu diğerleriyle karıştırmak...
boş bi hücrede f4 e alt kenarlık ekledim, f5 e rastgele rakamlar yazdım ve f6 da ctrl+d yaptım sadece rakamları kopyaladı kenarlık gelmedi , dediğiniz gibi hücrenin konumuyla alakalıymış olay :) teşekkür ederim tekrardan arkadaşlar
...yardımcı olabilecekler varsa. ekli excel de sayfa 1 deki sarı dolgulu hücrelere, sayfa 2 deki metin 88 e kadar olanlar içinde SEÇTİKLERİMİ rastgele dağıtabilecek bir kod üretebilir miyiz? sayfa 1 de rastgele dağıt butonu konup ona bastığımızda rastgele dağıtması mümkün mü...
...dediğim kısım otomatik sayı atıyor.
sorum şu,
data sayfasına girdiğim verilerden karışık liste oluşturmak. bunu da sıra ıd numarasına göre rastgele formülü ve min , mak ile yapıyorum fakat her defasında sayılar değiştiği için ve bazen her sayıyı yazmıyor atlıyor. kelime data sayfasındaki...
...: D1000" arası tekrar edebilen metinlerim var. İsteğim şöyle
Öncelikle Sayfa1 "D7 : D1000" aralığındaki metinler benzersiz olacak şekilde Sayfa2 "C:C" sütununa kopyalansın.
Sonra Sayfa2 "D : D " sütununda karşılarına tamamen rastgele (101-999) arası sayılar üretip bıraksın. Bu kadar
Mümkün...
...seçimler yapmak içinde @veyselemre bey'in kodlarına alternatif olarak aşağıdaki kodları kullanabilirsiniz.
Sub test()
Dim adet, satir, rastgele, j, satir2 As Long
adet = Sheets("RAPOR").Range("E1")
satir = Sheets("VERI").[A100000].End(3).Row
Range("A2:C2").Select
Range(Selection...
Yukarıdaki kod tekrar aynı veriyi kopyalayabilir.
Sub test()
Dim veri, i, ii, iii, tmp, adet
Randomize Timer
With Sheets("VERİ")
veri = .Range("A2:D" & .Cells(Rows.Count, 1).End(3).Row).Value
End With
For i = 1 To UBound(veri)
veri(i, 4) = Rnd
Next i...
...gerekiyor.
RAPOR Sayfasına direk tablo biçimi ile yapıştırıyor. Değerler ve sayı biçimlendirmesi olacak şekilde düzeltebilir misiniz?
RAPOR Sayfasında veri varsa en alta yapıştırıyor. İlk önce "başlıkların en altında ne varsa" temizleyip sonra RASTGELE seçim yaptırabilir misiniz?
Kolay gelsin.
...kodları dener misiniz?
Benzersiz verileri seçmek için kodun üstünde biraz daha değişiklik yapmak gerekebilir.
Sub test()
Dim adet, satir, rastgele As Long
adet = Sheets("RAPOR").Range("E1")
satir = Sheets("VERI").[A100000].End(3).Row
For j = 1 To adet
rastgele = Int(satir * Rnd) + 2
if...
...Ekte gönderdiğim örnek dosyada, RAPOR sayfasındaki E1 hücresindeki seçim sayısı kadar, ilgili başlıkların altına VERİ sayfasından alıp yazacaktır.
Fonksiyon veya VBA fark etmez nasıl yapabilirim?
Not: Gerçek dosyada VERİ sayfasında 3.000 Satır veri vardır.
RASTGELE SEÇİM.xlsx - 14 KB
.
Merhaba arkadaşlar. Excelde ekteki görselde olduğu gibi solda girdiğim kelimeler arasından rastgele olarak seçtiği kelimeleri sağ tarafa yazabilecek bir fonksiyon varmıdır.
Alternatif...
Option Explicit
Dim Dizi As Object
Sub Rastgele()
Dim X As Byte
If Dizi Is Nothing Then
Set Dizi = VBA.CreateObject("Scripting.Dictionary")
End If
10 Randomize Timer
If Dizi.Count = 25 - 2 + 1 Then
MsgBox "Tüm değerlerin seçimi...
Merhaba
2 ile 25 arasındaki sayıları tekrarsız rastgele sıralayan ve msgbox olarak veren kod
ReDim dizi(25, 2)
For i = 2 To 25
dizi(i, 1) = i
dizi(i, 2) = Rnd()
Next
For i = 2 To 25
For j = 2 To 25
If dizi(i, 2) > dizi(j, 2) Then
bos = dizi(i, 1)
dizi(i, 1) = dizi(j, 1)
dizi(j, 1) = bos...
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.