şifre oluşturma

[gencoglu27]

Merhab arkadaşlar,

A sutunundaki kelimelerle B sutunundaki kelimeleri rastgele karıştırara yeni anlamsız kelimeyi C sutununa yazdırmak istiyorum.örnek. A1 deki "ocak" kelimesi ile B1 deki "january "kelimesinin harfleri ile yeni bir kelime(şifre) oluşturmak istiyorum..CYUJAOKCNARYA.gibi..

Teşekkürler..

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki kodu denermisiniz.

Option Explicit
 
Sub KARIŞTIR()
    Dim SAYI As Integer, X As Long, Y As Integer
    Dim Veri As String, Dizi As Collection, Eleman As Variant
 
    Columns(3).ClearContents
 
    For X = 1 To Cells(Rows.Count, 1).End(3).Row
        Set Dizi = New Collection
        Veri = Cells(X, 1) & Cells(X, 2)
        For Y = 1 To Len(Veri)
10          Randomize Timer
            SAYI = Int((Rnd() * Len(Veri)) + 1)
 
            For Each Eleman In Dizi
                If Eleman = SAYI Then GoTo 10
            Next
 
            Cells(X, 3) = Cells(X, 3) & Mid(Veri, SAYI, 1)
 
            On Error Resume Next
            Dizi.Add SAYI, CStr(SAYI)
            On Error GoTo 0
        Next
        Set Dizi = Nothing
    Next
 
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[gencoglu27]

Tamam Koray bey ..Eline sağlık...Teşekkür ettim..