Formül Yardım

Katılım
16 Mart 2024
Mesajlar
15
Excel Vers. ve Dili
2019


merhaba burda kı komısyon kısmına ben acıklama ıcındekı komısyon da kı rakamı cekmek istiyorum

daha önce vardı ama

=EĞERHATA(-YERİNEKOY(YERİNEKOY(DEĞİŞTİR(DEĞİŞTİR(D2;MBUL("bloke";D2)-1;UZUNLUK(D2);"");1;MBUL("Komisyon";D2)+UZUNLUK("Komisyon");"");" ";"");":";"");"")

komsiyon sütünuna acıklamadakı komisyon tutarını getirmiyor boş sütün oluyor

office professıonal plus 2016 kullanıyorum
 
Son düzenleme:

Trilenium

Destek Ekibi
Destek Ekibi
Katılım
16 Eylül 2008
Mesajlar
1,180
Excel Vers. ve Dili
Microsoft Office 2019 English
=IFERROR(MID(D2; SEARCH("Komisyon: "; D2) + LEN("Komisyon: "); FIND(" "; D2; SEARCH("Komisyon: "; D2) + LEN("Komisyon: ")) - SEARCH("Komisyon: "; D2) - LEN("Komisyon: ")); "")
 
Katılım
16 Mart 2024
Mesajlar
15
Excel Vers. ve Dili
2019


BUNDADA excel ıcınde acıklamayı yazdım ordada komısyonlar ayrılacak f ve ı sutunlarına gelecek

lütfen yardım edermısınız
 

tugkan

Altın Üye
Katılım
6 Kasım 2004
Mesajlar
430
Excel Vers. ve Dili
Excel 2016
Türkçe 64 BIT
Altın Üyelik Bitiş Tarihi
16-10-2025


BUNDADA excel ıcınde acıklamayı yazdım ordada komısyonlar ayrılacak f ve ı sutunlarına gelecek

lütfen yardım edermısınız
Excel formülleri, hücre içindeki metnin rengini algılayamaz ve dolayısıyla yalnızca kırmızı olan yazıları doğrudan formülle almak mümkün değildir. Ancak, bu tür bir işlemi Excel'de VBA (Visual Basic for Applications) kodları ile yapabilirsiniz.

Eğer kırmızı renkteki yazıları almak için VBA kullanmayı düşünürseniz, aşağıdaki gibi bir kod yardımcı olabilir:

  1. Excel'de Alt + F11 tuşuna basarak VBA penceresini açın.
  2. Ekle > Modül seçeneğine tıklayarak yeni bir modül ekleyin.
  3. Aşağıdaki kodu yapıştırın:
Kod:
Function GetRedText(cell As Range) As String
    Dim i As Integer
    Dim result As String
    result = ""
    
    ' Hücredeki her karakteri kontrol et
    For i = 1 To Len(cell.Value)
        With cell.Characters(i, 1)
            ' Eğer karakterin rengi kırmızıysa, sonucu birleştir
            If .Font.Color = RGB(255, 0, 0) Then
                result = result & .Text
            End If
        End With
    Next i
    
    GetRedText = result
End Function
  • Bu fonksiyonu kapatıp Excel'e geri dönün.
  • Bu VBA fonksiyonunu kullanmak için, kırmızı yazıları almak istediğiniz hücreye şu şekilde yazın:
Kod:
=GetRedText(D2)
  1. D2 yerine kırmızı metni içeren hücreyi seçebilirsiniz.
Bu fonksiyon, D sütunundaki her bir hücrede kırmızı olan karakterleri birleştirip başka bir hücreye aktaracaktır.
 

Ekli dosyalar

Trilenium

Destek Ekibi
Destek Ekibi
Katılım
16 Eylül 2008
Mesajlar
1,180
Excel Vers. ve Dili
Microsoft Office 2019 English
I sütunu için formül

=TRIM(RIGHT(SUBSTITUTE(D3; " "; REPT(" "; LEN(D3))); LEN(D3)))

j sütunu için formül
=F2-I2
 
Üst