sayfa change olayı

[ismailozkan4224]

aşağıdaki kodu nasıl uyarlamam lazım. bu 6 hücre değiştiğinde tarih atmasını istiyorum.
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Not Intersect(Target, [AA2]) Is Nothing Then
If Not Intersect(Target, [AS2]) Is Nothing Then
If Not Intersect(Target, [AA22]) Is Nothing Then
If Not Intersect(Target, [AS22]) Is Nothing Then
If Not Intersect(Target, [AA32]) Is Nothing Then
If Not Intersect(Target, [AS32]) Is Nothing Then
cells(3,13)=date
'"diğer kodlar"
End If
End If
End If
End If
End If
End Sub

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    Select Case Target.Address(0, 0)
        Case "AA2", "AS2", "AA22", "AS22", "AA32", "AS32"
            Cells(3, 13) = Date
            Rem Diğer kodlarınız...
    End Select
End Sub

 

[ismailozkan4224]

1. makrodaki ElseIf Not Intersect(Range("S7"), Target) Is Nothing Then satırı hata veriyor.'------- arası
2. makrodaki syf = ActiveSheet.Name satırı hata veriyor.'------- arası

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Not Intersect(Target, [AA2]) Is Nothing Then

'Select Case Target.Address(0, 0)
'Case "AA2", "AS2", "AA22", "AS22", "AA32", "AS32"

Application.ScreenUpdating = False

a = Sheets("VERİ").Cells(13, 2)
b = Sheets("VERİ").Cells(13, 4)
c = Sheets("VERİ").Cells(13, 1)
son1:
On Error GoTo SON
Z1 = " Yukarıda açık kimlik ve diğer bilgileri yer alan "
Z2 = Format(Now, "dd.mm.yyyy")
Z3 = " tarihine rastlayan "
Z4 = Format(Now, "dddd")
Z5 = " günü saat "
Z6 = Format(Now, "hh:mm") & " 'da "
Z7 = "'na gelerek “ "
Z8 = " ” konumunda; “ "
Z9 = " ” hakkındaki iddiaları kendisine anlatılıp sorulduğunda; cevap olarak, “ "
Z10 = " ” dedi. "
Z11 = "Yazılanlar okundu, kendisinin okumasına fırsat verildi. Yazılanların söylediklerinin aynısı olduğunu, başka diyeceğinin bulunmadığını, ifadesinin özgür iradesine dayalı olduğunu beyan etmesi üzerine bu ifade tutanağı birlikte imzalandı. " & Cells(7, 26)

F1 = Cells(2, 63) & Z9 & [AA2] & Z10
F2 = " ” " & Cells(7, 63) & Z9 & [AS2] & Z10
F3 = " ” " & Cells(12, 63) & Z9 & [AA22] & Z10
F4 = " ” " & Cells(17, 63) & Z9 & [AS22] & Z10
F5 = " ” " & Cells(22, 63) & Z9 & [AA32] & Z10

If Cells(2, 27) = "" Then
F1 = ""
End If
If Cells(2, 45) = "" Then
F2 = ""
End If
If Cells(22, 27) = "" Then
F3 = ""
End If
If Cells(22, 45) = "" Then
F4 = ""
End If
If Cells(32, 27) = "" Then
F5 = ""
End If
Cells(17, 1) = Z1 & a & " " & Cells(5, 13) & " ; " & Z2 & Z3 & Z4 & Z5 & Z6 & b & Z7 & c & Z8 & F1 & F2 & F3 & F4 & F5 & Z11

Call SAYFAYATARIHAKTAR 'Module1
Call KALINHARFYAPIFADE 'BU SAYFA
Call KALINHARFYAPIFADE1 'BU SAYFA
Call SATIRYUKSELIGINIAYARLAIFADE 'Module2
Call BUTTONYUKSEKLIKLERINIAYARLAIFADE 'Module3
SON:
ActiveSheet.Shapes("CommandButton1").Top = "1"
'ActiveSheet.Shapes("CommandButton1").Left = "10"
'ActiveSheet.Shapes("CommandButton1").Right = "10"
'Call MESSAGEBOXAC
'Application.EnableEvents = True
Application.ScreenUpdating = True
'MsgBox "İşleminiz Tamamlanmıştır. TEBRİKLER", , "İSMAİL ÖZKAN Sıraç Aydıntaşbaş İlkokulu - " & Format(Now, "dd.mm.yyyy")
'----------------
ElseIf Not Intersect(Range("S7"), Target) Is Nothing Then
'--------------------
If Range("S7") = "" Then
Range("Z7") = ""
Else
Range("Z7") = Date
End If
End If
Application.EnableEvents = True
'End Select
End Sub


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells(1, 91) = ActiveCell.Address
Cells(1, 92) = ActiveSheet.Name
'--------------
syf = ActiveSheet.Name
'------------
f = Cells(1, 92)
k = Cells(1, 91)
UZUNLUK = Len(Range(k))
Sheets(syf).Range("CL1") = UZUNLUK / 26
gBox "İşleminiz Tamamlanmıştır. TEBRİKLER", , "İSMAİL ÖZKAN Sıraç Aydıntaşbaş İlkokulu - " & Format(Now, "dd.mm.yyyy")
End Sub

 

[ismailozkan4224]

KORHAN BEY ŞEKLİNDE ÇÖZÜLDÜ TEŞEKKÜR EDERİM.
If Not Intersect(Target, Range("AA2:AS2,AA22:AS22,AA32")) Is Nothing Then