Belirli Şartlama Göre Satır Bilgilerini Diğer Sayfaya Kopyalamak

[CyprusAskeri]

Merhaba arkadaşlar,

Şu an kıbrısta askerim ve acil bir yardıma ihtiyacım var. komutanımızın emri çok uğraştım ama çözemedim yardımcı olursanız sevinirim.

benim istediğim gönderdiğim dosyada ilk sayfada X Y Z kullanıcıları var. Onların altında da hangi üründen kaç adet kullandığı yazıyor. X kullanıcısının altına butona tıkladığımda altında hangi ürün karşısında sayı değeri varsa solundaki satırla birlikte 2 sayfaya belirttiğim satıra direk kopyalamak.

örnek dosya:
http://dosya.co/juxz4ampvanp/ornek.xlsx.html

 

[PLİNT]

Merhaba
Aşağıdaki mavi bölümleri asıl dosyanıza göre uyarlayıp deneyin.

[SIZE="2"]Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Selection.Count > 1 Or Target.Row <> 1 Or Target.Column < 2 Then Exit Sub
If ActiveCell = "" Then Exit Sub
[COLOR="Blue"]Sayfa2[/COLOR].Cells.ClearContents
a = Cells(Rows.Count, "A").End(3).Row
With [COLOR="blue"]Sayfa1[/COLOR]
.Range("$A$1:[COLOR="blue"]$D$[/COLOR]" & a).AutoFilter Field:=x, Criteria1:="<>"
.Range("$A$2:$A$" & a).SpecialCells(xlCellTypeVisible).Cells.Copy [COLOR="blue"]Sayfa2[/COLOR].[A2]
[COLOR="Blue"]Sayfa2[/COLOR].[B1].Value = .[B1].Value
.Range(Cells(Target.Row + 1, Target.Column), Cells(a, Target.Column)).SpecialCells(xlCellTypeVisible).Cells.Copy [COLOR="blue"]Sayfa2[/COLOR].[B2]
.Range("$A$1:[COLOR="blue"]$D$[/COLOR]" & a).AutoFilter
.[A1].Select
 End With
[COLOR="blue"]Sayfa2[/COLOR].Activate
End Sub[/SIZE]

Ek dosya
http://dosya.co/hamlqjfjcsec/ornek2.zip.html?killcode=b8in6c52eh