Excelde Kelimeleri Karıştırmak

[shinesee]

Merhaba, excel tablomda yaklaşık 500 kelime var. Bunları her seferinde karıştıracak bir yönteme ihtiyacım var. Makro veya benzeri bir yöntemde olabilir. Nasıl yapacağım hakkında en ufak bir fikrim yok. Bu konuda bana yardımcı olabilirmisiniz?

 

[Necdet]

Merhaba,

Sözcüklerin A sütununda olduğunu varsayalım.
B sütununa rasgele sayı ürettirilir ve B sütununa göre sıralama yaparsanız çözüme ulaşmış olursunuz.

Makro ile de çözüme ulaşılabilir.

 

[Milady Meriç]

Merhaba,

Sözcüklerin A sütununda olduğunu varsayalım.
B sütununa rasgele sayı ürettirilir ve B sütununa göre sıralama yaparsanız çözüme ulaşmış olursunuz.

Makro ile de çözüme ulaşılabilir.

Necdet bey,

Size çok zahmet olmayacaksa VBA örneğini de verebilir misiniz?

 

[Necdet]

Necdet bey,

Size çok zahmet olmayacaksa VBA örneğini de verebilir misiniz?

Merhaba,

Verilerin başlık satırının olduğu varsayılmıştır. Kolon sayısı önemli değildir.

Sub Karistir()
    
    Dim i   As Long
    Dim Kol As Integer
    
    Kol = Cells(1, Columns.Count).End(1).Column + 1
    
    
    Application.ScreenUpdating = False
    Randomize (Timer)
    
    For i = 2 To Cells(Rows.Count, "A").End(3).Row
        Cells(i, Kol) = Rnd
        
    Next i
    
    i = i - 1
    Range(Cells(2, 1), Cells(i, Kol)).Sort Key1:=Cells(1, Kol)
    Columns(Kol).Delete
    
    Application.ScreenUpdating = True
    MsgBox "İşlem Tamamlanmıştır....", vbInformation, "[URL="http://www.excel.web.tr/"]www.excel.web.tr[/URL]"
    
End Sub

 

[Milady Meriç]

MsgBox "İşlem Tamamlanmıştır....", vbInformation,

Necdet Bey bu yazıyı o kadar çok seviyorum ki anlatamam ,

elinize, zihninize sağlık, teşekkür ederim.

 

[Necdet]

Necdet Bey bu yazıyı o kadar çok seviyorum ki anlatamam ,

elinize, zihninize sağlık, teşekkür ederim.

Güle güle kullanınız.

 

[gelibolu]

necdet hocam öncelikle elinize sağlık. bu örnekte olduğu gibi düğmeye 5-6 kez basınca düğme sola kayıyor.Düğmeleri sabitlemenin sütunların silinmesi neticesinde düğmede konum ve biçim bozulmadan durmasını sağlayabilir miyiz?

 

[Necdet]

necdet hocam öncelikle elinize sağlık. bu örnekte olduğu gibi düğmeye 5-6 kez basınca düğme sola kayıyor.Düğmeleri sabitlemenin sütunların silinmesi neticesinde düğmede konum ve biçim bozulmadan durmasını sağlayabilir miyiz?

e tabi çözümü var.

• Düğmeye sağ tıkla
• Denetimi Biçimlendir
• Özellikler
• Hücrelerle Taşıma ve Boyutlandırma
• Tamam

Olabilir ya da koddaki

Columns(Kol).Delete

satırını

 Columns(Kol).ClearContents

ile değiştirirseniz biçimlendirmeye de gerek kalmaz