Soru İçinde geçen bir kelimeye göre hesaplama yapma

[dengeceteris]

Sevgili Arkadaşlar herkese merhaba..

Ay sonun da yaptığımız kdv çalışmaları için bir tablo hazırladım ama bir yerde ek formüle ihtiyacım olacak; Ben aşağı daki gibi bir formül yazıyorum buraya kadar tamam ama 10.sütuna da şu formülü yazmam gerekiyor. eğer 1.sütun da ilk 3 karakter 391 ile başlıyor ve 2.sütunda hesap açıklamasın da (% 1 ) diye bir kelime geçiyorsa 10. sütuna falanca sütunda ki bakiyenin / 0,01 bölsün gibi bir şeyi yazmak mümkün mü ?

If Left(s1.Cells(x, 1), 3) = 391 Then
s1.Cells(x, 1).Resize(1, 9).Interior.Color = rgbLightGreen
s1.Cells(x, 9) = "Satış Kdv"
End If

Yardımcı olacak arkadaşlara şimdiden tşk ederim

 

[Mahmut Kök]

Şu şekilde deneyebilirsiniz:

If Left(s1.Cells(x, 1), 3) = 391 And InStr(1, s1.Cells(x, 2), "% 1", vbTextCompare) > 0 Then

Eğer 2. sütunda % 15 varsa yine doğru kabul eder çünkü "% 1" eşleşmesini yapmış olur. % 1'den sonra boşluk vb varsa onu da dikkate almanızı öneririm.

 

[dengeceteris]

% 1 Oranlı Satışlar Üzerinden Hesaplanan KDV
% 8 Oranlı Satışlar Üzerinden Hesaplanan KDV
% 18 Oranlı Satışlar Üzerinden Hesaplanan KDV

Genelde Bu şekilde yazıyoruz

 

[dengeceteris]

Hocam bu arada tşk ederim. Çalışıyor sistem

 

[dengeceteris]

Hocam çalıştı derken bir yerde sorun ile karşılaştım. Aslında formülasyonu ona göre düzenledim ama sıkıntı şu: eğer %1 birleşik olursa çalışıyor ama % 1 gibi arada boşluk olursa çalışmıyor

 

[Mahmut Kök]

If Left(s1.Cells(x, 1), 3) = 391 And (InStr(1, s1.Cells(x, 2), "%1", vbTextCompare) > 0 or InStr(1, s1.Cells(x, 2), "% 1", vbTextCompare) > 0) Then

şeklinde deneyebilirsiniz.