kodu aşağıdaki gibi dener misini 2 satır ekledim onları eklemeniz yeter
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
On Error GoTo Son
Dim Sayfa As String
Dim ts
AktifHucre = ActiveCell.Row '<=== bu satır tıklanan hücrenin satır bilgisini alıyor
If ActiveSheet.Name <> "W.O KAYIT" Then
Else
Sayfa = Target.Value
If Sayfa <> "" Then Sheets(Sayfa).Select
End If
Exit Sub
Son:
If Intersect(Target, Sheets("W.O KAYIT").Range("A4:A23000")) Is Nothing Then Exit Sub
Sordum = MsgBox(Target.Value & " Numaralı İş Emri A4 Formatına Uygun Açılıyor", vbYesNo, " Değerli Çalışan ")
If Sordum = vbYes Then
Sheets("İŞ EMRİ").Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = Target.Value
Worksheets(Target.Value).Range("A1:Z100").Replace "4", AktifHucre '<== bu satır yeni sayfanın kodlarını ='W.O KAYIT'!C4 sadece 4 değerini aktif hücrenin satır nosu ile değiştiriyor
MsgBox Target.Value & " Numaralı İş Emri A4 Formatına Uygun Açıldı", vbOKOnly, " Değerli Çalışan "
ts = "B2"
Range(ts) = ActiveSheet.Name
End If
End Sub