Makro Aktif Olmuyor(Buton olmadan koşula göre aktif olsun)

[ptcsite]

Sub auto_open()

If Range("R3").Value = "YOK" And Range("V6").Value <> "" Then

Cells(6, 22).ClearContents
Cells(7, 22).ClearContents
Cells(8, 22).ClearContents
Cells(9, 22).ClearContents

Else
MsgBox "Negative result"
End If

End Sub


Bu makro butonsuz nasıl çalıştırabilirim. Yani r3 hücresi "YOK" iken ve V6 hücresi doluyken değerleri silmiyor. İlla buton istiyor.

 

[Korhan Ayhan]

Bu kod yapısı dosya açılışında 1 defa çalışacak yapıdadır.

Siz Altın Üyesiniz. Örnek dosyanızı paylaşıp işlemin nasıl olması gerektiğini tarif ederseniz daha kolay yardım alabilirsiniz.

 

[ptcsite]

Burada 2 hususu yapmaya çalışcam
1- Sarı hücrelere veri gireceğinde mesaj kutusu açılacak ve "Lütfen C4 hücresini VAR olarak değiştirin" mesajını verecek.
2- Kişi diyelim VAR olarak yaptıktan sonra rakamları girdi işini bitirdi ve exceli kaydedip çıktı programdan. Daha sonra programı yeniden kullanacağında; programı açtığında VAR'ı YOK a çevirdiğinde yukarıdaki gibi hücredeki verileri silecek...

Yani ben yeni olduğumdan bu işte istediğim ile yaptığımın çok farkı var tam olmadı ama parça parça geliştiriyordum kendimi...

 

[Korhan Ayhan]

Deneyiniz.

 

[ptcsite]

Hocam harika olmuş tam istediğim gibi... Yalnız uğraştım bi türlü bu makroya şunu ekleyemedim;

Ekteki Excell'de Var yaptıktan sonra boşluklara rakam giriyorum. Daha sonra Yok yaptığımda rakamların silinmesini de istiyorum. Bunun kodunu makroya nasıl ekleriz

 

[yusuf1284]

Hocam harika olmuş tam istediğim gibi... Yalnız uğraştım bi türlü bu makroya şunu ekleyemedim;

Ekteki Excell'de Var yaptıktan sonra boşluklara rakam giriyorum. Daha sonra Yok yaptığımda rakamların silinmesini de istiyorum. Bunun kodunu makroya nasıl ekleriz

Biraz tezatlık oldu ama

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$C$4" Then
        If Range("C4") = "YOK" Then
            Range("E4:E7").ClearContents
        End If
    End If
    If Intersect(Target, Range("E4:E7")) Is Nothing Then Exit Sub
    If Range("C4") <> "VAR" Then
        Application.EnableEvents = False
        MsgBox "Lütfen C4 hücresini VAR olarak değiştirin!", vbExclamation
        Range("E4:E7").ClearContents
        Application.EnableEvents = True
        Exit Sub
    End If
End Sub

 

[ptcsite]

Yusuf bey yaklaşmışsın Yok yapınca uyarı mesajı veriyor. Uyarı mesajı çıkmaması lazım...

 

[yusuf1284]

Şu şekilde hata vermez.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$C$4" Then
        If Range("C4") = "YOK" Then
            Range("E4:E7").ClearContents
            Exit Sub
        End If
    End If
    If WorksheetFunction.Sum([E4:E7]) <> 0 Then
        If Range("C4") <> "VAR" Then
            Application.EnableEvents = False
            MsgBox "Lütfen C4 hücresini VAR olarak değiştirin!", vbExclamation
            Range("E4:E7").ClearContents
            Application.EnableEvents = True
        End If
    End If
End Sub

 

[ptcsite]

yusuf bey elinize sağlık işte budur istediğim

 

[yusuf1284]

Rica ederim iyi çalışmalar