Seçilen satırı diğer sayfaya aktarma

[fahricanb]

Merhabalar.

Yaklaşık 2 yıldır dönem dönem uğraşıp bir türlü yapamadığım bir makro var. Maalesef benzer bir örneğini de bulamadım

Ne yapmaya çalıştığımı detaylı bir şekilde dosyada anlattım. Özetle, butona bastığımızda bir değer girmemiz istenecek. Bu değeri masterlist sayfasında A sutünunda bulacak ve değer hangi satırdaysa, o satırı list2 sayfasına aktaracak. Aktarırken bazı sütunların aktarılacağı karşılık list2de yok. Yalnızca list2 de bulunan sütunları aktarması gerekiyor.

Aktardıktan sonra satırı A hücresi hariç temizleyecek.

Eğer ayrıca yanlarına açıklamalarını da eklerseniz, bende nasıl olduğu öğrenmiş olurum.

Yardımlarınız için teşekkürler.

İyi çalışamalar.

 

[turist]

Sayın fahricanb , forumumuza hoş geldiniz.
Ekli dosyayı deneyiniz.

 

[veyselemre]

Sayın turist,in çözümü çok güzel, müsadesiyle; onun kodlarını biraz kısaltmak istedim.

Private Sub ComboBox1_Change()
    adr = "A|,D|,E|,G|,H|,I|,J|,K|,L|,M|,N|,O|,P|,Q|,R|,T|,X|,Y|,Z|,AA|,AB|,AC|"
    eRow = Me.ComboBox1.ListIndex + 2
    Sheets("masterlist").Range(Replace(adr, "|", eRow)).Copy Sheets("list2").Cells(Rows.Count, 1).End(xlUp).Offset(1)
    Sheets("masterlist").Range("B" & eRow & ":AC" & eRow).ClearContents
    Unload Me
End Sub
Private Sub UserForm_Initialize()
    Me.ComboBox1.RowSource = "masterlist!" & Sheets("masterlist").Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row).Address
End Sub

 

[turist]

Sayın veyselemre ,
Elinize sağlık, sağolun.

 

[fahricanb]

Cevaplar için her ikinize de çok teşekkür ederim.

Fakat ben ekteki dosyaya göre düzenleme yapmaya çalıştığımda derleme esnasında hata alıyorum. Hangi kısmı düzenlemem gerekiyor? @turist @veyselemre