Hücre Başına Karakter Ekleme

  • Konuyu başlatan Konuyu başlatan bd
  • Başlangıç tarihi Başlangıç tarihi
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
VBA:
Sub Karakter_Ekleme()
Dim Alan As Range
For Each Alan In Selection
If Alan.Value <> "" Then
     Alan.Value = "ED- " & Alan.Value
Next
End Sub
Makro kullanımına dair bilginiz olduğunu varsayarak yazıyorum. A sütunundaki verilerinizin olduğu alanı seçin ve üstteki kodu çalıştırın. Yazılı her değerin önüne "ED- " değerini getirecektir. Siz ne yazmak istiyorsanız, çift tırnak içinde yazılı olan ED- kısmını değiştirirsiniz. Aynı işlemi formül ile yapmak isterseniz;
  • B1 hücresine aşağıdaki formülü kopyalayın.
  • ="ED- "&A1
  • A sütunundaki son dolu hücrenin sayısına kadar B sütununda formülü çoğaltın.
  • B sütununda yeni oluşan değerleri kopyalayın.
  • A sütununa Özel Yapıştır, Değer olarak yapıştırın.
Umarım yazdıklarım işinizi görür.
 
Çözüm
Hızlı cevap için teşekkür ederim. Makro bilgim çok fazla olmadığı için formül yöntemi ile yapmayı deneyeceğim.

İyi çalışmalar
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Benzer Konular Popüler İçerikler Daha Fazlası
Geri
Üst