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.
![Çözüldü](images/icons/cozuldu.png)
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