Makro ile sayıyı metne çevir ve sırala

[vivident]

merhaba

ekteki dosyada B sütununda sayı ve metin içeren verilerim var. benim isteğim hepsini metin yaparak sıralamak.

B sütunu seçip hücre biçimlendirden herşeyi metin yaptım. F2+Enter ile tek tek uğraşmayayım diye kod yazdım. Ama kod verdiğim aralık dışında çalışıyor. Aşağıdaki kodda 5-20 satır arasındaki hücrelere F2+Enter yapacağına, farklı bir satırdan başlayıp 34. satıra kadar gidiyor. Nasıl yapabilirim

Sub sırala()
Sheets("AAA").Range("B5:E20").Sort Sheets("AAA").Range("B5"), Order1:=xlAscending
End Sub
Sub donustur()
Dim i As Integer
For i = 5 To 20
    Sheets("AAA").Range("B" & i).Select
    Application.SendKeys "{F2}"
    Application.SendKeys "{ENTER}"
Next i
End Sub

 

[veyselemre]

Sub donustur()
    For i = 5 To 20
        Sheets("AAA").Range("B" & i).Value = "'" & Sheets("AAA").Range("C" & i).Value
    Next i
End Sub

 

[vivident]

Tesadüfen C sütununda aynı verilerin olduğu bir örnek göndermişim. Bu sayede sizin yönteminizle çözülüyor. Fakat ben F2+Enter olaylı bir çözümü öğrenmek istiyorum, ileride de işime yarabilir düşüncesindeyim çünkü

 

[veyselemre]

Sub donustur()
For i = 5 To 20
Sheets("AAA").Range("B" & i).Value = "'" & Sheets("AAA").Range("B" & i).Value
Next i
End Sub

 

[muratgunay48]

Sub donustur()
    For i = 5 To 20
        Sheets("AAA").Range("B" & i).Value = "'" & Sheets("AAA").Range("C" & i).Value
    Next i
End Sub

Hocam, emeğinize sağlık. Hocam peki B sütunundakileri C sütunundaki yani yanındaki hücrenin sadece aynı formatına dönüştürmek istesek (mesela C metin)

 

[Ömer]

Merhaba,

Kopyalama ile yapabilirsiniz.

Sub donustur()
    For i = 5 To 20
        Sheets("AAA").Range("C" & i).Copy Sheets("AAA").Range("B" & i)
    Next i
End Sub

 

[muratgunay48]

Merhaba,

Kopyalama ile yapabilirsiniz.

Sub donustur()
    For i = 5 To 20
        Sheets("AAA").Range("C" & i).Copy Sheets("AAA").Range("B" & i)
    Next i
End Sub

Çok teşekkür ederim hocam.