Eğer Formülü Hk.

[EsQeLa]

Arkadaşlar merhaba,

Size aşağıda bir dosya paylaşıyorum. Bu dosyaya göre yapmak istediğim şey tam olarak şudur ;

=Eğer(Y5<=0) ise Mak(M5;P5;S5;X5)+1

=Eğer(Y5>0) ise MAK(M5;P5;S5;X5;AA5)+1

Bu formülasyonu VB kodu olarak nasıl uygulayabilirim bu konu hakkında yardımlarınızı rica ediyorum.

 

[muygun]

Merhaba;
ÜretimPlanı (2) sayfasının kod bölümüne;

Sub işlem()
Application.ScreenUpdating = False
On Error Resume Next
Sheets("ÜretimPlanı (2)").Range("ah5:ah65536").ClearContents

Set s1 = ThisWorkbook.Worksheets("ÜretimPlanı (2)")
For i = 5 To s1.Range("d65536").End(xlUp).Row

'Eğer(Y5<=0) ise Mak(M5;P5;S5;X5)+1
If s1.Cells(i, "y") <= 0 Then
s1.Cells(i, "ah") = WorksheetFunction.Max(s1.Cells(i, "m"), s1.Cells(i, "p"), s1.Cells(i, "s"), s1.Cells(i, "x")) + 1
End If

'Eğer(Y5>0) ise MAK(M5;P5;S5;X5;AA5)+1
If s1.Cells(i, "y") > 0 Then
s1.Cells(i, "ah") = WorksheetFunction.Max(s1.Cells(i, "m"), s1.Cells(i, "p"), s1.Cells(i, "s"), s1.Cells(i, "x"), s1.Cells(i, "aa")) + 1
End If

Next i
Application.ScreenUpdating = True
MsgBox "İşlem TAMAM.", vbInformation
End Sub

Kodlarını uygulayıp deneyin.
İyi çalışmalar.

 

[EsQeLa]

Çok teşekkür ederim. Formül çalıştı ve işime yaradı. Tamda istediğim gibi olmuş.