burhancavus61
Altın Üye
- Katılım
- 13 Mayıs 2005
- Mesajlar
- 761
- Excel Vers. ve Dili
- 2010 Türkçe
- Altın Üyelik Bitiş Tarihi
- 03.11.2024
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
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