Karakter Üreten Buton

[Emsdmr]

Excelde A1 Hüresinde var olan ve 100 Karakterden oluşan bir sıralamayı kendini tekrarlamıyacak şekilde olabildiğince çok 3lü dizin yapmasını rica ediyorum.
örnek vererek izah edebilmek daha kolay olur diye düşünüyorum.
Range("A1")="15abcdefgğhıi%6(=?_'!@$£#........."

yardımlarınız sonrası oluşacak makro ile aşağıdaki gibi olmasını ümid ediyorum.

Range("A2")="f1@"
Range("A3")="?$i"
Range("A4")="........."

saygılar

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki kodu deneyiniz.

Sub RASTGELE_KARIŞTIR()
    Dim Sayi, Dizi, Say, Veri, Satir
    
    Range("A2:A" & Rows.Count).ClearContents
    Satir = 2
    
    ReDim Dizi(1 To 1)
    
10  Randomize Timer
    Sayi = Int(Len(Range("A1")) * Rnd()) + 1
        
    If Say = Len(Range("A1")) Then GoTo Son
        
    For Each Veri In Dizi
        If Veri = Sayi Then GoTo 10
    Next
    
    Say = Say + 1
    ReDim Preserve Dizi(1 To Say)
    Dizi(Say) = Sayi
    
    Cells(Satir, 1).NumberFormat = "@"
    Cells(Satir, 1) = Cells(Satir, 1).Text & Mid(Range("A1"), Sayi, 1)
    If Len(Cells(Satir, 1)) < 3 Then
        GoTo 10
    Else
        Satir = Satir + 1
        GoTo 10
    End If
    
Son: MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[Emsdmr]

Korhan Ayhan çok teşekkür ederim. Aradığım buydu