Şartlı Başlatma

[kemalist]

Bazı işlemleri yapmak için makro çalıştırıyorum.Benim isteğim Eğer E5 hücresinde "348" yazıyorsa makro çalışsın Fakat farklı bir değer çıkarsa uyarsın.Bunun için nasıl bir makro olabilir?
Dosya Ektedir.

 

[Orion1]

Bazı işlemleri yapmak için makro çalıştırıyorum.Benim isteğim Eğer E5 hücresinde "348" yazıyorsa makro çalışsın Fakat farklı bir değer çıkarsa uyarsın.Bunun için nasıl bir makro olabilir?
Dosya Ektedir.

Dosyanız ektedir.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [E5]) Is Nothing Then Exit Sub
If Target.Value = 348 Then
    Call makrotest
    Else
    MsgBox "Girilen değer 348 değil!İşlem iptal oldué"
End If
End Sub

Sub makrotest()
MsgBox "makro çalıştı."
End Sub

 

[kemalist]

Sayın Orion1 bunu otomatik değilde Butonla yapabilirmiyiz? İlginiz için çok teşekkür ederim.

 

[Orion1]

Sayın Orion1 bunu otomatik değilde Butonla yapabilirmiyiz? İlginiz için çok teşekkür ederim.

Dosyanız ektedir.

Sub makrotest()
MsgBox "makro çalıştı."
End Sub

Sub sartli()
If Range("E5").Value = 348 Then
    Call makrotest
    Else
    MsgBox "Girilen değer 348 değil!İşlem iptal oldu."
End If
End Sub

 

[kemalist]

Teşekkürler üstadım...

 

[Orion1]

Teşekkürler üstadım...

Rica ederim.
İyi çalışmalar.

 

[kemalist]

If Range("E5").Value = 348 Then
Şartı sayı yerine Metin Olacak şekilde yani CUMA istiyorum.="CUMA" yazdım fakat dikkate almıyor. Yanlız şunuda söylemem gereken CUMA yazan hücre koşullu biçimlendirme ile geliyor.

 

[Orion1]

E5 te metin olarak "CUMA" yazması lazım.
Eğer E5 te tarih varsa Cumayı sorgulamak için aşağıdaki kodu yazınız.

If Weekday(Range("E5").Value, 2) = 5 Then

 

[kemalist]

Teşekkür ederim işlem tamam...

 

[Orion1]

Teşekkür ederim işlem tamam...

Rica ederim.
İyi çalışmalar.