2 makro yu bir sayfada kullanmak.

[emrebenn]

Merhaba
Aşağıdaki iki makroyu aynı sayfada nasıl çalıştıra bilirim acaba yardımınızı rica ederim.

"Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("B:B")) Is Nothing Then Exit Sub
If Hour(Now) <= 8 Then Target.Offset(0, 1) = "1. Vardiya"
If Hour(Now) >= 8 Then Target.Offset(0, 1) = "2. Vardiya"
If Hour(Now) >= 16 Then Target.Offset(0, 1) = "3. Vardiya"
End Sub"

"Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [F1:F65536]) Is Nothing Then Cells(Target.Row, "B") = Format(Now, "dd.mm.yyyy hh:mm")
End Sub"

 

[YUSUF44]

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("B:B")) Is Nothing Then goto 10
If Hour(Now) <= 8 Then Target.Offset(0, 1) = "1. Vardiya"
If Hour(Now) >= 8 Then Target.Offset(0, 1) = "2. Vardiya"
If Hour(Now) >= 16 Then Target.Offset(0, 1) = "3. Vardiya"
10:
If Not Intersect(Target, [F1:F65536]) Is Nothing Then Cells(Target.Row, "B") = Format(Now, "dd.mm.yyyy hh:mm")
End Sub"

Şeklinde deneyin.