Formül karşılığı

[policeman]

Merhaba...
=EĞER(AK3=”VAR”;1;0) formülü,
.Formula = "=IF(AK3=""VAR"",1,0)" olarak kod içerisinde yazılı...

Bu kodu aşağıdaki formülün karşılığı ile değiştirmek istiyorum;
=EĞER(VE(G3=”EVET”;AK3=”VAR”);1;0)

Mümkünse yardım bekliyorum..
Saygılarımla..

 

[askm]

Formula = "=IF(And(AK3=""VAR"";G3="”EVET”"),1,0)"
şeklinde deneyin. Yalnız dosyanız olsa idi bunu komple kod halinde yazabilirdik.

 

[policeman]

Sayın askm denedim olmadı, kod bütünü şöyle;

Sub TpHesapla()
With Application
.ScreenUpdating = False
.Calculation = xlCalculationManual
.EnableEvents = False
End With

Satir = Cells(Rows.Count, "AK").End(3).Row
If Satir >= 2 Then
Range("CE3:CE" & Rows.Count).ClearContents
With Range("CE3:CE" & Satir)
.Formula = "=IF(AK3=""VAR"",1,0)"
.Value = .Value
End With
End If

With Application
.ScreenUpdating = True
.Calculation = xlCalculationAutomatic
.EnableEvents = True
End With
End Sub

 

[Haluk]

Sayın askm sorunuzu cevaplamış, bir sıkıntı olmaması lazım.

Bununla birlikte, ben de bir alternatif önereyim. Eğer sonucun 1 veya 0 olarak A1 hücresine yazılmasını istiyorsanız;

[A1] = ([G3] = "EVET") * ([AK3] = "VAR")

.

 

[Haluk]

Kodunuzdan anladığım kadarıyla Array Formula (Dizi Formülü) girmeye çalışıyorsunuz.

Bir de şöyle deneyin;

En son mesajınızda yer alan aşağıdaki satırı;

.Formula = "=IF(AK3=""VAR"",1,0)"

bununla değiştirin;

.FormulaArray = "=((G3:G" & Satir & "= ""EVET"") * (AK3:AK" & Satir & "= ""VAR""))"

.

 

[policeman]

Tamamdır sonuç verdi her ikinize de ilginiz için teşekkür ederim,sağolun..

 

[Haluk]

Kolay gelsin ...

.