iki makroyu çalıştırma

[dr_1356]

çift tıklayınnca tarih yazdırmak için aşagıdaki makroyu view code kopyalayınca oldu

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [AB196:AB256]) Is Nothing Then Exit Sub
On Error Resume Next
If Target = "" Then
Target = Date
Target.Offset(0, 1).Select
End If
End Sub

birde başka bir excel sayfasında c hücresine çift tıklayınca d hücresini e ye bölüyor view code kopyalayınca
Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("C:C")) Is Nothing Then Exit Sub
Target = Cells(Target.Row, "D") / Cells(Target.Row, "E")
End Sub

sorum şu bu ikisini ben ayrı ayrı excel dosyasında yapıyorum bunu ikisini tek dosyada ve sayfa 1 de yapmak istiyorum orada wiev code tuşundan başka nasıl yapmalıyım şimdiden teşekürler

 

[İhsan Tank]

çift tıklayınnca tarih yazdırmak için aşagıdaki makroyu view code kopyalayınca oldu

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [AB196:AB256]) Is Nothing Then Exit Sub
On Error Resume Next
If Target = "" Then
Target = Date
Target.Offset(0, 1).Select
End If
End Sub

birde başka bir excel sayfasında c hücresine çift tıklayınca d hücresini e ye bölüyor view code kopyalayınca
Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("C:C")) Is Nothing Then Exit Sub
Target = Cells(Target.Row, "D") / Cells(Target.Row, "E")
End Sub

sorum şu bu ikisini ben ayrı ayrı excel dosyasında yapıyorum bunu ikisini tek dosyada ve sayfa 1 de yapmak istiyorum orada wiev code tuşundan başka nasıl yapmalıyım şimdiden teşekürler

Merhaba
Bu şekilde dener misiniz_?

Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 3 Then
If Intersect(Target, Range("C:C")) Is Nothing Then Exit Sub
Target = Cells(Target.Row, "D") / Cells(Target.Row, "E")
ElseIf Target.Column = 28 Then
If Intersect(Target, [AB196:AB256]) Is Nothing Then Exit Sub
On Error Resume Next
If Target = "" Then
Target = Date
Target.Offset(0, 1).Select
End If
End If
End Sub

 

[dr_1356]

teşekür ederim cevabın için ama olmadı

 

[dr_1356]

yani tarih oldu ama bölme olmadı

 

[İhsan Tank]

yani tarih oldu ama bölme olmadı

şu dosyanızı ekleseniz

 

[dr_1356]

dosyayı gönderiyorum ama ben bölmeyi şöyle uyarladım bv ye çift tıklayınca ck bölü dg oluyor onu belirtiyim teşekürler

 

[İhsan Tank]

dosyayı gönderiyorum ama ben bölmeyi şöyle uyarladım bv ye çift tıklayınca ck bölü dg oluyor onu belirtiyim teşekürler

Sizce çalışmaması normal değil mi_?
Ben 3 ve 28. sütunlara göre yapmıştım şimdi
74 ve 28. sütunlarda olması gerekiyor

Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 74 Then
If Intersect(Target, Range("BV:BV")) Is Nothing Then Exit Sub
Target = Cells(Target.Row, "CK") / Cells(Target.Row, "DG")
ElseIf Target.Column = 28 Then
If Intersect(Target, [AB196:AB256]) Is Nothing Then Exit Sub
On Error Resume Next
If Target = "" Then
Target = Date
Target.Offset(0, 1).Select
End If
End If
End Sub

 

[dr_1356]

çok teşekür ediyorum bana çok yardımcı oldunuz

 

[dr_1356]

ya ihsan tank çok oluyorum ama şunuda yapabilirmisiniz aynı örnek önce gönderdigim örnek dosyada fakat aynı sayfada olcak bu yaptıklarına ilaveten bj çift tıklayınca ck bölü dn ve ay çift tıklayınca ck bölü du, am çift tıklayınca ck bölü eb olsun çok oluyorum ama tam istedigim bişey olacak teşekürler şimdiden

 

[dr_1356]

tamam gerek kalmadı iyi geceler

 

[İhsan Tank]

çok teşekür ediyorum bana çok yardımcı oldunuz

Rica ederim
:keyif: