Tarih Aktarma

[sirkülasyon]

B4 : C aralığında yapmak istediğim mantık:

B ve C aralığında ilk çift tık ile seçtiğim hücredeki tarih F8 hücresine, ikinci çift tık ile seçtiğim hücredeki tarih G8 hücresine alt alta gelecek şekilde bir makroya ihtiyacım var. Eğer mümkün ise yardımcı olabilir misiniz?

 

[Necdet]

Merhaba,

Aşağıdaki kodları ilgili sayfanın kod bölümüne kopyalayıp dener misiniz.

Not : Dosya ilk açıldığında ilk çift tıklama F sütununa yazar. Son durumdan devam etmesini isterseniz TC değişkeni yerine sayfadan bir hücre kontrolü yapılabilinir.

Dim TC As Boolean

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

    If Intersect(Target, [B:C]) Is Nothing Or Target.Row < 4 Or Target.Value = "" Then Exit Sub
    Dim i As Long
    
    If TC = False Then
        i = Cells(Rows.Count, "F").End(3).Row + 1
        If i < 4 Then i = 4
        Cells(i, "F") = Target.Value
        TC = True
    Else
       i = Cells(Rows.Count, "G").End(3).Row + 1
        If i < 4 Then i = 4
        Cells(i, "G") = Target.Value
        TC = False
    End If
    
End Sub

 

[sirkülasyon]

Necdet Abi
Eline koluna canına sağlık. Hakkını helal et. Sağ Olasın

 

[Necdet]

Rica ederim, güle güle kullan. Sorunun çözülmesi önemli.