Çözüldü Alt Alta sıra numaralı ve alfabetik olarak kaydetme

[sirkülasyon]

Değerli üstadlarım
KAYIT ve SGK BİLDİRİM adında adında iki tane sayfam var.
KAYIT sayfamın A3:A500 arasına çift tıklatınca satırdaki
SGK BİLDİRİM sayfasında A5:A500 Sıra numarası verecek
Çift tıkladığım KAYIT sayfamdaki C3:C500 SGK BİLDİRİM sayfasında B5:B500
Çift tıkladığım KAYIT sayfamdaki E3:E500 SGK BİLDİRİM sayfasında C5:C500
Çift tıkladığım KAYIT sayfamdaki G3:G500 SGK BİLDİRİM sayfasında D5: D500 (0 (000) 000 00 00 Formatında
Çift tıkladığım KAYIT sayfamdaki H3:H500 SGK BİLDİRİM sayfasında E5:E500
Çift tıkladığım KAYIT sayfamdaki J3:J500 SGK BİLDİRİM sayfasında F5:F500
Çift tıkladığım KAYIT sayfamdaki K3:K500 SGK BİLDİRİM sayfasında G5:G500
Çift tıkladığım KAYIT sayfamdaki L3:L500 SGK BİLDİRİM sayfasında H5:H500
Çift tıkladığım KAYIT sayfamdaki M3:M500 SGK BİLDİRİM sayfasında I5:I500
Çift tıkladığım KAYIT sayfamdaki P3: P500 SGK BİLDİRİM sayfasında J5:J500
Çift tıkladığım KAYIT sayfamdaki Q3:Q500 SGK BİLDİRİM sayfasında K5:K500
Çift tıkladığım KAYIT sayfamdaki R3:R500 SGK BİLDİRİM sayfasında L5:L500
Çift tıkladığım KAYIT sayfamdaki S3:S500 SGK BİLDİRİM sayfasında M5:M500

Kayıt sayfasında aynı satırdaki bilgileri aktarırken mükerrer kontrolü yapacak şekilde alt alta alfabetik olarak aktarabilmem için makro konusunda yardımcı olabilir misiniz?

 

[yanginci34]

GÜnaydın. Örnek dosya yüklerseniz çok daha iyi olacaktır.

 

[sirkülasyon]

Sayın yanginci34 hayırlı sabahlar
İlgili Dosya Linki

Teşekkür ederim

 

[sirkülasyon]

If Not Intersect(Target, Range("A3:A65536")) Is Nothing Then
Dim Sb As Worksheet, Sa As Worksheet, son_b As Long, son_a As Long

Set Sb = Sheets("KAYIT")
Set Sa = Sheets("SGK")

son_b = WorksheetFunction.Count(Sb.Range("B3:B" & Rows.Count))
son_a = Sa.Cells(Rows.Count, "B").End(xlUp).Row + 1
If Sa.Range("B5") = "" Then son_a = 4
Application.ScreenUpdating = False
Sheets("SGK").Range("b5").Value = Target.Offset(0, 2).Value
Sheets("SGK").Range("c5").Value = Target.Offset(0, 4).Value
Sheets("SGK").Range("d5").Value = "0" & " " & Format(Target.Offset(0, 6).Value, "(#) ### ## ##")
Sheets("SGK").Range("e5").Value = Target.Offset(0, 19).Value
Sheets("SGK").Range("f5").Value = Target.Offset(0, 9).Value
Sheets("SGK").Range("g5").Value = Target.Offset(0, 10).Value
Sheets("SGK").Range("h5").Value = Target.Offset(0, 11).Value
Sheets("SGK").Range("ı5").Value = Format(Target.Offset(0, 12).Value, "#,##0.00")
Sheets("SGK").Range("j5").Value = Format(Target.Offset(0, 15).Value, "#,##0.00")
Sheets("SGK").Range("k5").Value = Target.Offset(0, 16).Value
Sheets("SGK").Range("l5").Value = Target.Offset(0, 17).Value
Sheets("SGK").Range("m5").Value = Format(Target.Offset(0, 18).Value, "dd.mm.yyyy")

Alt alta aktarması ve aktardıkça A3 ten itibaren sıra numarasının verilmesi için düzenleme yapamadım.
Yardıımcı olabilir misiniz?

 

[yanginci34]

Dosyayı denermisiniz.
https://dosya.co/4syu2fvzwncr/çalışma_soru_son_hali.xlsm.html

 

[sirkülasyon]

Üstad
Allah senden razı olsun. Ellerine sağlık.
Çok çok teşekkür ederim. Hakkını helal et.
Selam ve Dua ile

 

[yanginci34]

Üstad
Allah senden razı olsun. Ellerine sağlık.
Çok çok teşekkür ederim. Hakkını helal et.
Selam ve Dua ile

Rica ederim. Allah hepimizden razı olsun benim hakkım helal olsun sizde hakkınızı helal edin. Iyi geceler

GM 8 d cihazımdan Tapatalk kullanılarak gönderildi