Hücrede evet yazdığında macronun çalışmasını istiyorum

[aykut12344]

Arkadaşlar B sütunundaki hücrelere evet yazıldığında

Private Sub Worksheet_Change(ByVal Target As Range)
Dim girilen As Byte
Application.EnableEvents = False
If Target.Count = 1 Then
If Intersect(Target, Range("d1:d" & Rows.Count)) Is Nothing Then _
Application.EnableEvents = True: Exit Sub

girilen = Target.Value
For i = 2 To girilen

Range("D" & Target.Row & "" & Target.Row + (girilen - 1)).Value = girilen
Next
End If
Application.EnableEvents = True
End Sub

macrosunun aktif olmasını istiyorum. Ayrıca aynı anda aşağıdaki macronunda sürekli aktif olarak çalışması şart

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [a:a]) Is Nothing Then Exit Sub
Cells(Target.Row, Target.Column + 4) = Date & " - " & Time
End Sub

 

[Korhan Ayhan]

Merhaba,

Sanırım amacınız sayfada yaptırmak istediğiniz işlemleri adım adım sorup sonra kodları birleştirmek.

Maalesef sayfa olaylarını bu şekilde birleştiremezsiniz. Birleştirseniz dahi hatalı sonuçlar üretebilir.

Bu sebeple dosyanızı ekleyip ne yapmak istediğinizi adım adım açıklarsanız tek seferde yazılacak bir kodla sorun kökünden çözülebilir.