Çözüldü Aynı sayfada "Private Sub Worksheet_Change(ByVal Target As Range)" makrosunu nasıl birleştiririm.

[ptcsite]

Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, [E17]) Is Nothing Then Exit Sub

Set s = Sayfa5

s.Name = Range("E17")

End Sub

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, [K161:K655]) Is Nothing Then

Cells(Target.Column, "L") = Format(Now, "dd.mm.yyyy")

End Sub

Makrolar yukarıdaki gibi ben bunu;

Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, [E17]) Is Nothing Then Exit Sub

Set s = Sayfa5

s.Name = Range("E17")


If Not Intersect(Target, [K161:K655]) Is Nothing Then

Cells(Target.Column, "L") = Format(Now, "dd.mm.yyyy")



End Sub

Böyle yazınca olmuyor

 

[ptcsite]

Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, [E17]) Is Nothing Then Exit Sub

Set s = Sayfa5

s.Name = Range("E17")


If Not Intersect(Target, [K16:K612] Is Nothing Then Cells(Target.Column, "L") = Now

End Sub

yaptım bu sefer de sorun verdi...

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

Private Sub Worksheet_Change(ByVal Target As Range)

If not Intersect(Target, [E17]) Is Nothing Then

Set s = Sayfa5

s.Name = Range("E17")

end if

If Not Intersect(Target, [K16:K612] Is Nothing Then Cells(Target.Column, "L") = Now

End Sub

 

[ptcsite]

End if without block if uyarsı verdi

 

[AdemCan]

Merhaba alternatif örnek.

Private Sub Worksheet_Change(ByVal Target As Range)
If Selection.Count > 1 Then Exit Sub
    If Target.Address = "$E$17" Then
        Set s = Sayfa5
        s.Name = Range("E17")
    End If
    
    If Target.Column = 11 And (Target.Row >= 161 And Target.Row <= 655) Then
        Cells(Target.Row, "L") = Format(Now, "dd.mm.yyyy")
    End If
End Sub

 

[Levent Menteşoğlu]

End if without block if uyarsı verdi

ilk mesajımdaki kodu düzelttim.

 

[ptcsite]

ilk mesajımdaki kodu düzelttim.

Malesef yine olmadı

 

[ptcsite]

Private Sub Worksheet_Change(ByVal Target As Range)

Burda tanımlama Range olarak yazıyor. Acaba bunun Cell olarak kodda geçmesi mi sorun yaratıyor

 

[ptcsite]

Merhaba alternatif örnek.

Private Sub Worksheet_Change(ByVal Target As Range)
If Selection.Count > 1 Then Exit Sub
    If Target.Address = "$E$17" Then
        Set s = Sayfa5
        s.Name = Range("E17")
    End If
   
    If Target.Column = 11 And (Target.Row >= 161 And Target.Row <= 655) Then
        Cells(Target.Row, "L") = Format(Now, "dd.mm.yyyy")
    End If
End Sub

Malesef bu da olmadı ben ilgili sutunları atıyorum.
buradaki 2,8 i yazınca hemen sağına tarihi yazsın.Bu sarı kutucukların herhangibir için de aynı olacak

 

[ptcsite]

Aşağıdaki gibi deneyin.

Private Sub Worksheet_Change(ByVal Target As Range)

If not Intersect(Target, [E17]) Is Nothing Then

Set s = Sayfa5

s.Name = Range("E17")

end if

If Not Intersect(Target, [K16:K612]) Is Nothing Then Cells(Target.Column, "L") = Now

End Sub

Çok özür diliyorum bu kod çalışıyor... If Not Intersect(Target, [K16:K612] Is ... kısmında parantezi unutmuşum