hata nerede

[burhancavus61]

aşağıdaki kodlar ile önüne karakter aklemeye çalıştım ama olmadı
hata nerede

Private Sub ekle_bakalim()
Dim i As Integer
For i = 2 To 1000 'hedef aralığı belirleyelim
Value.Cells(i, 1) = Value.Cells(i, 1) & "'" 'cells i = 50 ile 1000 arası sayacak, 1'de a hücresini hedef alacak
Next i ' 1000 sayana kadar döngüye devam et
End Sub

 

[veyselemre]

Cells(i, 1).Value = Cells(i, 1).Value & "'"

 

[burhancavus61]

olmadı ya ben tırnak işaretini hücredeki karakterin önüne yazmasını istemiştim

 

[Merhum İdris SERDAR]

Cells(i, 1).Value = "'" & Cells(i, 1).Value
şeklinde olmaz mı?