Düşeyara formülünü uygulayamadım

[kgdsa]

Merhaba elimde bir excell dosyası var 01.02.2023 tarihinin yanında sutunüna 30 yazdım tüm o tarihteki verilere 30 değerini yazsın istiyorum. Mümkünse Makro ile olursa daha iyi olur.

Örnek dosyayı paylaşıyorum : https://dosya.co/e6tpsizbacx2/MAYIS_AYI_FATURA_LİSTESİ.xls.html

 

[Korhan Ayhan]

Merhaba,

Sayfanızın kod bölümüne uygulayıp deneyiniz.

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim My_Date As Date, Find_Date As Range, First_Address As String
    
    If Intersect(Target, Range("B2:B" & Rows.Count)) Is Nothing Then Exit Sub
    
    On Error GoTo 10
    
    Application.EnableEvents = False
    My_Date = Cells(Target.Row, 1)
    Set Find_Date = Range("A:A").Find(My_Date)
    If Not Find_Date Is Nothing Then
        First_Address = Find_Date.Address
        Do
            Find_Date.Offset(, 1) = Target
            Set Find_Date = Range("A:A").FindNext(Find_Date)
        Loop While Not Find_Date Is Nothing And Find_Date.Address <> First_Address
    End If
    
    Set Find_Date = Nothing
    
10  Application.EnableEvents = True
End Sub