Tek tırnak ekleme Makrosu hk.

[hakanaslan78]

Merhaba Arkadaşlar,

Benim size bir sorum olacak. Hücrelerimin içindeki verilerin başına tek tırnak eklemek istiyorum. Daha önce kullandığım bir kod vardı, değerlerin sayısı arttığından dolayı oldukça yavaş çalışıyor, nasıl bir kod ile daha hızlı çalışmasını sağlaya bilirim. Kullandığım kodu aşağıda yazıyorum.

Sub TEK_TIRNAK_EKLE()
Dim Veri As Range

For Each Veri In Range("A1:A3000")
Veri.Value = "'" & Veri.Value
Next

MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

Saygılarımla,

Hakan ASLAN

 

[necati]

Merhaba,
Makrosuz yapmak için bir yöntem yazıyorum.

1. Tırnak eklemek istediğiniz hücreleri seçin.
2. CTRL+1/Sayı/İsteğe uyarlanmış
3. Şu değeri Tür kutusuna yazın ve Tamam deyin
   \'@

Not: Yeni bir kitap açıp, verilerinizi yeni sayfaya alırsanız yavaşlayan dosyanızki tüm işlemlerinizi bir miktar hızlandırabilirsiniz.