Formül sorunu hk.

[Garuramon]

Selam Arkadaşlar,

EK' li olan dosyada adres kısmında yazılı olan ilçe bilgisini yan hücreye formül yada kod ile taşıyabilir miyiz.2 tane örnek yaptım.

 

[ridvanucok]

Merhaba,

Kırmızı ile belirtilen 37 işlem dışındaki işlemler tespit edilmiş olup, kontrollerinizi rica ederim.

 

[Asri]

Alternatif, Makrolu çözüm

[COLOR=red]'İlçeyi alır yan kolona yazar. Adresten silmez.[/COLOR]
Sub adresten_ilce_al()
   sonsatir = Cells(Rows.Count, "E").End(3).Row
   For i = 2 To sonsatir
     veri = Replace(Cells(i, "E").Value, "/TÜRKİYE", "")
     'Cells(i, "E").Value = Mid(veri, 1, InStrRev(veri, "/") - 1) & "/TÜRKİYE"
     Cells(i, "F").Value = Mid(veri, InStrRev(veri, "/") + 1, Len(veri))
   Next i
End Sub

[COLOR=Red]'İlçeyi alır yan kolona yazar. Adresten siler[/COLOR]
Sub adresten_ilce_sil()
   sonsatir = Cells(Rows.Count, "E").End(3).Row
   For i = 2 To sonsatir
     veri = Replace(Cells(i, "E").Value, "/TÜRKİYE", "")
     Cells(i, "E").Value = Mid(veri, 1, InStrRev(veri, "/") - 1) & "/TÜRKİYE"
     Cells(i, "F").Value = Mid(veri, InStrRev(veri, "/") + 1, Len(veri))
   Next i
End Sub

 

[Merhum İdris SERDAR]

Selam Arkadaşlar,

EK' li olan dosyada adres kısmında yazılı olan ilçe bilgisini yan hücreye formül yada kod ile taşıyabilir miyiz.2 tane örnek yaptım.

.

Dosyanız ekte.

Uygulanan formül:

=SUBSTITUTE(SUBSTITUTE(TRIM(RIGHT(SUBSTITUTE(E2;" ";REPT(" ";200));200));"İSTANBUL/";" ");"/TÜRKİYE";" ")

.

 

[Haluk]

Ancak; dosyalardaki veriler gerçekse bunların acilen sistemden kaldırılması gerekir.

.

 

[Garuramon]

Merhaba,

Kırmızı ile belirtilen 37 işlem dışındaki işlemler tespit edilmiş olup, kontrollerinizi rica ederim.

Rıdvan Bey teşekkür ederim.

 

[ridvanucok]

Rıdvan Bey teşekkür ederim.

Rica ederim, iyi çalışmalar.

 

[Haluk]

Rıdvan Bey;

Eklediğiniz dosyayı sistem kaldırır mısınız? Dosyadakiler sanırım gerçek veriler .....

İdris Bey de herhalde kaldıracaktır.
.

 

[Garuramon]

Alternatif, Makrolu çözüm

[COLOR=red]'İlçeyi alır yan kolona yazar. Adresten silmez.[/COLOR]
Sub adresten_ilce_al()
   sonsatir = Cells(Rows.Count, "E").End(3).Row
   For i = 2 To sonsatir
     veri = Replace(Cells(i, "E").Value, "/TÜRKİYE", "")
     'Cells(i, "E").Value = Mid(veri, 1, InStrRev(veri, "/") - 1) & "/TÜRKİYE"
     Cells(i, "F").Value = Mid(veri, InStrRev(veri, "/") + 1, Len(veri))
   Next i
End Sub

[COLOR=Red]'İlçeyi alır yan kolona yazar. Adresten siler[/COLOR]
Sub adresten_ilce_sil()
   sonsatir = Cells(Rows.Count, "E").End(3).Row
   For i = 2 To sonsatir
     veri = Replace(Cells(i, "E").Value, "/TÜRKİYE", "")
     Cells(i, "E").Value = Mid(veri, 1, InStrRev(veri, "/") - 1) & "/TÜRKİYE"
     Cells(i, "F").Value = Mid(veri, InStrRev(veri, "/") + 1, Len(veri))
   Next i
End Sub

Asri Bey,

Çözüm öneriniz tam düşündüğüm gibi teşekkür ederim.

 

[Garuramon]

Merhaba,

Kırmızı ile belirtilen 37 işlem dışındaki işlemler tespit edilmiş olup, kontrollerinizi rica ederim.

Rıdvan Bey,

dosyayı sistemden kaldırır mısınız.

 

[Garuramon]

.

Dosyanız ekte.

Uygulanan formül:

=SUBSTITUTE(SUBSTITUTE(TRIM(RIGHT(SUBSTITUTE(E2;" ";REPT(" ";200));200));"İSTANBUL/";" ");"/TÜRKİYE";" ")

.

İdris Bey,

Teşekkürler dosyayı sistemden kaldırır mısınız.

 

[Merhum İdris SERDAR]

.

Dosyalar kaldırılmıştır.

.

 

[ridvanucok]

Rıdvan Bey,

dosyayı sistemden kaldırır mısınız.

Merhaba,

Tarafıma iletilen bilgiler doğrultusunda destek için eklenen excel dökümanı kaldırılmıştır. Bilginize,

 

[Garuramon]

Konunun kilitlenmesini rica ediyorum.