Skip to main content

AccessTr.neT


Rastgele Ara

Rastgele Ara

Çözüldü #1
Merhaba,
Ek örnek Excel dosyasında beş sütunda veriler var . j3, K3,L3,M3 ve N3 hücrelerine formülle rastgele veri getiriyor.
Kullanımı daha kolay hale getirmek için Vba kodu oluşturulabilir mi?
Teşekkür ederim.
Sayılarımla.
.rar Kitap1.rar (Dosya Boyutu: 6,75 KB | İndirme Sayısı: 4)
Cevapla
#2
Merhaba Sayın @adnan

Excel dosyanızda J3:N3 aralığındaki formülleri sildikten sonra Vba Editörü açın ve bir modül ekleyerek aşağıdaki kodu yapıştırın:

Sub RandomValues()
Dim rng As Range
Dim rndrw As Long
Dim CellAdr As Variant
Dim i As Integer

CellAdr = Array("J3", "K3", "L3", "M3", "N3")
For i = 0 To UBound(CellAdr)
If i < 3 Then
Set rng = ThisWorkbook.Sheets("Sayfa1").Range("C2").Offset(0, i).Resize(7, 1)
Else
Set rng = ThisWorkbook.Sheets("Sayfa1").Range("F1:F5")
End If
rndrw = Application.WorksheetFunction.RandBetween(1, rng.Rows.Count)
ThisWorkbook.Sheets("Sayfa1").Range(CellAdr(i)).Value = rng.Cells(rndrw, 1).Value
Next i
End Sub

Çalışma sayfanıza bir buton ekleyerek RandomValues makrosunu atayın. Tıkladığınızda J3:N3 aralığındaki hücrelere formülünüzdeki gibi random değerler atayacaktır.

Kod işleyiş olarak CellAdr ile J3:N3 aralığını dizi olarak saklar ve her hücre için döngüde uygun aralığı belirleyerek rastgele bir satır değerini sonuç olarak hedef hücreye işler.
Cevapla
#3
Merhaba,
Sayın atoykan
Çok Teşekkür ederim.
Saygılarımla.
Son Düzenleme: 09/07/2024, 16:42, Düzenleyen: adnan.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da