• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

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

Katılım
28 Eylül 2017
Mesajlar
1
Excel Vers. ve Dili
2010
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
 
Merhaba
Aşağıdaki mavi bölümleri asıl dosyanıza göre uyarlayıp deneyin.
Kod:
[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
 
Geri
Üst