birden fazla birleştirilmiş hücrenin süzülerek kopyalanması

[euphrates55]

https://drive.google.com/open?id=0B0yXS8RObFusSkJoakZhdEdRMTg
merhaba, ekteki örnekte filtre uyguladığımda (örnekte amasya iline göre filtreleme yaptım) sarıyla boyalı kısmı göründüğü gibi sayfa2 ye nasıl kopyalarım.

 

[euphrates55]

anlaşılan olmuyor istediğim... peki filtrelenmemiş hali ile sayfa2 ye formülle ama alt alta ve tek satır olacak şekilde aktarımım nasıl olur. sonuçta sayfa2 de filtreleme yapabilirim.

 

[nrtnnr]

bana da yardım

Arkadaslar merhaba ;

bende birşey sormak istiyorum

excel 1 sayfasında olan bir bılgılıyı sayfa 2 de koşullu olarak oraya yazdırmak istiyrorum.
Örneğin
sayfa 1 excel kutusun seçili olan kutucugun içinde a firması ( bu kutuda b c d .. firmalar ben a firmasının seçiyorum) var ise sayfa 2 de seçili kutucugun içine A firmasının karşısındaki değeri kutuçuga yaz

şeklinde yapmak istiyorum ama bunu nasıl yapacağım bir türlü bulamadım düşeyara yaptım cok basarısılı sonuç ver miyor

 

[esalci]

http://s9.dosya.tc/server3/yyhc61/ornek.xlsx.html

 

[euphrates55]

http://s9.dosya.tc/server3/yyhc61/ornek.xlsx.html

teşekkürler, bu yaptığınızda çoklu seçim yapamıyorum sanırım. kopyalama yapıştırma yöntemi varsa tam olarak işimi görecektir. makro vs ile yapılabiliyormu acaba.

 

[esalci]

Çoklu seçimleri tek tek seçip ayrı bir sayfaya alt alta değer olarak yapıştırabilirsin.

 

[euphrates55]

Çoklu seçimleri tek tek seçip ayrı bir sayfaya alt alta değer olarak yapıştırabilirsin.

kendime uyarlamaya çalışacağım. beceremezsem yardım alırım sizden. tekrar teşekkürler.

 

[Korhan Ayhan]

Alternatif;

Kod ile aktarım yapmayı deneyebilirsiniz.

Sub AKTAR()
    Dim S1 As Worksheet, S2 As Worksheet
    Dim Son As Long, X As Long, Aranan As Variant, Satir As Long
    
    Set S1 = Sheets("GT")
    Set S2 = Sheets("Sayfa1")
        
    S2.Cells.Delete
    Satir = 3
    Son = S1.Cells(S1.Rows.Count, 1).End(3).Row

    Aranan = Application.InputBox("Lütfen aktarmak istediğiniz il adını giriniz.", "İL SEÇİMİ")
    If Aranan = "" Or Aranan = False Then Exit Sub
    
    For X = 9 To Son
        If S1.Cells(X, "C") = Aranan Then
            S1.Range("A" & X & ":A" & X + 6).EntireRow.Copy S2.Cells(Satir, 1)
            Satir = S2.Cells(S2.Rows.Count, 1).End(3).Row + 7
        End If
    Next
    
    MsgBox "Aktarım işlemi tamamlanmıştır.", vbInformation
End Sub

 

[euphrates55]

teşekkürler. istediğim olmuyor sanırım. ben gt sayfasında filtreleme yaptığım zaman ki bu çoklu olabiliyor ve başka başka filtrelemeler de olabiliyor, bunları boş bir sayfaya göründüğü gibi ve tek satır olarak kopyalamak istiyordum. tüm cevap veren arkadaşlara tekrar teşekkürler.