Sütunların değişimi

[VeliDemir]

Merhaba. Bu hizmeti sunduğunuzdan ötürü size teşekkür ederim. Bir excel dosyasının A sütunundaki yazılarla B sütunundaki yazıları birbiriyle değiştirecek bir makro programını sizlerden rica ediyorum.

ÖRNEK

Makro çalıştırılmadan önceki hal

A B
1. Az Çok
2. Iyi Kötü
3. Güzel Çirkin
4. Geniş Dar

Makro çalıştırıldıktan sonraki hal

A B
1. Çok Az
2. Kötü İyi
3. Çirkin Güzel
4. Dar Geniş

 

[askm]

Sub askm()
Set son = Range("A" & Rows.Count).End(3).Rows
Application.ScreenUpdating = False
For i = 1 To son
    Kelime = Split(Cells(i, 2), " ")
    Cells(i, 2) = Kelime(1) & " " & Kelime(0)
Next i
Application.ScreenUpdating = True
MsgBox "İşlem tamam...", vbInformation, "ASKM"
End Sub

 

[VeliDemir]

Yardımınızdan ötürü teşekkür ederim. Bu makro programı "For i = 1 To son" kısmında "Run-time error '13' Type mismatch" hatası veriyor. Bunu düzeltebilir misiniz?

 

[askm]

Örnek dosya eklerseniz akşam bakıp dönüş yaparım.

 

[VeliDemir]

Örnek dosya aşağıdaki bağlantıda yer almaktadır.
https://drive.google.com/file/d/13gacrRE9nG92KS_iF7VfC8zEJlOuASTK/view?usp=sharing

 

[YUSUF44]

Muhtemelen Set son ifadesindeki "set" kısmını silerseniz sıkıntı çıkmayacaktır.

 

[YUSUF44]

Olayı biraz yanlış anlamışız galiba . Siz sütunların yer değiştirmesini istiyormuşsunuz. Bunun en kolay yolu B sütununa sağ tıklayıp kes dedikten sonra A sütununa sağ tıklayıp Kesilen hücreleri ekle demektir. Sayın turist'in verdiği çözüm aynı hücre içerisindeki iki kelimenin yer değiştirmesini sağlıyor.