Soru Command Button çalşımıyor.

[istanbulcahan]

hayırlı geceler.
Command Button oluşturuyorum. Ancak bir türlü çalışmıyor. Hata nerede acaba.

Private Sub CommandButton1_Click()
puan = Range("D2")

If puan >= 90 Then
Range("E2") = "AA"

ElseIf puan = 80 Then
Range("E2") = "BB"

ElseIf puan = 70 Then
Range("E2") = "CC"

ElseIf puan = 60 Then
Range("E2") = "DD"

Else

End If

End Sub

 

[muygun]

Merhaba;
Kodlarınızda sorun yok. Puanı D2 ye alın ve deneyin. (örneğinizde puan C8 de)
iyi çalışmalar.

 

[istanbulcahan]

Merhaba;
Kodlarınızda sorun yok. Puanı D2 ye alın ve deneyin. (örneğinizde puan C8 de)
iyi çalışmalar.

Üstadım.Çalışmadı.

 

[Seyit Tiken]

Butonda kod yok, değerleri direkt giriniz.

 

[relaxim]

Merhaba,

Dosyanızı kaydederken xlsm olarak yani makro içerebilen... kaydetmelisiniz. Ayrıca formüllü çözüm de ekledim.

 

[relaxim]

Butonda kod yok, değerleri direkt giriniz.

Seyit hocam merhaba,

Örneğinizi indirdim d3'e değer girdim program hata verip kendini kapatıyor. Neden olabilir.

 

[YUSUF44]

Seyit hocam merhaba,

Örneğinizi indirdim d3'e değer girdim program hata verip kendini kapatıyor. Neden olabilir.

Target belirtilmediğinden sayfada olan her değişiklikte kod tekrar çalışmaya başlıyor ve kısırdöngüye giriyor. Düzeltmek için aşağıdaki satırın ikinci satır olarak ilave edilmesi gerekir:

If Intersect(Target, [D2]) Is Nothing Then Exit Sub

 

[istanbulcahan]

Merhaba,

Dosyanızı kaydederken xlsm olarak yani makro içerebilen... kaydetmelisiniz. Ayrıca formüllü çözüm de ekledim.

Teşekkürler. İşime yaradı. Sağolasın.