Soru 2 farklı hücredeki değere göre 3 ncü bir hücredeki değerin ilk rakamını parça alma ?

[hamza2011]

Merhaba;

Ek' li dosyada paylaştığım ve açıklamasını dosya içinde belirttiğim konu hakkında yardımlarınıza ihtiyacım var. Lütfen ilgilenebilir misiniz

 

[Ömer BARAN]

Merhaba.

1.Formül: Aşağıdaki formüllerden birini kullanabilirsiniz. Formül sonuçları METİN'dir.

=SOLDAN(F2;(E2="P")*ESAYIYSA(KAÇINCI(H2;{"DS";"L";"LKK"};0)))&PARÇAAL(F2;2;E2="C")
=EĞER(VE(E2="P";YADA(H2="LKK";H2="DS";H2="L"));SOLDAN(F2;1);EĞER(E2="C";PARÇAAL(F2;2;1);""))

2.Makro:
İşlem sonucu olan RAKAM, SAYI olarak kullanılacaksa kırmızı kısmı silin, METİN olarak kullanılacaksa bu kısım da kalsın.

Sub SAYILAR()
For sat = 2 To Cells(Rows.Count, 2).End(3).Row
    Cells(sat, "A").Clear: Cells(sat, "A").NumberFormat = "@"
    If Cells(sat, "E") = "P" And (Cells(sat, "H") = "LKK" Or _
        Cells(sat, "H") = "DS" Or Cells(sat, "H") = "L") Then
        Cells(sat, "A") = Left(Cells(sat, "F"), 1)
    ElseIf Cells(sat, "E") = "C" Then
        Cells(sat, "A") = Mid(Cells(sat, "F"), 2, 1)
    End If
Next
End Sub

 

[hamza2011]

Ömer Hocam;

Çok ama çok teşekkür ederim. Çok mutlu oldum. Allah razı olsun sizden, harika oldu.