Çözüldü Mükerrer kayıtta en sonrakinin yanına yazma

[bthn35]

Merhaba,
Örnek excel'in ARIZA_GIRIS sekmesinde B1'deki seri numarayı, ARIZA_LISTE sekmesindeki A sütununda bulup mükerrer olanların arasından en alta eklenmiş olanın sağına ARIZA_GIRIS sekmesindeki B2'den B4'e kadar olan alanları yapıştırmak istiyorum. Bunu makro ile yapabilir miyiz?

 

[dEdE]

Seri No B1 de değil mi?

Sub Test()
Set s1 = Sheets("ARIZA_GIRIS")
Set s2 = Sheets("ARIZA_LISTE")
ss2 = s2.Cells(Rows.Count, "A").End(3).Row
    For i = ss2 To 2 Step -1
        If s2.Cells(i, 1) = s1.Cells(1, 2) Then
            s1.Range("B2:B4").Copy
            s2.Cells(i, 2).PasteSpecial , , , Transpose:=True
            Exit Sub
        End If
    Next
End Sub

 

[bthn35]

Evet haklısınız, B1 olacaktı

 

[dEdE]

Yukarıdaki kodu dener misiniz?

 

[bthn35]

Çalıştı, çok teşekkür ederim