aktarma işlemi

[Yesilyurtlu]

iki tane sayfam var.
1. sayfam hesaplama
2.sayfam bordro
1. sayfam 3. satır başlayıp 19.sütuna kadar devam ediyor.
1.sayfada istediğim kişinin satırına gelip AKTAR düğmesine tıklayınca 2. sayfama aktarılsın.
mükerrer aktarmaya müsade etmesin.
aktarırken b sütununa göre alfabetik aktarsın.

Rica etsem bu konuda yardımcı olabilir misiniz?

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

Sub SatirdakiniAktar()
 
    Dim sat As Long, son As Long
    
    Sheets("Hesaplama").Select
    
    With Sheets("Bordro")
        sat = ActiveCell.Row
        If .Range("B3") = "" Then
            son = 3
        Else
            son = .Cells(Rows.Count, "B").End(xlUp).Row + 1
        End If
        Rows(sat).Copy .Cells(son, "A")
        .Range("A3:S" & Rows.Count).Sort .Range("B3")
        .Range("A3") = 1
        .Range("A3").DataSeries xlColumns, xlLinear, xlDay, 1, son - 2
    End With
 
End Sub

.

 

[Yesilyurtlu]

Ömer abi ;
Sabırla sorularımıza yardımcı olduğunuz için teşekkürler ederim
Allah Razı olsun Abim

 

[Ömer]

Rica ederim. Allah hepimizden razı olsun.