çift tıklayınca bölme

[dr_1356]

merhabalar arkadaşlar excel sayfasında c hücresine çift tıklayınca d hücresini e hücresine bölecek c hücresine yazacak örnek ektedir cevap verecek arkadaşlar ekteki örnek dosyasını dedigi şekilde makro atarak yaparsa çünkü ben makro yu çalıştıramıyorum bir türlü şimdiden teşekürler

 

[leumruk]

Merhaba,
Kırmızı ile belirttiğim kısma belirli bir aralık da yazabilirsiniz.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range([COLOR="DarkRed"]"c5"[/COLOR])) Is Nothing Then Exit Sub
Cancel = True
Target = Cells(Target.Row, "d") / Cells(Target.Row, "e")
End Sub

 

[İhsan Tank]

merhabalar arkadaşlar excel sayfasında c hücresine çift tıklayınca d hücresini e hücresine bölecek c hücresine yazacak örnek ektedir cevap verecek arkadaşlar ekteki örnek dosyasını dedigi şekilde makro atarak yaparsa çünkü ben makro yu çalıştıramıyorum bir türlü şimdiden teşekürler

Merhaba
Sayfanın kod bölümüne kopyalayın ve deneyin

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

 

[dr_1356]

çek teşekür ediyorum tam istedigim gibi olmuş

 

[İhsan Tank]

çek teşekür ediyorum tam istedigim gibi olmuş

Rica ederim
:keyif: