alan kodu ekle

[Kemal Demir]

ilgili telefon kolonunda alan kodu ekelmek istiyorum size ilkgili dosyay yolluyorum bakabilirsenıuz sevınrım

 

[Kemal Demir]

Musaıt zamanınızda yardımınız bekliyorum .

 

[danersin]

if'li satırları aynı şekilde çoğaltabilirsiniz. Yada tüm alan kodlarını başka bir sayfada liste halinde yazıp ordanda arattırılabilir.
Burda basit bir örnek. Daha önceki telefon numarası 8 karakterden uzun ise kod eklemeden sonrakine geçiyor.


[vb:1:4967dd8296]
Sub ALANKODUEKLE()
For i = 2 To Cells(65536, 4).End(xlUp).Row
If Len(Cells(i, 4)) > 8 Then GoTo 10
If Trim(Cells(i, 3)) = "asya" Then Cells(i, 4) = "216" & Cells(i, 4)
If Trim(Cells(i, 3)) = "avrupa" Then Cells(i, 4) = "212" & Cells(i, 4)
10
Next i
End Sub
[/vb:1:4967dd8296]