if lerden sadece biri çalışıyor?

[kenangulal]

Merhaba aşağıdaki kodda if lerden sadece birini çalıştırıyor eğer >< bu işaretlerin yanına = işareti koyarsam = işareti olan çalışıyor, birde caption nın forecolor özelliğini yazamadım yardımcı olursanız sevinirim.
syg


Sub onay()
Sheets("canlısayfa").Select
If Range("L6") > Range("m6") Then
UserForm1.Label3.Caption = "x"

Else
If Range("L6") < Range("m6") Then
UserForm1.Label3.Caption = "$"

Else
If Range("L6") = Range("m6") Then
UserForm1.Label3.Caption = "--"

End If
End If
End If
End Sub

 

[Ali]

Sheets("canlısayfa").Select
If Range("L6") > Range("m6") Then
UserForm1.Label3.Caption = "x"
End If

If Range("L6") < Range("m6") Then
UserForm1.Label3.Caption = "$"
End If

If Range("L6") = Range("m6") Then
UserForm1.Label3.Caption = "--"

End If

şeklinde düzenleyin

 

[kenangulal]

sayın fructose,
kodları sizinki ile değiştirdim fakat hücre değerini dikkate almıyor sanırım bir değişiklik olmadı. ne yapabiliriz.

 

[Ali]

Eki inceleyin bir sorun yok

 

[Zeki Gürsoy]

Bir de şöyle deneyin.

Sheets("canlısayfa").Select
If Range("L6") > Range("m6") Then
UserForm1.Label3.Caption = "x"

ElseIf Range("L6") < Range("m6") Then
UserForm1.Label3.Caption = "$"

ElseIf Range("L6") = Range("m6") Then
UserForm1.Label3.Caption = "--"

End If

 

[class37]

Merhaba
Sayın fructose'nin yolladığı dosyadaki kodları sayfanın kod sayfasına aldım düzgün çalışıyor.Yalınız dikkat edeceğiniz nokta hücredeki değeri değiştirince o hücreden çıkın.

 

[kenangulal]

Hepinize ilginizden dolayı teşekkür ederim arkadaşlar.
syg.