aşağıdaki gibi bir makro var A:A stünundaki sayı içeren hücrelere çift tıkladığında mevcut olan "Fatura" sayfasını kopyalayıp bu sayfaya çift tıklanan hücrede yazan rakam adına sahip oluyor.
bunun yanında açılan sayfada "L5" hücresine de bu çift tıklanan hücredeki rakamı nasıl yazabilirim.
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
On Error GoTo Son
Dim Sayfa As String
If ActiveSheet.Name <> "Faturalar" Then
Sheets("Faturalar").Select
Else
Sayfa = Target.Value
If Sayfa <> "" Then Sheets(Sayfa).Select
End If
Exit Sub
Son:
If Intersect(Target, Sheets("Faturalar").[A:A]) Is Nothing Then Exit Sub
Sor = MsgBox(Target.Value & " Adlı Sayfa Yok, Eklemek İster Misiniz? ", vbYesNo, Target.Value & " Adlı Sayfanın Açılması")
If Sor = vbYes Then
Sheets("Fatura").Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = Target.Value
MsgBox Target.Value & " Sayfası Açıldı......", vbOKOnly
End If
End Sub
bunun yanında açılan sayfada "L5" hücresine de bu çift tıklanan hücredeki rakamı nasıl yazabilirim.
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
On Error GoTo Son
Dim Sayfa As String
If ActiveSheet.Name <> "Faturalar" Then
Sheets("Faturalar").Select
Else
Sayfa = Target.Value
If Sayfa <> "" Then Sheets(Sayfa).Select
End If
Exit Sub
Son:
If Intersect(Target, Sheets("Faturalar").[A:A]) Is Nothing Then Exit Sub
Sor = MsgBox(Target.Value & " Adlı Sayfa Yok, Eklemek İster Misiniz? ", vbYesNo, Target.Value & " Adlı Sayfanın Açılması")
If Sor = vbYes Then
Sheets("Fatura").Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = Target.Value
MsgBox Target.Value & " Sayfası Açıldı......", vbOKOnly
End If
End Sub
