Kelime parçalama ve koşul üretme.

[desk]

Tek hücrede bulunan bir veride örnek
%30 beyaz
%10 kırmızı

Bu kelimeleri nasıl parçalayabilirim. ve koşul üretebilirim. 30 üzerindeyse veya 10 un altındaysa veya %30 beyazın altındaysa kelime yi nasıl parçalayıp koşul oluşturabilecek şekle getirebilirim.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu kullanabilirsiniz.

MsgBox Val(Split(Range("A1"), " ") (0))

 

[desk]

Parçaladıktan sonra istediğim parçayı nasıl koşula tabi tutacağım?

 

[desk]

Burda yapmak istediğim tam olarak C15 c16 c17 c18 hücrelerinde
%30 beyaz
%10 kırmızı
yazılar olduğunu var sayarsak beyaz olup %30 un üstünde ise evet değilse hayır nasıl hazdırabilirim

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kod yapısını kullanabilirsiniz. Ben sadece C15 hücresi için kod yazdım. Siz döngü kurarak diğer hücreleride sorgulayabilirsiniz.

Option Explicit
 
Sub ÖRNEK_SORGU()
    Dim YÜZDE As Double, RENK As String
    
    YÜZDE = CDbl(Replace(Split(Range("C15"), " ")(0), "%", "")) / 100
    RENK = Split(Range("C15"), " ")(1)
    
    If YÜZDE > 0.3 And RENK = "BEYAZ" Then
        MsgBox "EVET"
    Else
        MsgBox "HAYIR"
    End If
End Sub