Telefon Numaralarının Önüne Sıfır Ekleyin

0
231

Bu günkü blog yazımda yine Excel ile çok faydalı, özellikle Excel Visual Basic kodları ile alakalı ip uçları vereceğim. Bir ay evvel bir arkadaşım Elindeki Excel tablosunda telefon numaralarının olduğunu ve bunların başında sıfır olmadığını ve numaralarının başına tek tek sıfır eklemeden tek seferde sıfır eklenir mi eklenirse nasıl olur diye sormuştu. Evet eklenir cevabı yazının devamından okuyup öğrenebilirsiniz.

Önünde Sıfır olamayan Telefon Numaralarının Önüne Sıfır Tek Seferde Ekleme

Buradan Telefon Numara Önüne Sıfır Ekle, Excel çalışma sayfasını indirin. Excel’i açınca, Numaralarının Önüne Sıfır Ekle butona tıklayın. Bu Excel tablosunda C sütununda beş ile başlayan telefon numaraları bulunmaktadır. C sütunundaki tüm telefon numaralarının önüne sıfır eklenir. Ayrıca Telefon Numaralarının Önüne Sıfır eklemek için kod yere formül kullanmak istiyorsanız C sütuna, =”0″&C2 yazmanız yeterli olacaktır.

Önünde Sıfır olamayan Telefon Numaralarının Önüne Sıfır Tek Seferde Ekleme Makro Kodu

Sub Telefon_No()

For x = 2 To Range(“C” & Rows.Count).End(xlUp).Row

Cells(x, “C”).NumberFormat = “@”

if left(Cells(x, “C”), 1) <> “0” Then Cells(x, “C”) = “0” & Cells(x, “C”)

Next x

End Sub

Önünde Sıfır olamayan Telefon Numaralarının Önüne Sıfır Tek Seferde Ekleme Excel çalışma sayfası umarım fayda sağlar.

CEVAP VER

Please enter your comment!
Please enter your name here