parça al

[oydemir]

ekteki dosyamda a sütundaki b sütundaki olmasını istiyorum

	arkadaşlar isetediğim a sutundaki verileri bu şekilde almak
ÇENGER MAH. MERKEZ_50 KÜME EVLERİ NO: 4 İÇ KAPI NO: 1 MANAVGAT / ANTALYA	MANAVGAT	ANTALYA
DEDEMLİ MAH. 104425. SK. NO: 15 HADİM / KONYA	HADİM	KONYA
DEDEMLİ MAH. 104425. SK. NO: 15 adaklı/ kahramanmaraş	adaklı	kahramanmaraş
IŞIKLAR MAH. DURANBEY SK. PINAR BLOK NO: 26 İÇ KAPI NO: 4 SELÇUKLU / KONYA	SELÇUKLU	KONYA
189/6 189/7 194/24 197/100 198/2 166/7 166/9 168/4 168/6 331/17	189/7	194/24	197/100	198/2	166/7	166/9	168/4	168/6	331/17

 

[Merhum İdris SERDAR]

.

Ekli dosya yok.

.

 

[oydemir]

ekledim

 

[Mdemir63]

Selamlar
Kodlar Sayın @askm a ait olup dosyanıza uyarlamaya çalıştım.

 

[oydemir]

elinize sağlık teşekkür ederim. İl ilçe sorun kalmamış ama a6 satırındaki .../... .../... nasıl ayırt edebiliriz

 

[YUSUF44]

elinize sağlık teşekkür ederim. İl ilçe sorun kalmamış ama a6 satırındaki .../... .../... nasıl ayırt edebiliriz

Onun için Metni Sütunlara Dönüştürme özelliğini kullanabilirsiniz.

 

[Mdemir63]

Selamlar
Ayrıca dosyanızdaki son satırdaki yazılı olan hücreden nerelerde ve ne kadar olduğu da önemli

 

[oydemir]

Metni Sütunlara Dönüştürme özelliğini konusunda bir bilgim yok verirseniz iyi olur

 

[Mdemir63]

Selamlar
Eğer ki şu anki dosyanızda olduğu gibi sadece son satırda ise
inceleyiniz.

 

[Haluk]

"RegEx" kullanarak hazırlanan Kullanıcı Tanımlı fonksiyonla alternatif bir çözüm ektedir...

.

 

[oydemir]

eline sağlık işimi gördünüz.

 

[Mdemir63]

eline sağlık işimi gördünüz.

Rica ederim.
İyi çalışmalar

 

[oydemir]

sayın Mdemir63
sizden aldığım kodu b kolonu için uyarlama çalışıyorum ama bir türlü beceremedim yardım ederseniz sevinirim
ekteki dosyada hata veriyor

Option Explicit

Sub DoluÇerçeve1_Tıklat()
Dim i As Integer
Dim say
Dim ilce As String, il As String
Application.ScreenUpdating = False
For i = 2 To Range("b" & Rows.Count).End(3).Row
say = Split(Cells(i, 2), " ")

il = Split(Cells(i, 2), " ")(UBound(say)) * burada hata veriyor ama işlemi yapıyor*
ilce = Split(Cells(i, 2), " ")(UBound(say) - 2)
Cells(i, 3) = ilce
Cells(i, 4) = il
Next i
Application.ScreenUpdating = True
MsgBox "İşlem tamam...", vbInformation, "BİLGİ MESAJI"
End Sub

 

[Mdemir63]

Selamlar
inceleyiniz

 

[oydemir]

teşekkürler
elinize sağlık

 

[Mdemir63]

Rica ederim.
İyi çalışmalar