çif tıklama ile diğer sayfaya geçme

[Ayşavkı]

--------------------------------------------------------------------------------

herkese merhaba!! sayın Evren Gizlen bey'in emeği olan ekteki dosyayı kullanmaktayım. A sütunundaki herhangi bir numaraya çift tıkladığımda harcama sayfasına aktarma yapmakta. ilave olarak çift tıkladığımızda otomatikman harcama sayfası ekrana gelebilirmi ? bunun için kodlara nasıl bir ilave yapmak gerekir? şimdiden teşekkürler SAYGILAR !!!
yani çift tıkladığımda aktarsın aynı anda harcama sayfasına geçilsin ekrana gelsin.

 

[Orion1]

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("A2:A" & Cells(65536, "A").End(xlUp).Row)) Is Nothing Then Exit Sub
Cancel = True
With Sheets("Harcama")
    .Cells(3, "A").Value = Target.Value
    .Cells(3, "C").Value = Target.Offset(0, 1).Value
    .Cells(14, "C").Value = Target.Offset(0, 2).Value
    .Cells(8, "C").Value = Target.Offset(0, 3).Value
    .Cells(15, "C").Value = Target.Offset(0, 4).Value
    .Cells(17, "B").Value = Target.Offset(0, 5).Value
    [B][COLOR="Red"][SIZE="3"].Select[/SIZE][/COLOR][/B]
End With
    
End Sub

 

[Ayşavkı]

Sayın Evren Bey!!! hepsi bu kadarmı idi ya!! çok teşekkür ederim! hay Allah yaa. SAYGILAR!!!

 

[Orion1]

Sayın Evren Bey!!! hepsi bu kadarmı idi ya!! çok teşekkür ederim! hay Allah yaa. SAYGILAR!!!

Evet.Bu kadarcık b,r şeydi.
İyi çalışmalar.

 

[kanazawa]

Evren bey,
Cift tiklayinca gerekli makroyu calistiran bir kod alabilirmiyim.Yani bir makrom var ve hakem koduna tıklayıp sonra makro calistiriyorum...Cift tiklayinca makro nasil cagirilacak.

Simdiden cok tesekkurler.