Alan koduna göre ilçe isminin yanına Şehir ismininde yazılması

[otugen]

Merhabalar

Ekte gönderdiğim listede ilçe sütünu ve alan kodu bulunmaktadır.
Alan koduna göre ilçe isminin başına şehir isminin yazılması için yardımcı olabilirmisiniz.

İyi çalışmalar.

otugen

 

[Mahmut Kök]

aşağıdaki kod ile il ve ilçe adlarını F sütununa yazdırabilirsiniz.

Sub ilyaz()
For e = 2 To [e65536].End(3).Row
sat = Range("b2:b" & [b65536].End(3).Row).Find(Cells(e, "e")).Row
Cells(e, "f") = Cells(sat, "a") & "-" & Cells(e, "d")
Next
End Sub

 

[Ayhan Ercan]

Merhaba

Alternatif olarak ek dosyayı inceleyiniz...

Dim i As Integer, j As Integer
For i = 2 To 83
    For j = 2 To [F65536].End(3).Row
    If Cells(i, 2) = Cells(j, 6) And Cells(j, 5) = "" Then
    Cells(j, 5) = Cells(i, 2).Offset(0, -1)
    End If
    Next j
Next

 

[otugen]

teşekkürler

teşekkürler

 

[otugen]

Ek olarak da aynı anda sadece il isminide yan sütuna yazmak

Ek olarak da aynı anda sadece il isminide yan sütuna yazmak istersek nasıl bir şey yapabiliriz.

 

[Ayhan Ercan]

3 nolu mesajımda zaten sadece il ismini bir yan sütuna yazmasını sağlamıştım. Bu işinizi görmedi mi?