Çözüldü Doubleclick ile tarih

[sirkülasyon]

Değerli üstadlar
A sütununda Çift tık ile oluşan TİK işareti ile;

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("A5:A200")) Is Nothing Then
        Cancel = True
        With Target
            .Font.Name = "Wingdings"
            .Font.Size = 12
            .HorizontalAlignment = xlCenter
        End With
        If Target.Value = "ü" Then
            Target.Value = ""
        Else
            Target.Value = "ü"
        End If
    End If
End Sub

kodu mevcut.
Bu koda M sütununa tarih atmasını istiyorum.

A sütununda hangi sütuna çift tık yaparsam aynı satırın M sütununa tarih atsın.
Eğer çift tık ile TİK işaretini kaldırırsam da tarih silinsin.

Teşekkür eder saygılarımı sunarım.

 

[arcilingir]

bunu deneyin...

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("A5:A200")) Is Nothing Then
Cancel = True
With Target
.Font.Name = "Wingdings"
.Font.Size = 12
.HorizontalAlignment = xlCenter
End With
If Target.Value = "ü" Then
Target.Value = ""
Target.Offset.Offset(0, 12) = ""
Else
Target.Value = "ü"
Target.Offset.Offset(0, 12) = Date
End If
End If
End Sub

 

[çıtır]

If Target.Value = "ü" Then
altına

Cells(Target.Row, "M") = ""

Else
altına

Cells(Target.Row, "M") = Format(Now, "dd.mm.yyyy")

kopyalayınız.

 

[sirkülasyon]

Sayın ÇITIR
Teşekkür ederim. Elinize sağlık.

 

[çıtır]

Sayın ÇITIR
Teşekkür ederim. Elinize sağlık.

Rica ederim.Dönüş yaptığınız için teşekkür ederim.

 

[sirkülasyon]

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("A5:A200")) Is Nothing Then
        Cancel = True
        With Target
            .Font.Name = "Wingdings"
            .Font.Size = 12
            .HorizontalAlignment = xlCenter
        End With
        If Target.Value = "ü" Then
        Cells(Target.Row, "M") = ""
            Target.Value = ""
        Else
        Cells(Target.Row, "M") = Format(Now, "dd.mm.yyyy")
            Target.Value = "ü"
        End If
    End If
End Sub

A5:A200 sütununa double click yaptığım zaman tik işareti atıyor.
B5:B200 sütununda da sıralama numarası var.
A5:A200 sütununda hangi satıra doubleclick yapılırsa B sütununda yazan rakamın Sözleşme sayfasında I2 hücresine yazmasını nasıl sağlayabilirim?

Teşekkür eder saygılarımı sunarım.

 

[Korhan Ayhan]

Deneyiniz.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Range("A5:A200")) Is Nothing Then
        Cancel = True
        With Target
            .Font.Name = "Wingdings"
            .Font.Size = 12
            .HorizontalAlignment = xlCenter
        End With
        If Target.Value = "ü" Then
            Cells(Target.Row, "M") = ""
            Target.Value = ""
            Sheets("Sözleşme").Range("I2") = ""
        Else
            Cells(Target.Row, "M") = Format(Now, "dd.mm.yyyy")
            Target.Value = "ü"
            Sheets("Sözleşme").Range("I2") = Target.Next.Value
        End If
    End If
End Sub

 

[sirkülasyon]

Korhan abi teşekkür ederim.
Hakkınızı helal edin