Aynı hücredeki biçimi farklı kelimeyi almak

[idealimsin]

(çözüldü) Aynı hücredeki biçimi farklı kelimeyi almak

A sütununda ki isimleri D sütunundaki ilgili boşluklara nasıl getiririz.ancak isimleri biçiminde göründüğü gibi koyu büyük harfle yazılan şekilde ki gibi kısmı aktarılcak örnek: D sütununda D27 ci hücreye kadar yaptığım örneklerdeki gibi

dosya ekte

http://dosya.co/yj195h4895gj/Kitap1.xlsx.html

 

[ASLAN7410]

Sütun başlıklarını mouse ile seçip koplayarak, istediğiniz başlıkların ilk hücresine tıklayarak yapıştırın, bu şekilde yapıştırdığınızda bozulmadan yapıştırmış olursunuz.

 

[idealimsin]

Sütun başlıklarını mouse ile seçip koplayarak, istediğiniz başlıkların ilk hücresine tıklayarak yapıştırın, bu şekilde yapıştırdığınızda bozulmadan yapıştırmış olursunuz.

bunu formül olarak çekmemiz mümkünmü.ilgili hücreye çektikten sonra text halinde olsada olur.

 

[idealimsin]

yardım etseniz bir zahmet?

 

[idealimsin]

Sütun başlıklarını mouse ile seçip koplayarak, istediğiniz başlıkların ilk hücresine tıklayarak yapıştırın, bu şekilde yapıştırdığınızda bozulmadan yapıştırmış olursunuz.

3- 5 satır için olsa dediğiniz doğru ancak ortalama 700 satıra yakın yapıstırma yapmak zorunda kalıyorum menuel.
normal formulde sağdan soldan kırparak olamıyor.isimlerin farklı uzantıları oluyor.ancak yazının biçiminde net kırpılacak isim belli oluyor.hücredeki bu biçime göre ismi kırpacak formülü arıyorum

 

[idealimsin]

bu mümkünmüdür

 

[ASLAN7410]

Satırları seçip yapıştırmanıza gerek yokki, yukarıda sütun başlıkları A B C D... yazan yerleri mouse ile seçtiğinizde satırları sonuna kadar seçiyor, bu şekilde kopyalayıp istediğiniz sütunun en başına yapıştırabilirsiniz. Başkada bilmiyorum, hayırlı geceler.

 

[idealimsin]

Satırları seçip yapıştırmanıza gerek yokki, yukarıda sütun başlıkları A B C D... yazan yerleri mouse ile seçtiğinizde satırları sonuna kadar seçiyor, bu şekilde kopyalayıp istediğiniz sütunun en başına yapıştırabilirsiniz. Başkada bilmiyorum, hayırlı geceler.

hayırlı geceler. ben onca yazdığımdan birsey anlatamadım..A hücrelerindeki değerde biçimlendirmede büyük harfle yazılan sadece ismi kırkmak istiyorum D hücrelerine

 

[ataköylü-59]

Sayın arkadaşım Tablonuz biraz karışık ama isteğinize biraz uygun olduğunu düşündüğüm şöyle bir Fonksiyonu
D3 hücresine

=PARÇAAL($A$1;3;10)

Yazarak yeteri kadar aşağıya doğru çekin buna bakarak da diğerlerini yapabilirsiniz

 

[idealimsin]

Sayın arkadaşım Tablonuz biraz karışık ama isteğinize biraz uygun olduğunu düşündüğüm şöyle bir Fonksiyonu
D3 hücresine

=PARÇAAL($A$1;3;10)

Yazarak yeteri kadar aşağıya doğru çekin buna bakarak da diğerlerini yapabilirsiniz

A sütunundaki isimlerin uzunlukları farklı farklı .istediğim hücredeki isimden parça almak için biçim farkını gözeten bir formül mümkün değilmidir.?

 

[Korhan Ayhan]

Merhaba,

İlk olarak D1 hücresine aşağıdaki formülü uygulayınız.

=EĞER(FONT_KONTROL(A1);KPARÇAAL(A1);DOLAYLI("D"&SATIR()-1))

Formülün sonuç üretmesi için de aşağıdaki kodları boş bir modüle uygulayın.

Function KPARÇAAL(Veri As Range) As String
    Dim X As Integer, Y As Integer, Z As Integer
    
    Application.Volatile True
    
    For X = 1 To Len(Veri.Text)
        If Veri.Characters(X - 1, 1).Text = "-" Then
            Y = X
        End If
        If Veri.Characters(X, 1).Font.Superscript Then
            Z = X
        End If
        If Y > 0 And Z > 0 Then
            KPARÇAAL = Veri.Characters(Y, Z - Y).Text
            Exit For
        End If
    Next
End Function

Function FONT_KONTROL(Veri As Range) As Boolean
    FONT_KONTROL = Veri.Font.Bold
End Function

 

[idealimsin]

Merhaba,

İlk olarak D1 hücresine aşağıdaki formülü uygulayınız.

=EĞER(FONT_KONTROL(A1);KPARÇAAL(A1);DOLAYLI("D"&SATIR()-1))

Formülün sonuç üretmesi için de aşağıdaki kodları boş bir modüle uygulayın.

Function KPARÇAAL(Veri As Range) As String
    Dim X As Integer, Y As Integer, Z As Integer
    
    Application.Volatile True
    
    For X = 1 To Len(Veri.Text)
        If Veri.Characters(X - 1, 1).Text = "-" Then
            Y = X
        End If
        If Veri.Characters(X, 1).Font.Superscript Then
            Z = X
        End If
        If Y > 0 And Z > 0 Then
            KPARÇAAL = Veri.Characters(Y, Z - Y).Text
            Exit For
        End If
    Next
End Function

Function FONT_KONTROL(Veri As Range) As Boolean
    FONT_KONTROL = Veri.Font.Bold
End Function

çok teşekkur ederim mükemmel bir iş yaptınız benim için

 

[idealimsin]

Merhaba,

İlk olarak D1 hücresine aşağıdaki formülü uygulayınız.

=EĞER(FONT_KONTROL(A1);KPARÇAAL(A1);DOLAYLI("D"&SATIR()-1))

Formülün sonuç üretmesi için de aşağıdaki kodları boş bir modüle uygulayın.

Function KPARÇAAL(Veri As Range) As String
    Dim X As Integer, Y As Integer, Z As Integer
    
    Application.Volatile True
    
    For X = 1 To Len(Veri.Text)
        If Veri.Characters(X - 1, 1).Text = "-" Then
            Y = X
        End If
        If Veri.Characters(X, 1).Font.Superscript Then
            Z = X
        End If
        If Y > 0 And Z > 0 Then
            KPARÇAAL = Veri.Characters(Y, Z - Y).Text
            Exit For
        End If
    Next
End Function

Function FONT_KONTROL(Veri As Range) As Boolean
    FONT_KONTROL = Veri.Font.Bold
End Function

hocam bir ayrıntım daha oluştu bu formülde.
formülde büyükharfli yazıyı okurken kendinden sonraki biçim yazı arada boşluk varsa "d" sütununada isimden sonra bir karakter boşluk bırakıyor.ve artı diğer taraftan büyükaharfli yazıdan sonra biçimli yazı yoksa ismi hiç okumuyor "d" sütununa.bundada bir ayar yapabilmek mümkünmü acaba.daha iyi anlaşılsın diye "d" sütununu formüle ettikten sonra texte cevirdim.

http://dosya.co/d9b8d4f391ac976a/Kitap123.xlsm

 

[idealimsin]

Ekte verdiğim dosyada sorunlu hücreleri renkli olarak verdim

 

[idealimsin]

Merhaba,

İlk olarak D1 hücresine aşağıdaki formülü uygulayınız.

=EĞER(FONT_KONTROL(A1);KPARÇAAL(A1);DOLAYLI("D"&SATIR()-1))

Formülün sonuç üretmesi için de aşağıdaki kodları boş bir modüle uygulayın.

Function KPARÇAAL(Veri As Range) As String
    Dim X As Integer, Y As Integer, Z As Integer
    
    Application.Volatile True
    
    For X = 1 To Len(Veri.Text)
        If Veri.Characters(X - 1, 1).Text = "-" Then
            Y = X
        End If
        If Veri.Characters(X, 1).Font.Superscript Then
            Z = X
        End If
        If Y > 0 And Z > 0 Then
            KPARÇAAL = Veri.Characters(Y, Z - Y).Text
            Exit For
        End If
    Next
End Function

Function FONT_KONTROL(Veri As Range) As Boolean
    FONT_KONTROL = Veri.Font.Bold
End Function

hocam düzeltebilmemiz mümkünmü acaba

 

[idealimsin]

hocam bir yardım