üç değişkenli formül

[akreps]

Merhaba,

aşağıdaki gibi bir tablom var ve aşağıdaki değişkenlere göre formül konusunda yardımcı olabilir misiniz. örnek dosyada yükledim.
şimdiden çok teşekkürler.

örnek dosya

Malzeme kısa metni	MOTOR kelimesini içeren ve B.Fiyat 40binden büyük olan değerlerin karşısında	MOTOR
Malzeme	H0 ile başlayan kodlar	Ham Malzeme
	yukarıdaki filtrelemelerin dışlında kalan tüm kod veya malzemeler	Yarı Mamül

 

[muhasebeciyiz]

Sub MalzemeDoldur()
Dim i As Long
Dim malzemeKodu As String
Dim malzemeMetni As String
Dim fiyat As Double

For i = 2 To 13
malzemeKodu = Cells(i, 1).Value
malzemeMetni = Cells(i, 2).Value
fiyat = Cells(i, 3).Value

If InStr(1, malzemeMetni, "MOTOR", vbTextCompare) > 0 And fiyat > 40000 Then
Cells(i, 4).Value = "MOTOR"

ElseIf Left(malzemeKodu, 2) = "H0" Then
Cells(i, 4).Value = "Ham Malzeme"

Else
Cells(i, 4).Value = "Yarı Mamul"
End If
Next i
End Sub

Bu kodları sayfanın kod bölümüne kopyalayıp çalıştırınız

 

[Muzaffer Ali]

Merhaba.
D2 formülü =ÇOKEĞER(EĞERHATA(BUL("MOTOR";B2);0)>0;"MOTOR";SOLDAN(A2;2)="H0";"Ham Malzeme";DOĞRU;"Yarı Mamül")

 

[akreps]

çok teşekkürler. çok işime yaradı.

 

[akreps]

Merhaba.
D2 formülü =ÇOKEĞER(EĞERHATA(BUL("MOTOR";B2);0)>0;"MOTOR";SOLDAN(A2;2)="H0";"Ham Malzeme";DOĞRU;"Yarı Mamül")

ufak bir eksik çıkıyor motor fiyatına bakması gerekiyor 40.000tl üstünü almamız lazım

 

[Muzaffer Ali]

D2 Formülü

=ÇOKEĞER(VE(EĞERHATA(BUL("MOTOR";B2);0)>0;C2>40000);"MOTOR";SOLDAN(A2;2)="H0";"Ham Malzeme";DOĞRU;"Yarı Mamül")