VE Formülünün Makro Karşılığı Nedir?

[staluer]

Merhaba,
Aşağıdaki formülün makro karşılığı ne olabilir?
Teşekkürler.

=EĞER(VE(P2>0;Q2>0;R2>0);1;0)

 

[Emir Hüseyin Çoban]

. . .

Sub kod()
[COLOR="SeaGreen"]    '=EĞER(VE(P2>0;Q2>0;R2>0);1;0)[/COLOR]
    If [P2] > 0 And [Q2] > 0 And [R2] > 0 Then
        MsgBox "1"
    Else
        MsgBox "0"
    End If
End Sub

. . .

 

[Orion1]

A2 hücresine sonucu yazar.

Sub ve59()
If Range("P2").Value > 0 And Range("Q2").Value > 0 And Range("R2").Value > 0 Then
    Range("A2").Value = 1
    Else
    Range("A2").Value = 0
End If
End Sub

 

[staluer]

Çok teşekkür ederim.
Ben
IIf(And(Sheets("VERİ").Cells(a, 16) > 0, Sheets("VERİ").Cells(a, 17) > 0, Sheets("VERİ").Cells(a, 18) > 0, 1, 0))
böyle birşeyler yazmaya çalıştım ama hata verdi.

 

[staluer]

Verdiğiniz kodlarla bu şekilde çalıştı.

If Sheets("VERİ").Cells(a, 16) > 0 And Sheets("VERİ").Cells(a, 17) > 0 And Sheets("VERİ").Cells(a, 18) > 0 Then
Sheets("VERİ").Cells(a, 2).Value = 1
Else
Sheets("VERİ").Cells(a, 2).Value = 0
End If

 

[Orion1]

Verdiğiniz kodlarla bu şekilde çalıştı.

If Sheets("VERİ").Cells(a, 16) > 0 And Sheets("VERİ").Cells(a, 17) > 0 And Sheets("VERİ").Cells(a, 18) > 0 Then
Sheets("VERİ").Cells(a, 2).Value = 1
Else
Sheets("VERİ").Cells(a, 2).Value = 0
End If

3 nolu mesajda verdiğim kodlar çalışması lazım.

 

[staluer]

Evet teşekkürler, kendime uyarladım ve çalıştı.

 

[Orion1]

Evet teşekkürler, kendime uyarladım ve çalıştı.

Rica ederim.
İyi çalışmalar.

 

[Ömer BARAN]

Merhaba.

Alternatif.
If ... Then ... Else ... End If şeklinde bir yapı yerine aşağıdaki gibi de sonuç alabilirsiniz.
.

Cells(a, 2) = Abs((Cells(a, 16) > 0) * (Cells(a, 17) > 0) * (Cells(a, 18) > 0))

 

[staluer]

Bir şey daha sormak isterim. Makro işlemi yaptıktan sonra en son mesaj olarak toplam geçen süreyi yazabilir mi?
Yani "xx.xx sürede işlem tamamlanmıştır" gibi
Teşekkürler.

 

[Orion1]

Bir şey daha sormak isterim. Makro işlemi yaptıktan sonra en son mesaj olarak toplam geçen süreyi yazabilir mi?
Yani "xx.xx sürede işlem tamamlanmıştır" gibi
Teşekkürler.

Buyurun.

Sub sure59()
Dim ilksaat,sonsaat
ilksaat = Now
'kodlarınız
'............
'...........
sonsaat = Now
MsgBox "Geçen Süre : " & Format(sonsaat - ilksaat, "hh:mm:ss")
End Sub

 

[staluer]

çok teşekkürler.

 

[Orion1]

çok teşekkürler.

Rica ederim.
iyi çalışmalar.