DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub tikkoy()
For i = 1 To Range("a65536").End(3).Row
Cells(i, 1) = "'" & Cells(i, 1)
Next
End Sub
Sub tikkoy()
For i = 2 To 201
Cells(i, "x") = "'" & Cells(i, "x")
Next
End Sub