leventm moderatör arkadaşım aşağıdaki kodu A sütunu için vermiş. Ben f sütununda arama yapmak ve g sütununa yine veriler eş ise 1 yazdırmak istiyorum nasıl bir değişiklik yapmam lazım acaba?
saygılar
----------------------------------------------------------------------------
leventm:
Aşağıdaki kodu deneyin. A sütununa göre çalışır. Mükerrer kayıtların yanındaki sütuna (B sütunu) 1 (bir) yazacaktır.
visual basic kodu:
--------------------------------------------------------------------------------
Sub ayniolanlaribul()
For a = 1 To [a65536].End(3).Row
If WorksheetFunction.CountIf(Columns("a"), Cells(a, "a")) > 1 Then Cells(a, "b") = 1
Next
End Sub
saygılar
----------------------------------------------------------------------------
leventm:
Aşağıdaki kodu deneyin. A sütununa göre çalışır. Mükerrer kayıtların yanındaki sütuna (B sütunu) 1 (bir) yazacaktır.
visual basic kodu:
--------------------------------------------------------------------------------
Sub ayniolanlaribul()
For a = 1 To [a65536].End(3).Row
If WorksheetFunction.CountIf(Columns("a"), Cells(a, "a")) > 1 Then Cells(a, "b") = 1
Next
End Sub