Verilere eklenti kodla?

[Gorarr]

A sütunundaki yolların sonunda "\" yok. Aşağıda gözüktüğü hale gelmesini sağlayan kodlarda yardımcı olabilirmisiniz.

yardımlarınız için çok teşkekür ederim.

 

[Ömer]

A sütunundaki yolların sonunda "\" yok. Aşağıda gözüktüğü hale gelmesini sağlayan kodlarda yardımcı olabilirmisiniz.

yardımlarınız için çok teşkekür ederim.

Merhaba,

Bu şekilde deneyin.

Sub Ekle()
 
    Dim i As Long
 
    For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
        If Right(Cells(i, "A"), 1) <> "\" Then
            Cells(i, "A") = Cells(i, "A") & "\"
        End If
    Next i
 
End Sub

.

 

[Gorarr]

Ömer hocam çok teşekkür ederim.

 

[Orion1]

Buyurun.

Sub Alt_Klasör_İsimleri()
Dim hcr As Range, sat As Long
sat = Cells(65536, "A").End(xlUp).Row
For Each hcr In Range("A1:A" & sat)
    hcr.Value = hcr.Value & "\"
Next
End Sub

 

[Gorarr]

Hocam sizede çok teşekkür ederim. Gerçekten çok işime yaradı.