Excel İlk Karaktere Göre Bul ve Değiştir

13-08-2023, 10:19:36

Merhaba,

bir sütunda telefon numaralarım var, bazıları 5 ile bazıları 0 ile bazıları ise 90 ile başlıyor. Hepsini 905 şeklinde aynı formata çevirmek istiyorum fakat gerekli işlemi veya formülü bulamadım. Excel 2007 - Türkçe kullandığımı belirteyim, bilen birisi yardımcı olursa sevinirim.

Örnek:
Şu anki durum;
5301234567
05301234568
905301234569

Olması gereken durum;
905301234567
905301234568
905301234569

* Eğer 5 ile başlıyorsa başına 90 koy / Eğer 5 ile başlıyorsa 5' i 905 ile değiştir vb.

13-08-2023, 10:44:34

#2

~~sagirr~~

Üyeliği durduruldu

excel bilgim yok ama o verileri bir programa çekip yine düzenlenmiş halde excel olarak çıktı alabileceğin şekilde bir program yazabiliriz. eğer sürekli ihtiyaç oluyor ise .
kolay gelsin.

13-08-2023, 11:13:16

#3

oguzhanx

sagirr adlı üyeden alıntı: mesajı görüntüle

excel bilgim yok ama o verileri bir programa çekip yine düzenlenmiş halde excel olarak çıktı alabileceğin şekilde bir program yazabiliriz. eğer sürekli ihtiyaç oluyor ise .
kolay gelsin.

Sürekli ihtiyaç olmuyor, olsa dahi Excel' de kolay bir formülü vardır, bilen birisi lazım sadece.

18-08-2023, 02:45:26

#4

ysnozkn

Merhaba,
Verdiğiniz örneğe göre bir formül oluşturdum, aşağıdaki formülü deneyebilir misiniz:

=eğer(soldan(a1;1)="5";birleştir("90";a1);eğer(soldan(a1;1)="0";birleştir("9";a1);a1))

29-08-2023, 14:31:29

#5

fatiheryildiz

Gönderirseniz size yapar gönderirim üstadım.

Ancak kendiniz yapmak isterseniz öncelikle verilerin bulunduğu (a1 HÜCRESİNDE OLDUĞUNU VARSAYIYORUM) hücrenin bir sağındaki hücreye =UZUNLUK(a1) yazdığınızda bu kod a1 hücresinin kaç karakterli olduğunu gösterir.. Siz buradan yola çıkarak düzeltmelerinizi yapabilirsiniz şöyle ki:

uzunluk formülü sonucu veri 14 çıkarsa 90 ile başlıyordur herhangi bir işlem yapmanıza gerek kalmaz..
uzunluk formülü 12 çıkıyorsa 505 gibi başlıyordur.. Bu durumda c1 hücresine =eğer(parçaal(a1;1,1)=5;90&A1)) şeklinde bir kod ile düzeltme yapabilirsiniz..
Şayet uzunluk formülü sonucu 13 çıkıyorsa muhtemelen 0505 gibi başlıyordur bu durumda da c1 hücresine =eğer(parçaal(a1;1,1)=0;9&A1)) şeklinde bir kod ile düzeltme yapabilirsiniz..

Kodları excelde denemeden ezbere yazdım. Arada virgül hatası olabilir. Hata olursa inceleyebilirim..

13-09-2023, 11:29:51

#6

kodlattir

Merhaba,

sorun devam ediyor mu? eğer devam ediyorsa aşağıdaki kodu kullanabilirsin.

SUTUN,SATIR VE BITIS olanları kendine göre düzenle ve kodu çalıştır.
Not çalıştırmadan önce dosyanın yedeğini almayı unutma

Sub NumaralariDuzenle()
    
    'Veriler Hangi Sütunda?
    SUTUN = "A"
    
    'VERİLER KAÇINCI SATIRDAN BAŞLIYOR
    Satir = 1
    
    'veriler kaçıncı satırda bitiyor?
    BITIS = 3
    
    
    For i = Satir To BITIS
        If Len(Range(SUTUN & i)) = 10 Then
            Range(SUTUN & i) = "90" & Range(SUTUN & i)
        ElseIf Len(Range(SUTUN & i)) = 11 Then
            Range(SUTUN & i) = "9" & Range(SUTUN & i)
        End If
    Next
    
End Sub