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

[nigde05]

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]

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.

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

 

[nigde05]

Evi değil dei iş yeri kelimesi için nasıl uyarlama yapabiliriz mesela Necdet bey

 

[Necdet]

Merhaba,

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

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.

 

[nigde05]

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]

ı-ıh çekmez Kontrol şart.

 

[nigde05]

bulamadık sanırım kalıcı bir çözüm...

 

[teyadih]

Bence var olan ile olmasını istediğiniz bir kaç farklı örneğin olduğu örnek dosya ile gönderseniz daha iyi olur

 

[teyadih]

Yapılabilir diye düşünüyorum

 

[Haluk]

"Regular Expressions" ile bir alternatif ektedir....

.