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
Bu yazı bugün ise 0
toplamda 521 kez okunmuştur.
