sütun başlığına göre formül

[GursoyC]

Merhaba,

datasatır = Application.WorksheetFunction.CountA(Sayfa1.Range("D:D"))
kayıttarihi = Range("1:1").Find("Kayıt tarihi").Column
kayıtayı = Range("1:1").Find("Kayıt ayı").Column
Cells(2,kayıtayı).formula =

Bu şekilde bir kod yazdım ancak buradan sonrasını bir türlü kurgulayamadım.
Yapmak istediğim ise düğmeye bastığımda ;
kayıtayı sütununun 2. satırından başlamak üzere datasatır sayısınca satıra, kayıttarihi sütununun kendi satırındaki tarihin "ay" formülünü koymak.

yani kısaca =AY(E2) formülünü yazıp aşağı doğru kopyalama işleminin VBA versiyonu. Tek fark, sütunların yeri değiştiğinde işlem değişmesin diye sütun başlıklarının ismine göre işlem yaptırmaya uğraşıyorum.

Yardımcı olursanız çok sevinirim.

 

[Ömer]

Merhaba,

Deneyiniz.

Private Sub CommandButton1_Click()

    Dim c As Range, sut_t As Integer, sut_a As Integer, son As Long
   
    Set c = Rows(1).Find("Kayıt tarihi", , xlValues, xlWhole)
    If Not c Is Nothing Then
        sut_t = c.Column
    End If
   
    Set c = Rows(1).Find("Kayıt ayı", , xlValues, xlWhole)
    If Not c Is Nothing Then
        sut_a = c.Column
    End If
   
    son = Cells(Rows.Count, sut_t).End(xlUp).Row
   
    Cells(2, sut_a).Resize(Rows.Count - 1, 1) = ""
   
    Cells(2, sut_a).Resize(son - 1, 1).Formula = "=Month(" & Cells(2, sut_t).Address(0, 0) & ")"

End Sub

 

[GursoyC]

Çok teşekkürler Ömer bey, gayet güzel çalışıyor.
Saygılar.