Bir sayfaya birden fazla kod yazma sorunu

[recepkull]

Bir sayfaya iki kod yazmak istiyorum hata veriyor ve iki kod da çalışmıyor bunun çözümü nedir acaba ? Yardımlarınızı bekliyorum.

1. KOD

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("AD7")) Is Nothing Then UserForm1.Show
End Sub

2. KOD

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Application.CutCopyMode = False Then
Application.Calculate
End If
End Sub

 

[Orion1]

Ayni olaydan 2 tane olamaz.
Buyurun.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Application.CutCopyMode = False Then
    Application.Calculate
End If
If Not Intersect(Target, Range("AD7")) Is Nothing Then
    UserForm1.Show
    Exit Sub
End If
End Sub

 

[recepkull]

teşekkür ederim sağ olun

 

[SevgiGultekin]

Arkadaşlar Merhaba,
VBA'yı maalesef bilmiyorum fakat öğrenmeye çalışıyorum.

Aşağıdaki kod nispeten çalışıyor fakat hücrenin üstüne gelindiğinde bile değişiklik olmuş gibi algılıyor ve açıklama tarihini değiştiriyor.
Yapmak istediğim; sadece L sütununda ilgili hücredeki değişiklik tarihini getirmesi.

Yardımcı olabilirseniz minnettar kalırım.
Çok teşekkürler,

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Target.NoteText " Değiştirilme Tarihi " & Format(Date, "dd.mm.yy") & " " & Format(Now(), " hh:mm:ss") & " " & ActiveWorkbook.BuiltinDocumentProperties(7).Value & " "
Dim RaBereich As Range, RaZelle As Range
Set RaBereich = Range("E4:E7000")
Application.EnableEvents = False
For Each RaZelle In Range(Target.Address)
If Not Intersect(RaZelle, RaBereich) Is Nothing Then RaZelle.Offset(0, -4) = Date
Next RaZelle
Application.EnableEvents = True
Set RaBereich = Nothing
End Sub

 

[ÖmerBey]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Merhaba,
Sayfada her yeni seçim yaptığınızda kod tetiklenecektir.
Sadece değişiklik olduğu zaman çalışması için tetikleyici olarak Worksheet_Change olayını kullanmanız gerekiyor.

 

[SevgiGultekin]

Allah razı olsun ya Sanırım işimi görür Bu VBA konusunu kendi kendime öğrenmem mümkün değil gibi. İnternetten araştırdığımda bazı kodlar almanca çıkıyor bazıları ingilizce. Önerebileceğiniz bir kaynak var mıdır VBA konusunu en başından öğrenebileceğim?

Yeniden teşekkür ederim, çok sağolun.

Merhaba,
Sayfada her yeni seçim yaptığınızda kod tetiklenecektir.
Sadece değişiklik olduğu zaman çalışması için tetikleyici olarak Worksheet_Change olayını kullanmanız gerekiyor.

 

[ÖmerFaruk]

Reklam gibi olmasın.
Excel.Web.tr

 

[SevgiGultekin]

Arkadaşlar Merhaba,
Son bir yardıma ihtiyacım var.

Örneğin H sütunundaki veri silindiğinde uyarı çıkmasını nasıl yapabilirim? H sütunundaki veri olmadan dosya kaydedilemesin ya da başka veriler girilemesin gibi birşey yapmak mümkün müdür?

Çok teşekkürler,