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

bthn35

Altın Üye
Katılım
12 Kasım 2009
Mesajlar
192
Excel Vers. ve Dili
365 ProPlus TR
Altın Üyelik Bitiş Tarihi
17-11-2026
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?
 

Ekli dosyalar

Son düzenleme:

dEdE

Destek Ekibi
Destek Ekibi
Katılım
1 Temmuz 2005
Mesajlar
2,605
Excel Vers. ve Dili
Ofis 2013 TR 64 Bit
Seri No B1 de değil mi?
Kod:
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
 
Son düzenleme:

bthn35

Altın Üye
Katılım
12 Kasım 2009
Mesajlar
192
Excel Vers. ve Dili
365 ProPlus TR
Altın Üyelik Bitiş Tarihi
17-11-2026
Evet haklısınız, B1 olacaktı
 

dEdE

Destek Ekibi
Destek Ekibi
Katılım
1 Temmuz 2005
Mesajlar
2,605
Excel Vers. ve Dili
Ofis 2013 TR 64 Bit
Yukarıdaki kodu dener misiniz?
 

bthn35

Altın Üye
Katılım
12 Kasım 2009
Mesajlar
192
Excel Vers. ve Dili
365 ProPlus TR
Altın Üyelik Bitiş Tarihi
17-11-2026
Çalıştı, çok teşekkür ederim
 
Üst