satır sayısı

[polist]

arakdaşlar kolay gelsin.

kendim öğrenmek amacıyla makro kaydetten a,b ve c sutunlarına değişken veriler girip yınelenlerı kaldırdım.
tabi sarı renklı kısımdakı satır sayıları farklı olunca , önceki kaydettiğim makro satır sayısını baz alıyor nasıl duzenleyebılırız?

yardımlarınız işin teşekkurler

https://s6.dosya.tc/server8/9mymga/FRM_.xlsm.html

 

[Greenblacksea53]

Windows 11, virüs olarak algıladı.
Aşağıda bilgi amaçlı son satırı nasıl bulacağın ve ayrıca kayit sayısını nasıl bulacağını birakıyorum.

kayitSayisi = Sheets("Sayfa1").Cells(Rows.Count, "A").End(xlUp).Row

SonSatır = Application.WorksheetFunction.CountA(Worksheets("Sayfa1").Range("B:B")) + 1

 

[polist]

Ekli dosyayı görüntüle 237467
Windows 11, virüs olarak algıladı.
Aşağıda bilgi amaçlı son satırı nasıl bulacağın ve ayrıca kayit sayısını nasıl bulacağını birakıyorum.

kayitSayisi = Sheets("Sayfa1").Cells(Rows.Count, "A").End(xlUp).Row

SonSatır = Application.WorksheetFunction.CountA(Worksheets("Sayfa1").Range("B:B")) + 1

hocam aynı pc den bi kaç arkadaş da giriyor virüs için üzgünüm

Sub Makro1()
'
' Makro1 Makro
'

'
    Range("A1").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Range("H1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("B1").Select
    Range(Selection, Selection.End(xlDown)).Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("H1").Select
    Selection.End(xlDown).Select
    Range("H13").Select
    ActiveSheet.Paste
    Range("C1").Select
    Range(Selection, Selection.End(xlDown)).Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("H1").Select
    Selection.End(xlDown).Select
    Range("H29").Select
    ActiveSheet.Paste
    Columns("H:H").Select
    Application.CutCopyMode = False
    ActiveSheet.Range("$H$1:$H$37").RemoveDuplicates Columns:=1, Header:=xlNo
End Sub

sizin verdiğiniz kodları nereye ekleyeceğim hocam , yardımcı olabılırmısınız ?

 

[Greenblacksea53]

https://www.excel.web.tr/threads/benzersiz-veri-listeleme.201701/

Telefondan yazıyorum yukarıdaki linki inceler misin ?

 

[polist]

https://www.excel.web.tr/threads/benzersiz-veri-listeleme.201701/

Telefondan yazıyorum yukarıdaki linki inceler misin ?

hocam süpersiniz .. tam istediğim gibi tşklr..