Sayıların içinde kalmış metni başka hücreye yazdırmak

[mehmetuca]

Merhaba arkadaşlar. Bir hücredeki verinin içinde hem sayı hem de metin var. Ben bu hücre içindeki metinleri ve sayıları ayrı ayrı hücrelere eklemek istiyorum. Yardımcı olursanız sevinirim. Örneğin A1 hücresinde bulunan 345876MALATYA54398 verinin içindeki metni B1 hücresine, metnin önündeki ve arkasındaki sayıları da birleştirip C1 hücresine aktarmak istiyorum. Ama dikkat etmemiz gereken konu şudur ki verinin içinde bulunan metnin önündeki ve arkasındaki rakamların sayısı ile metnin karakter sayısı değişken olacağı düşünülerek bir formül geliştirilmelidir. Yani verimiz 87ANKARA43254 şeklinde değişken olabilir. Şimdiden teşekkür ederim.

 

[Ömer]

Merhaba,

Linki inceleyin.

http://www.excel.web.tr/f48/hucre-icerisindeki-numerik-olmayan-deoerleri-almak-t6800.html

.

 

[Ömer BARAN]

Merhaba.

Verinin A1 hücresinde olduğu varsayılırsa;
-- B1 hücresine METİN için

=[COLOR="Red"]YERİNEKOY[/COLOR]([COLOR="Red"]YERİNEKOY[/COLOR]([COLOR="Red"]YERİNEKOY[/COLOR]([COLOR="Red"]YERİNEKOY[/COLOR]([COLOR="Red"]YERİNEKOY[/COLOR]([COLOR="Red"]YERİNEKOY[/COLOR]([COLOR="Red"]YERİNEKOY[/COLOR]([COLOR="Red"]YERİNEKOY[/COLOR]([COLOR="Red"]YERİNEKOY[/COLOR]([COLOR="Red"]YERİNEKOY[/COLOR]([B][COLOR="blue"]A1[/COLOR][/B];"0";"");"1";"");"2";"");"3";"");"4";"");"5";"");"6";"");"7";"");"8";"");"9";"")

-- C1 hücresine SAYI için

=[COLOR="Red"]YERİNEKOY[/COLOR](A1;B1;"")

 

[Asri]

Alternatif;

Aşağıdaki kodu deneyiniz. Bilgiler A kolonunda var sayılmıştır.

12345MALATYA6789 MALATYA 123456789
345MALATYA6789 MALATYA 3456789

Sub ayir()
   sonsatir = Cells(Rows.Count, "A").End(3).Row
   For i = 1 To sonsatir
     veri = Cells(i, "A").Value
     sol = ""
     orta = ""
     sag = ""
     soltamam = False
     ortatamam = False
     For j = 1 To Len(veri)
       h = Mid(veri, j, 1)
       If h = "0" Or Val(h) > 0 And soltamam = False Then
          sol = sol & h
       Else
          soltamam = True
          If h <> "0" And Val(h) = 0 And ortatamam = False Then
             orta = orta & h
          Else
             ortatamam=true
              sag = sag + h
          End If
       End If
     Next j
     Cells(i, "B").Value = orta
     Cells(i, "C").Value = sol & sag
    Next i
End Sub

 

[mehmetuca]

Çok Teşekkür ederim.