Formülü makroya çevirme

[byfika]

Merhabalar, A sütunundan H sütununa kadar veri girişi yapmaktayım. EĞERSAY($F$2:F2;F2) formülü A sütununa yazıp aşağıya çektiğimde F2:F65536 arası olan aynı olan verileri A sütununda sıra no veriyorum. (Örnek : diyelim ki X verisi f sütununda 10 defa girilmiş A sütununda 1, 2, 3... 10 a kadar sıra no verecek). Formülü anlatığım şartlarda nasıl makro yapabilirim.
Bilgi için teşekkürler..

 

[Korhan Ayhan]

Bu şekilde işinize yarar mı?

Option Explicit

Sub Say()
    Dim Son As Long
    Son = Cells(Rows.Count, "F").End(3).Row
    With Range("A2:A" & Son)
        .Formula = "=COUNTIF(F$2:F2,F2)"
        .Value = .Value
    End With
End Sub

 

[byfika]

Korhan bey, çok teşekkürler.
Saygılarımla...

 

[eceLprensi]

Private Sub CommandButton1_Click()
Dim Son As Long


sutun = UserForm1.TextBox1.Value
sutun2 = UserForm1.TextBox2.Value
Son = Cells(Rows.Count, sutun).End(3).Row
With Range(sutun2 & "2:" & sutun2 & Son)
.Formula = "=COUNTIF(" & sutun & "$2:" & sutun & "2," & sutun & "2)"
.Value = .Value
End With


MsgBox "bitti"
UserForm1.Hide
End Sub


bu şekilde düzenlemeye çalıştım.
Son = Cells(Rows.Count, sutun).End(3).Row takılı kalıyorum.

 

[Korhan Ayhan]

O bölümde neden takıldığını yorumlamak için TextBox1 değerini bilmek gerekir.

 

[eceLprensi]

Aslında değeri dışardan değişken olarak kullanıcı girişine bıraktım.

A sütunu ile B sütunu
yada A sütunu ile D sütunu gibi makroyu başka raporlardada kullanabilmek için.

örnek hazıırlayıp atayım