rnd fonsiyonu ile ilgili yardım

[adsoft]

b1 hücresine a1("mehmet") deki metnin karıştırarak yazmasını istiyorum.
yani mehmet ise "hmetmet" yada "ememht" olacak yani burdaki değerleri randomize yaparak b1 hücresine yazmasını istiyorum yalnız a1 hücresindeki değer değişken

 

[Merhum İdris SERDAR]

.

Sorunuzun "ROUND" fonksiyonu ile ilişkisini anlayamadım?

.

 

[adsoft]

.

Sorunuzun "ROUND" fonksiyonu ile ilişkisini anlayamadım?

.

yani kelimeleri karıştırarak başka bir hücreye yazacak ya o yüzden söyledim.

 

[Merhum İdris SERDAR]

yani kelimeleri karıştırarak başka bir hücreye yazacak ya o yüzden söyledim.

.

O zaman konu başlığınızı düzeltin.

Çünkü ROUND = YUVARLAMA

Öyle bir karıştırma özelliği yok.

.

 

[adsoft]

.

O zaman konu başlığınızı düzeltin.

Çünkü ROUND = YUVARLAMA

Öyle bir karıştırma özelliği yok.

.

pardon rnd fonksiyonu randomize

 

[adsoft]

Arkadaşlar yardım edecek kimse yok mu

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Option Explicit
 
Sub KARIŞTIR()
    Dim X As Integer, Y As Integer, Sayı As Integer
    Dim Say As Integer, Dizi() As Variant
    
    Range("B1") = ""
    
    ReDim Dizi(1 To 1)
    
    For X = 1 To Len(Range("A1"))
Başla:
        Randomize
        Sayı = Int(Rnd() * Len(Range("A1")) + 1)
        
        Say = Say + 1
        ReDim Preserve Dizi(1 To Say)
        Dizi(Say) = Sayı
                
        If UBound(Dizi) > 1 Then
            For Y = 1 To UBound(Dizi) - 1
                If Dizi(Y) = Sayı Then GoTo Başla
            Next
        End If
        
        Cells(1, 2) = Cells(1, 2) & Mid(Cells(1, 1), Sayı, 1)
    Next
 
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub