Koşula Göre Alan Kodu Ekleme

[steppe]

A sütununda il-ilçeler ,B sütununda telefon numaraları var.

A sütunundaki hücre İstanbul ile başlıyorsa B sütunundaki telefon numarasının başına 212 eklemek,

A sütunundaki hücre Ankara ile başlıyorsa B sütunundaki telefon numarasının başına 312 eklemek,

A sütunundaki hücre İzmir ile başlıyorsa B sütunundaki telefon numarasının başına 232 eklemek.

Yardımlarınız için şimdiden teşekkürler.

 

[Testereci]

Talep etmediğiniz için İstanbul Anadolu-Rumeli yakası ayrımını eklemedim.

 

[steppe]

Testerici Kardeş,
İlgin için çok teşekkür ederim.Formülle değilde makro ile çözüm üretebilir miyiz?

 

[steppe]

Arkadaşlar,
İhtiyacı olanlar yararlansın diye uzun araştırmalar sonucu çeşitli kodların yardımıyla oluşturduğum çalışan kodu ekliyorum.
Yalnız bir sorunum var,İSTANBUL/ŞİŞLİ ve ANKARA/ÇANKAYA uzun uzun yazmak istemiyorum.,İSTANBUL yazınca 212 , ANKARA yazınca 312'yi eklesin.

Sub kosula_gore_alan_kodu_ekle()

Dim SonSat As Long, i As Long

SonSat = Range("A" & Rows.Count).End(xlUp).Row
For i = 1 To SonSat
If UCase(Range("A" & i)) = "İSTANBUL/ŞİŞLİ" Then
Cells(i, 2).Value = "212" & Cells(i, 2).Value
End If
If UCase(Range("A" & i)) = "ANKARA/ÇANKAYA" Then
Cells(i, 2).Value = "312" & Cells(i, 2).Value
End If
Next
End Sub

 

[suleyman242]

Yalnız bir sorunum var,İSTANBUL/ŞİŞLİ ve ANKARA/ÇANKAYA uzun uzun yazmak istemiyorum.,İSTANBUL yazınca 212 , ANKARA yazınca 312'yi eklesin.

Dosyayı ekledim İzmir'in kodu yanılmıyorsam 232 idi.

 

[steppe]

Suleyman242 Kardeş,
Yardımlarınız için çok teşekkür ederim.

 

[suleyman242]

Suleyman242 Kardeş,
Yardımlarınız için çok teşekkür ederim.

Biraz daha gelişmiş şeklini ekliyorum tüm illeri kapsıyor. Sayfa2 de tüm iller ve telefon kodları var kodu o sayfadan alıyor
sadece İstanbul Avrupa Ve İstanbul Anadolu yakalarını düzenlemen gerekir.