- Katılım
- 11 Ekim 2005
- Mesajlar
- 140
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
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