yeni satır eklemek ve verileri aktarmak

[metinavci23]

arkadaşlar merhaba.

yapmak istediğim bir sayfadaki verileri diğer sayfaya aktarmak yalnız satır ekleyerek.ekteki dosyada ne yapmak istediğimi belirttim.aktarmalar sicil numurasını baz alacak .yardımlarınız için şimdiden teşekür

 

[metinavci23]

çok mu zor soru sordum???

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Sub AKTAR()
    Set S1 = Sheets("veri")
    Set S2 = Sheets("aktarılacak")
    S2.Select
    Columns("B:B").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("IV1"), Unique:=True
    For X = 2 To [IV65536].End(3).Row
    SAY1 = WorksheetFunction.CountIf(S1.[B:B], Cells(X, 256))
    If SAY1 = 0 Then
    [B1].AutoFilter Field:=1, Criteria1:=Cells(X, 256)
    SATIR = [B65536].End(3).Row
    If SATIR > 1 Then
    Range("B2:E" & SATIR).Copy S1.[B65536].End(3).Offset(1)
    End If
    Else
    SAY2 = WorksheetFunction.CountIf(S2.[B:B], Cells(X, 256))
    If SAY1 <> SAY2 Then
    BUL = S1.[B:B].Find(Cells(X, 256), LookAt:=xlWhole).Row
    S1.Rows("" & BUL + 1 & ":" & BUL - 1 + SAY2).Insert
    [B1].AutoFilter Field:=1, Criteria1:=Cells(X, 256)
    SATIR = [B65536].End(3).Row
    If SATIR > 1 Then
    Range("B2:E" & SATIR).Copy S1.Cells(BUL, 2)
    End If
    End If
    End If
    Next
    Columns("IV:IV").Clear
    [B1].AutoFilter
    Set S1 = Nothing
    Set S2 = Nothing
    MsgBox "&#304;&#351;leminiz tamamlanm&#305;&#351;t&#305;r.", vbInformation
End Sub

 

[metinavci23]

cevap

Korhan Bey Teşekürler

artık kimse cevap vermeyecek diye korkmaya başlamıştım.yine siz yaddımcı oldunuz..süper olmuş.tekrar teşekür ederim.

 

[S.Yiğit]

Korhan Bey Teşekürler

artık kimse cevap vermeyecek diye korkmaya başlamıştım.yine siz yaddımcı oldunuz..süper olmuş.tekrar teşekür ederim.

Ben kod yazmakdan hiç anlamam ama burda hocalarımızın yoğun olduklarını ve çözüm buldukları herşeye cvp verdiklerini iyi biliyorum.. Sadece Sabır diyorum..

Elinize sağlık Sy Korhan hocam..