Jan.01

Metine Dönüştür Makrosu

Excelde çalışırken bazen başka bir kaynaktan Excele veri yapıştırdığınızda metinsel alanların metin olarak gelmediğini yada sayısal alanların sayı olarak tanımlanmadığını görürüz. Hatta bazen Tarih alanlarının metin alanı olarak tanıtıldıgını farkederiz. Böyle durumlarda Hücre Biçimledir ile Hücre tipini olması gereken tipe getiririz. Fakat Excel bunu algılamaz ve illaki o hücrelerin içine girip Enter basmamızı ister. Heleki uzun bir tablonuz varsa bu bazen ölüm olur. İşte aşağıdaki kod sizi bu dertten kurtaracak Makro yu içeriyor.

Bunu Excelde makro kaydederek ekleyin ve o sütunun en başına gelin, tanımladığınız kısayolu kullanın. Makro bir sonraki boş satıra kadar önüne gelen tüm hücrelere girip Enter basıcaktır.

Sub MetneCevir()
Dim bitti As Boolean
bitti = False
    MsgBox "Bir Sonraki Boş Satıra Kadar Hücreler Metine Çevirilecek"
    Do While bitti = False
    DoEvents
    If ActiveCell.FormulaR1C1 = "" Then
    bitti = True
    Exit Sub
    Else
    bitti = False
    End If
    ActiveCell.FormulaR1C1 = ActiveCell.FormulaR1C1
    SendKeys "{DOWN}"
    Loop
End Sub

Kolay Gelsin.

Excel
Share this Story:
  • facebook
  • twitter
  • gplus

About Muzaffer Ali AKYIL

Merhabalar, Adım Muzaffer Akyıl, Bilgi teknolojileri ile içli dışlı, teknolojiyi yakından takip eden, web ve masaüstü programlama ile uğraşıp, saatlerce kastığı şeyleri hiç bir karşılık beklemeden paylaşmayı amaç eden biriyim.


Yorumlar(1)

  1. pelin
    3304 days önce

    valla hiç açamadım onun için bilmiyorum

Bir yorum bırak

 

Comment