Otomatik Hastag seçme

[random]

Merhaba,

Instagramdan seçtiğim hastag'ler arasından, belirli skora sahip olanlardan, Data 1 sayfasından 5 tane; Data 2 sayfasından ise, 25 tane Hastag'ın rastgele seçilerek 3. sayfada listelenmesini istiyorum.

Yardımlarınız için, çok teşekkür ederim.

 

[ÖmerBey]

Merhaba,
Deneyiniz...

Sub kod()
ReDim dz1(0): ReDim dz2(0): ReDim dz3(29)
Dim a As Long, s As Long, skr As Long, x As Long
Dim y As String
skr = 500000
x = 0
Randomize
With Sayfa1
    s = .Cells(Rows.Count, 2).End(3).Row
    For a = 3 To s
        If .Cells(a, "E") > skr Then
            ReDim Preserve dz1(x)
            dz1(x) = .Cells(a, "A")
            x = x + 1
        End If
    Next
    For a = LBound(dz1) To UBound(dz1)
        x = Int(Rnd * UBound(dz1))
        y = dz1(a)
        dz1(a) = dz1(x)
        dz1(x) = y
    Next
End With

x = 0
With Sayfa2
    s = .Cells(Rows.Count, 2).End(3).Row
    For a = 3 To s
        If .Cells(a, "E") > skr Then
            ReDim Preserve dz2(x)
            dz2(x) = .Cells(a, "A")
            x = x + 1
        End If
    Next
    For a = LBound(dz2) To UBound(dz2)
        x = Int(Rnd * UBound(dz2))
        y = dz2(a)
        dz2(a) = dz2(x)
        dz2(x) = y
    Next
End With

If UBound(dz1) < 5 Then s = UBound(dz1) Else s = 4
For a = LBound(dz1) To s
    dz3(a) = dz1(a)
Next

If UBound(dz2) < 25 Then s = UBound(dz2) Else s = 24
For a = LBound(dz2) To s
    dz3(a + 5) = dz2(a)
Next
Sayfa3.Range("B2").Value = Join(dz3, " ")
End Sub

 

[random]

Elinize sağlık, sorunsuz çalıştı.
Teşekkür ederim.

 

[ÖmerBey]

Rica ederim,
İyi çalışmalar...