• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

hücre içerisindeki metni bölme

  • Konbuyu başlatan Konbuyu başlatan hakin
  • Başlangıç tarihi Başlangıç tarihi
H

hakin

Katılım
14 Ocak 2008
Mesajlar
87
Excel Vers. ve Dili
2000
A SUTUNUNDAKİ HÜCRENİN İÇERİSİNDE YAZI METNİ MEVCUT. ANCAK METİN İÇERİSİNDE ABC- STANDART VE SONRA 10 RAKAM STANDAR OLARAK GELMEKMEDİR. YAPMAK İSTEDİĞİM HÜCRENİN İÇERİSİNDEN ABC-VE 10 RAKAMI AYIRMAK İSTİYORUM.
örnek ektedir. ilgnize teşekkürler
 

Ekli dosyalar

A1 hücresindeki metin için.:cool:

=--PARÇAAL(A1;MBUL("ABC-";A1)+4;10)
 
ancak hücrenin içerisindekilerinin hepsini ayrı ayrı sutunlara çıkarmak istiyorum
ABC-5239879873
ABC-5822247879
ABC-9988774455 gibi sutunlara yazmak istiyorum.
 
Selam;

Dizi Formüldür
CTRL+SHİFT+ENTER

Herhangi bir hücreye aşağıdaki formülü yaz ve aşağıya doğru çekerek çoğalt

Kod: 
=--PARÇAAL($A$1;KÜÇÜK(EĞER(PARÇAAL($A$1;SATIR($1:$65536);3)="ABC";SATIR($1:$65536));SATIR(A1))+4;10)

Saygılar;
 
Selam;

Önceki formül biraz ağır çalışacaktır

İkinici bir yol
mesela A9 hücresine aşağıdaki formülü yazınız

Kod: 
=--PARÇAAL($A$1;MBUL("ABC-";$A$1;1)+4;10)&YİNELE(" ";MBUL("ABC-";$A$1;1))

A10 hücresine aşağıdaki formülü giriniz ve girdikten sonra aşığıya doğru çoğaltınız..

Kod: 
=--PARÇAAL($A$1;MBUL("ABC-";$A$1;1+(UZUNLUK(PARÇAAL(B9;11;65536))))+4;10)&YİNELE(" ";MBUL("ABC-";$A$1;1+(UZUNLUK(PARÇAAL(B9;11;65536))))+4)

Saygılar;
 
teşekkürler formülü uyguladım ve faydalı oldu,
aynı formülde rakamdan sonra gelen örneğin adres var bunu nasıl yandaki sutuna yazdırabilirim..
ABC-5239879873 Yunus emre sk no 3 ankara
ABC-5822247879 bulvar cad sk no 8 trabzon
ABC-9988774455 mehmetçik sk no 111 mersin gibi
 
Selam;

aşağıdaki formülle kısmen dediğiniz olur
formülün sonundaki 40 sayısını ayarlamak gerekir

Dizi Formül
Kod: 
=PARÇAAL($A$1;KÜÇÜK(EĞER(PARÇAAL($A$1;SATIR(DOLAYLI("1:"&UZUNLUK($A$1)));3)="ABC";SATIR(DOLAYLI("1:"&UZUNLUK($A$1))));SATIR(A1));40)

?
Saygılar;
 
Aynı soruya benzer bir sorum da benim var.
Ekteki dosyada firbirinden faklı cumleler | sembolu ile ayrılmış durumda.
Bu cümleleri hücrelere nasıl bolebilirim?
Şimdiden yardımlarınız için teşekkür ederim.
 

Ekli dosyalar

Selamlar,

İlk olarak B1 hücresinin içeriğini silin.
Daha sonra A sütununu seçin.
VERİ-METNİ SÜTUNLARA DÖNÜŞTÜR menüsünü açın.
"Sınırlandırılmış" seçeneğini seçin ve ileri tuşuna tıklayın.
Ayırıcılar bölümünden DİĞER seçeneğini seçin.
Hemen yanındaki kutucuğa klavyenizin sağ tarafındaki ALTGr tuşu ile beraber yine klavyenizin sol tarafındaki SHIFT ile Z tuşunun arasındaki tuşa basarak "|" işaretini yazın.
İLERİ tuşuna tıklayın. Ve son olarak SON tuşuna tıklayarak işlemi tamamlayın.
 
Merhabalar,

benimde bu konuya benzer bir ricam var ama. yapmak istediğim,

Bir Hücre içerisinde yazılı firma ismi ve yaptığı işi anlatan yazı var.
(Firmaismi-Yaptığıiş) bu şekilde .. benim istediğim "-" den sonrasını başka bir hücreye ayırmak.
sizin yukarıdaki formülleri denemedim fakat yapamadım. firma isimleri bazıları uzun bazıları kısa, keza işlerde aynı o şekilde.

Yardımcı olabilirseniz çok sevinirim
 
Merhaba,

Veriniz A1 hücresinde olduğunu varsayarsak,

=SAĞDAN(A1;UZUNLUK(A1)-BUL("-";A1))

formülü ile istediğiniz veriyi alabilirsiniz.
 
Ömer' Alıntı:
Merhaba,

Veriniz A1 hücresinde olduğunu varsayarsak,

=SAĞDAN(A1;UZUNLUK(A1)-BUL("-";A1))

formülü ile istediğiniz veriyi alabilirsiniz.
Genişletmek için tıkla ...

Ömer Üstad benim de size bir sorum olacaktı yardımcı olursanız sevinirim. Dosya ekledim. İyi çalışmalar
 

Ekli dosyalar

Bu konuda üstadlardan yardımcı olabilecek kimse yok mu acaba ?
 
Merhaba,

Bu şekilde deneyin.
Detaylı deneme yapmadım.

C2:

Kod: 
=SOLDAN(A2;MBUL("<IS_HAZIRLIK>";A2)-1)&"<IS_HAZIRLIK>"

C3:

Kod: 
=PARÇAAL(YERİNEKOY(A3;C2;"");MBUL("<IS_HAZIRLIK>";YERİNEKOY(A3;C2;""))+UZUNLUK("<IS_HAZIRLIK>")+1;MBUL("<IS_OPERASYON>";YERİNEKOY(A3;C2;""))-MBUL("<IS_HAZIRLIK>";YERİNEKOY(A3;C2;""))+1)

C4:

Kod: 
=PARÇAAL(YERİNEKOY(A4;C3;"");MBUL("<IS_OPERASYON>";YERİNEKOY(A4;C3;""))+UZUNLUK("<IS_OPERASYON>")+2;MBUL("<IS_EVRAK_DAGIT>";YERİNEKOY(A3;C3;""))-MBUL("<IS_OPERASYON>";YERİNEKOY(A3;C3;""))-1)

.
 
Merhaba

Deneyin

msndösna- öms,csc =Kelimeparçala(A1;"-";2)



Function Kelimeparçala(Kelime As String, simge As String, kaçıncı As Integer) As Variant
Kelimeparçala = Split(Kelime, simge)(kaçıncı - 1)
End Function
 
Ömer bey, bir önceki hücreden bağımsız almak istesek formül nasıl olur? Yani mesela sadece '<IS_OPERASYON>' un 1.sini almak istesek?
Çünkü bazı dosyaları bağımsız almam gerekiyor.
Yardımlarınız için teşekkürler.
 
Üstad bir de şöyle bir durum var bazı hücrelerde mesela '<IS_OPERASYON>' yok '<IS_HAZIRLIK>' ile '<IS_EVRAK_DAGIT>' var ve sadece yani değişken olabiliyor dosyalar, dolayısıyla hangi veriyi istiyorsak diğer bölümlerden bağımsız çalıştırabileceğim bir formül olmalı.
Teşekkürler...
 
excelokyanus500' Alıntı:
Deneyin

msndösna- öms,csc =Kelimeparçala(A1;"-";2)



Function Kelimeparçala(Kelime As String, simge As String, kaçıncı As Integer) As Variant
Kelimeparçala = Split(Kelime, simge)(kaçıncı - 1)
End Function
Genişletmek için tıkla ...

Üstad deniyorum ama hata veriyor, "-öms,csc" de hat veriyor , "msndösna" sa hata veriyor?
Emeğin için teşekkürler, nasıl çözeriz o sorunu?
 
Ekteki dosyayı inceleyiniz.

Kullanıcı tanımlı fonksiyon kullanılmıştır.

Kullanılan fonksiyon;

Kod: 
Function KPARÇAAL(Veri As Range, Ayıraç As String, Kriter As String, Kaçıncı As Integer) As Variant
    Dim Data As Variant, Say As Long

    Data = Split(Veri.Text, Ayıraç)
    
    For X = 0 To UBound(Data)
        If Right(Data(X), Len(Kriter)) = Kriter Then
            Say = Say + 1
            If Say = Kaçıncı Then
                KPARÇAAL = Data(X) & Ayıraç
                Exit For
            End If
        End If
    Next
End Function
 

Ekli dosyalar

Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst