aynı hücredeki sayı ve metni ayırma

Katılım
27 Ağustos 2007
Mesajlar
20
Excel Vers. ve Dili
2007 türkçe
çalıştığım firma ihracat işi yaptı bunun için faturaların listesini yapıyoruz. programdan verileri excele aktarabiliyorum ama faturanın numarası ve ünvan bilgisini ayıramadığımdan excele aktarırkende aynı satırdaki sayı ve metin beraberce aynı hücreye aktarılıyor.
bunları ayırarak sayıları bir sütuna metinleri bir sutuna yazabilirmiyiz.
yani aynı hücrede yer alan verilerde sayıları veya metinleri yalnız bırakabilirmiyiz.
daha net olması açısından bir örneği ekte yolluyorum ilgilenirseniz sevinirim.
 
Katılım
11 Mart 2006
Mesajlar
597
Excel Vers. ve Dili
ms office 2010 ev
ms office 2007 iş
Altın Üyelik Bitiş Tarihi
08.01.2019
sn periklet ekteki dosyay bakınız. sanırım böyle bi şey olacak
 
Katılım
27 Ağustos 2007
Mesajlar
20
Excel Vers. ve Dili
2007 türkçe
Teşekkürler yücel bey cok yardımcı olsun sağolasın...
 
Katılım
10 Kasım 2007
Mesajlar
16
Excel Vers. ve Dili
ingilizce
Ustalar aynısının metin ayırması mümkünmü yardımcı olursanız sevinirim
 
Katılım
11 Mart 2006
Mesajlar
597
Excel Vers. ve Dili
ms office 2010 ev
ms office 2007 iş
Altın Üyelik Bitiş Tarihi
08.01.2019
sn bedbaht aynı mantıkla metinde ayırabilirsiniz. excelle bi çok şeyi yapmanız mümkün. dosyanızı eklerseniz emin olun size yardımcı olunacaktır.
 
Katılım
10 Kasım 2007
Mesajlar
16
Excel Vers. ve Dili
ingilizce
Yücel bey,
Yukarıdaki ekli dosya benim işimi görüyor.Fakat macroyu sadece metni ayıracak sekilde düzenleyemedim. Yardımlarınız için şimdiden teşşekkür ederim.
 

uzmanamele

Uzman
Uzman
Katılım
26 Eylül 2007
Mesajlar
9,417
Excel Vers. ve Dili
excel 2010
merhaba
ek dosya işinizi görür mü?


kodlar syn Ali'nin dir.
 

S.Yiğit

Destek Ekibi
Destek Ekibi
Katılım
1 Temmuz 2008
Mesajlar
1,748
Excel Vers. ve Dili
2019 TR
sn periklet ekteki dosyay bakınız. sanırım böyle bi şey olacak

Selamlar..

Sy yücel baygül,

Ekteki çalışmayı inceledim, güzel olmuş teşekkürler fakat bazı hücrelerde harfleri eksik almış. Örnek E18, E16, E25 satırlarında. Neden olabilir acaba? formülde değişiklik yapılması gerekiyor sanırım.. Yardımcı olabilecek birisi varmı :)
 

Ömer

Moderatör
Yönetici
Katılım
18 Ağustos 2007
Mesajlar
22,196
Excel Vers. ve Dili
Microsoft 365 Tr
Ofis 2016 Tr
Merhaba,

Yücel bey'in yazdığı formülleri aşağıdaki gibi değiştirerek denermisiniz..

D6 için,

Kod:
=SOLDAN(B6;BUL(" ";B6;1)[COLOR="Red"]-1[/COLOR])
E6 için,

Kod:
=PARÇAAL(B6;BUL(" ";B6;1)[COLOR="red"]+1[/COLOR];UZUNLUK(B6)-BUL(" ";B6;1)[COLOR="red"]+1[/COLOR])
 

S.Yiğit

Destek Ekibi
Destek Ekibi
Katılım
1 Temmuz 2008
Mesajlar
1,748
Excel Vers. ve Dili
2019 TR
Sy espiyonajl hocam denedim oldu. Elinize sağlık..

Küçük bir not: Bu konu 12-12-2007 tarihinde açılmış, Konu sahibinden başkası konuyu "Çözüldü" olarak işaretleyemediği için Uzman hocalarımız işaretleyebilmeli(Benim fikrim)
 
Katılım
9 Nisan 2008
Mesajlar
19
Excel Vers. ve Dili
2003 - TÜRKÇE
çok işime yarayacak bi çalışma

teşekkürler
 
Katılım
7 Eylül 2006
Mesajlar
12
Excel Vers. ve Dili
2003 Türkçe
900 ALİ VELİ SAĞLAM
901 RIZA YANIK
Şeklinde isim listesinde numarasını , adını , soyadını ayrı ayrı sütünlara dökmek istiyorum yardımcı olabilirmisiniz
A sütününda ilk hali varken B de numarası C de adı D de Soyadı yazılsın istiyorum
 

Ömer

Moderatör
Yönetici
Katılım
18 Ağustos 2007
Mesajlar
22,196
Excel Vers. ve Dili
Microsoft 365 Tr
Ofis 2016 Tr
Merhaba,

#9 nolu mesajdaki formülleri kullanabilirsiniz. Yada,

Veri / Metni sütunlara dönüştür seçeneğinden yapabilirsiniz..

.
 
Katılım
4 Ocak 2008
Mesajlar
1
Excel Vers. ve Dili
office xp türkçe
aynı hücre içerinde isim ve teklefon numaraları var bunları ayırmak istiyorum yardımcı olursanız sevinirim
 

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
Buyurun size bir KTF.
Kullancağınız dosyalarda aşağıdaki functionu bir modüle kopyalayınız.
Dosya ektedir.:cool:
Kullanışı:
=tele_cevir(A1)
Kod:
Function tele_cevir(deg As String) As Double
Dim tel As Double, i As Integer, deg2 As String
For i = 1 To Len(deg)
    deg2 = Mid(deg, i, 1)
    If IsNumeric(deg2) Then tel = tel & deg2
Next
tele_cevir = tel
End Function
 

Ekli dosyalar

Katılım
2 Aralık 2009
Mesajlar
1
Excel Vers. ve Dili
Excell 2003
iyi günler.yukarıda çok güzel bir konu açılmış ancak dosyaları indiremediğimiz için yararlı olmuyor.
benim sorunum şu şekilde muhasebe programından excele döküm alıyorum ve aynı hücre içerisine fatura numarası ve unvan yada açıklamaları yan yana aktarıyor.buradaki metin ve rakamları nasıl ayırabilirim.metinleri yalnız bırakıp alfabetik sıralama yapmama gerekiyor.yardım ederseniz çok sevinirim iyi günelr.
 

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
iyi günler.yukarıda çok güzel bir konu açılmış ancak dosyaları indiremediğimiz için yararlı olmuyor.
benim sorunum şu şekilde muhasebe programından excele döküm alıyorum ve aynı hücre içerisine fatura numarası ve unvan yada açıklamaları yan yana aktarıyor.buradaki metin ve rakamları nasıl ayırabilirim.metinleri yalnız bırakıp alfabetik sıralama yapmama gerekiyor.yardım ederseniz çok sevinirim iyi günelr.
İşte benim verdiğim 16ncı mesajdaki ktf'yi kullanın.
Bu konunun cevabı var.:cool:
 

halit3

Uzman
Uzman
Katılım
18 Ocak 2008
Mesajlar
12,761
Excel Vers. ve Dili
2003 excell türkçe
ve
2007 excell türkçe
iyi günler.yukarıda çok güzel bir konu açılmış ancak dosyaları indiremediğimiz için yararlı olmuyor.
benim sorunum şu şekilde muhasebe programından excele döküm alıyorum ve aynı hücre içerisine fatura numarası ve unvan yada açıklamaları yan yana aktarıyor.buradaki metin ve rakamları nasıl ayırabilirim.metinleri yalnız bırakıp alfabetik sıralama yapmama gerekiyor.yardım ederseniz çok sevinirim iyi günelr.
bunları denermisiniz.

Kod:
Function SAYILARIBUL(hucre)
' HÜCRENİN İÇİNDEKİ SAYI DEĞERLERİNİ VERİYOR
Dim i As Integer
For i = 1 To Len(hucre)
Sayi = Mid(hucre, i, 1)
If IsNumeric(Sayi) = True Then
SAYILARIBUL = SAYILARIBUL & Sayi
End If
Next i
End Function

Kod:
Function RAKAMLARIBUL(hucre)
' HÜCRENİN İÇİNDEKİ RAKAM DEĞERLERİNİ VERİYOR
Dim i As Integer
For i = 1 To Len(hucre)
Sayi = Mid(hucre, i, 1)
If IsNumeric(Sayi) <> True Then
RAKAMLARIBUL = RAKAMLARIBUL & Sayi
End If
Next i
End Function
 

Ekli dosyalar

Katılım
7 Ocak 2008
Mesajlar
1
Excel Vers. ve Dili
MicroSoft® Excell 2003 Türkçe
Excell aynı hücredeki metinleri ayırma

Merhaba arkadaşlar,
aynı hüsredeki örneğin |Ali AS| adı ve soyadını ayrı ayrı hücerlerde |Ali |AS| yazabilirmiyiz?
Şimdiden teşekkürler
Acilll
 
Üst