Birden Fazla Koşullu Eğer şartı

[buyocan]

Merhabalar

Excelde sorum şu şekilde;

A1"1" B1"1"C1"1" ise D1 hücresine 2500 yazsın
A1"1" B1"1"C1"0" ise D1 hücresine 2040 yazsın
A1"0" B1"1"C1"1" ise D1 hücresine 1900 yazsın

Böyle bir sorgulama olur mu yardım edenlere şimdiden teşekkürler

 

[Saban Sertkaya]

Kod işinizi görürse,

Sub dene()
If [A1] = 1 and [B1] = 1 and [C1] = 1 then [D1] = 2500
If [A1] = 1 and [B1] = 1 and [C1] = 0 then [D1] = 2040
If [A1] = 0 and [B1] = 1 and [C1] = 1 then [D1] = 1900
End Sub

 

[buyocan]

Şaban bey çok teşekkürler

 

[Saban Sertkaya]

Rica ederim, kolay gelsin.

 

[buyocan]

Kod işinizi görürse,

Sub dene()
If [A1] = 1 and [B1] = 1 and [C1] = 1 then [D1] = 2500
If [A1] = 1 and [B1] = 1 and [C1] = 0 then [D1] = 2040
If [A1] = 0 and [B1] = 1 and [C1] = 1 then [D1] = 1900
End Sub

Bu kodları "A1" den "A2500" e kadar nasıl kısa yolla ekleyebilirim. yani formülü aşağı doğru çekerek kopyaladığımız gibi
A1B1C1D1
A2B2C2D2
A3B3C3D3

 

[Orion1]

Formülü çekerek koddaki gibi sonuç alamazsınız.Sayılar ardışık gitmiyor.

 

[buyocan]

Formülü çekerek koddaki gibi sonuç alamazsınız.Sayılar ardışık gitmiyor.

peki nasıl halledebilir başka bir yol öneriniz var mı

 

[Orion1]

peki nasıl halledebilir başka bir yol öneriniz var mı

A2,B2,C2 için 3 koşuldada sonuçlar 1nci satırda olduğu gibimi?

 

[buyocan]

A2,B2,C2 için 3 koşuldada sonuçlar 1nci satırda olduğu gibimi?

ewet o koşullar değişmiyor sadece satırlar aşaği doğru inmesi lazım

 

[Ömer BARAN]

Merhaba.
Örnek belgenizi burası veya burası gibi bir paylaşım sitesine yükleyip,
oradan alacağınız erişim bağlantısını burada paylaşırsanız daha çabuk, net ve ek soruya gerek kalmadan cevap alacağınızı düşünüyorum.

 

[Orion1]

ewet o koşullar değişmiyor sadece satırlar aşaği doğru inmesi lazım

Tamam ,anladım.Uğraşalım biraz.

 

[Orion1]

ewet o koşullar değişmiyor sadece satırlar aşaği doğru inmesi lazım

Buyurun.

Sub kosul59()
Dim i As Long

Application.ScreenUpdating = False
For i = 1 To 2500
    If Cells(i, "A").Value = 1 And Cells(i, "B").Value = 1 And _
            Cells(i, "C").Value = 1 Then Cells(i, "D").Value = 2500
    If Cells(i, "A").Value = 1 And Cells(i, "B").Value = 1 And _
            Cells(i, "C").Value = 0 Then Cells(i, "D").Value = 2040
    If Cells(i, "A").Value = 0 And Cells(i, "B").Value = 1 And _
            Cells(i, "C").Value = 1 Then Cells(i, "D").Value = 1900
Next i
Application.ScreenUpdating = True
MsgBox "İşlem tamamlandı." & vbLf & "evrengizlen@hotmail.com"
End Sub

 

[buyocan]

Buyurun.

Sub kosul59()
Dim i As Long

Application.ScreenUpdating = False
For i = 1 To 2500
    If Cells(i, "A").Value = 1 And Cells(i, "B").Value = 1 And _
            Cells(i, "C").Value = 1 Then Cells(i, "D").Value = 2500
    If Cells(i, "A").Value = 1 And Cells(i, "B").Value = 1 And _
            Cells(i, "C").Value = 0 Then Cells(i, "D").Value = 2040
    If Cells(i, "A").Value = 0 And Cells(i, "B").Value = 1 And _
            Cells(i, "C").Value = 1 Then Cells(i, "D").Value = 1900
Next i
Application.ScreenUpdating = True
MsgBox "İşlem tamamlandı." & vbLf & "evrengizlen@hotmail.com"
End Sub

Ustat teşekkürler

 

[Orion1]

Ustat teşekkürler

Rica ederim.
İyi çalışmalar.