• DİKKAT

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

Formül Yardım

Katılım
16 Mart 2024
Mesajlar
17
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:
=IFERROR(MID(D2; SEARCH("Komisyon: "; D2) + LEN("Komisyon: "); FIND(" "; D2; SEARCH("Komisyon: "; D2) + LEN("Komisyon: ")) - SEARCH("Komisyon: "; D2) - LEN("Komisyon: ")); "")
 


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
 


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

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
 
Geri
Üst