Belirli Kelimeleri Aynı Sütunda Öne Nasıl Alabiliriz

Katılım
19 Kasım 2019
Mesajlar
5
Excel Vers. ve Dili
1
Belirli kelimeleri aynı sütunda öne alıp tek sütun halinde yazmak istiyorum. örneğin aynı sütunda yazılı olan ; Arabası : Toyota, Evi : Esenyurt, İş Yeri : Bağcılar,
Bu örnekte Evi : Esenyurt olan kelimeyi aynı sütunda öne almak istiyorum. Bunu bir türlü yapamadık elle de zor oluyor.
 

Necdet

Moderatör
Yönetici
Katılım
4 Haziran 2005
Mesajlar
15,180
Excel Vers. ve Dili
Ofis 365 Türkçe
Merhaba,

Aşağıdaki kod aynı yapıdaki A sütunundaki tüm hücreleri istediğiniz şekle getirir.
Not : Kontroller yapılmamıştır, yani Evi olmayan değerlerde yanlış olabilir.

Gerekirse kontrollerde yapılabilinir.

Kod:
Sub Ornek()

    Dim i   As Long, _
        d   As Variant, _
        s   As String
    
    For i = 1 To Cells(Rows.Count, "A").End(3).Row
        d = Split(Cells(i, "A"), ",")
        Cells(i, "A") = d(1) & ", " & d(0) & ", " & d(2)
    Next i
    
End Sub
 
Katılım
19 Kasım 2019
Mesajlar
5
Excel Vers. ve Dili
1
Evi değil dei iş yeri kelimesi için nasıl uyarlama yapabiliriz mesela Necdet bey
 

Necdet

Moderatör
Yönetici
Katılım
4 Haziran 2005
Mesajlar
15,180
Excel Vers. ve Dili
Ofis 365 Türkçe
Merhaba,

Ben hücreyi Virgül ile ayırarak bir diziye aktarıyorum.
Kod satırı aşağıda.

Kod:
Cells(i, "A") = d(1) & ", " & d(0) & ", " & d(2)
d(0) ilk virgülden önceki, d(1) ikinci ve d(2) ise sonuncu parçayı verir.

Siz bunların yerini değiştirerek kullanabilirsiniz.
 
Katılım
19 Kasım 2019
Mesajlar
5
Excel Vers. ve Dili
1
ancak şöyle bir sorun var Evi : Esenyurt olan yazısı her zaman aynı sırada gelmiyor. Kimi zaman 2, kimi zaman 3. sırada geliyor. Bunu en başa çeker mi her zaman
 

Necdet

Moderatör
Yönetici
Katılım
4 Haziran 2005
Mesajlar
15,180
Excel Vers. ve Dili
Ofis 365 Türkçe
ı-ıh çekmez :) Kontrol şart.
 
Katılım
15 Ekim 2014
Mesajlar
822
Excel Vers. ve Dili
Excell 2016 Türkçe 64 bit
Bence var olan ile olmasını istediğiniz bir kaç farklı örneğin olduğu örnek dosya ile gönderseniz daha iyi olur
 

Haluk

𐱅𐰇𐰼𐰚
Katılım
7 Temmuz 2004
Mesajlar
12,270
Excel Vers. ve Dili
64 Bit 2010 - İngilizce
+
Google Sheets
+
JScript
"Regular Expressions" ile bir alternatif ektedir....

.
 

Ekli dosyalar

Üst