Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > Diğer Yazılımlar > Windows-Word-PowerPoint....
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Windows-Word-PowerPoint.... Excel haricindeki Ofis programları ile ilgili konular.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 05-07-2017, 12:29   #1
dogusvealp
 
Giriş: 27/06/2008
Şehir: istanbul
Mesaj: 4
Excel Vers. ve Dili:
sadasdasasdasd
Varsayılan Word Dosyasında Kelimeleri karıştırmak

KADRAJ
KADRAN
KADRAT
KADRİL
.
.
.
STATİK
STATOR
STEPNE
STERİL
STEROL

Şeklinde alfabetik sırayla devam eden bine yakın kelime var ve ben bunların sırasını karıştırmak istiyorum.Mesela Statatik, Kadran, Stator, Kadril vs... gibi.
Böyle bir şey yapmam mümkün mü acaba?
dogusvealp Çevrimdışı   Alıntı Yaparak Cevapla
Eski 05-07-2017, 14:10   #2
netcini
 
Giriş: 09/05/2008
Mesaj: 48
Excel Vers. ve Dili:
Excel 2010/2013 TR
Varsayılan

Şöyle yapabilirsiniz.

Kelimeleri excelde A sütünuna yapıştırın.

B sütünuna =RASTGELEARADA(1;2000) formülünü yazın
Kelimelerin bitişine kadar, bu formülü aşağıya doğru kopyalayın.

Sonra B sütunu komple seçip kopyalayın. Ve değerleri yapıştırın.

A ve B sütünunu seçerek B sütünuna göre sıralama yapın. Kelimeleriniz karışmış olacak.

A sütünündaki kelimeleri seçip kopyalaıp, Word'a metin yapıştır ile yapıştırırsınız.

Bu mesaj en son " 05-07-2017 " tarihinde saat 14:29 itibariyle netcini tarafından düzenlenmiştir....
netcini Çevrimdışı   Alıntı Yaparak Cevapla
Eski 05-07-2017, 15:08   #3
asri
Altın Üye
 
Giriş: 24/04/2005
Şehir: Istanbul
Mesaj: 2,375
Excel Vers. ve Dili:
Office 2016 TR 64 Bit
Varsayılan

Alternatif makrolu çözüm;

Kelimelerin A kolonunda bulunduğu varsayılmıştır.
B kolonu geçici kullanım için silinecektir.
Kelime sayısı değişken olabilir.

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub karistir()
   Application.ScreenUpdating = False
   Application.DisplayAlerts = False
   
   'Sıralama için sayı üret
   sonsatir = Cells(Rows.Count, "A").End(3).Row
   ustsayi = sonsatir
   altsayi = 1
   Range("B1:B" & sonsatir).Clear
   For i = 1 To sonsatir
   
basla:
     DoEvents
     Randomize
     sayi = Int((ustsayi - altsayi + 1) * Rnd + altsayi)
     If WorksheetFunction.CountIf(Range("B1:B" & sonsatir), sayi) > 0 Then
        GoTo basla
     End If
     If sayi = altsayi Then altsayi = sayi + 1
     If sayi = ustsayi Then ustsayi = sayi - 1
     
     Cells(i, "B").Value = sayi
   Next i
   
  'Yeni sıralamayı yap
    sayfaadi = ActiveSheet.Name
    Columns("A:B").Select
    Range("B1").Activate
    ActiveWorkbook.Worksheets(sayfaadi).Sort.SortFields.Clear
    ActiveWorkbook.Worksheets(sayfaadi).Sort.SortFields.Add Key:=Range("B1:B" & sonsatir _
        ), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets(sayfaadi).Sort
        .SetRange Range("A1:B" & sonsatir)
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Columns("B:B").Select
    Selection.ClearContents
    Range("B1").Select
    
   Application.ScreenUpdating = True
   Application.DisplayAlerts = True
   MsgBox ("Karıştırma işlemi tamamlandı.")
End Sub
__________________
www.asriakdeniz.com
asri Çevrimdışı   Alıntı Yaparak Cevapla
Eski 05-07-2017, 16:43   #4
dogusvealp
 
Giriş: 27/06/2008
Şehir: istanbul
Mesaj: 4
Excel Vers. ve Dili:
sadasdasasdasd
Varsayılan

Çok teşekkür ederim netcini ve asri hocalarım sayenizde sorunumu hallettim. İyi günler ve iyi çalışmalar dilerim sizlere.
dogusvealp Çevrimdışı   Alıntı Yaparak Cevapla
Yanıtla


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 09:34


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım - Tarot Falı - invest in turkey - Lingerie - Dyeing Machine - Karton Bardak- Çorlu Özel Eğitim- Site Yönetimi- Led Aydınlatma- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Kırklareli- Pronet Çerkezköy- Pronet Çorlu- Pronet Lüleburgaz- Pronet Keşan- Çorlu Araç Takip- Çorlu Su Arıtma- Boru Profil- Gebze Emlak- Beylikdüzü Temizlik- İstanbul Burun Estetiği- Bakır Sülfat- Rampa- Rotary- Çorlu İnternet Sitesi- youngblood- Çorlu Palet- Çerkezköy Palet- Çorlu Prefabrik- Çorlu Sürücü Kursu- Çorlu Sandviç Panel- Şişli Avukat- Korona Test Kalemi- Çorlu Vinç- Çorlu Pimapen Tamiri- Çorlu Çelik Konstruksiyon-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden