Soru Sayfa birde seçilen bazı yazıları otomatik sayfa ikiye taşımak

[SnakErdem]

Aşağıda gözüktüğü gibi mesela firma ekranında bulunan c1, c3, c7 ve c10 firmalarının isimleri ile beraber ürünleri sayfa ikiye taşımak için ne yapabilirim ?

 

[veyselemre]

G Sütununu FİRMA başlığı altında oluşturun. Sheet2 ye listeleme yapacaktır.

Sub test()
    Sheets("Sheet2").Range("B:E").ClearContents
    With Sheets("Sheet1")
        .Range("B1:E" & .Cells(Rows.Count, 2).End(3).Row).AdvancedFilter _
        Action:=xlFilterCopy, CriteriaRange:=.Range("G1:G5"), CopyToRange:=Sheets("Sheet2").Range("B1")
    End With
End Sub

 

[SnakErdem]

Ekli dosyayı görüntüle 241383
G Sütununu FİRMA başlığı altında oluşturun. Sheet2 ye listeleme yapacaktır.

Sub test()
    Sheets("Sheet2").Range("B:E").ClearContents
    With Sheets("Sheet1")
        .Range("B1:E" & .Cells(Rows.Count, 2).End(3).Row).AdvancedFilter _
        Action:=xlFilterCopy, CriteriaRange:=.Range("G1:G5"), CopyToRange:=Sheets("Sheet2").Range("B1")
    End With
End Sub

Teşekkür ederim

 

[SnakErdem]

Peki B:E sütununda bulunan her şeyi değil de sadece seçtiğim sütunlar için nasıl bir düzenleme yapmam lazım

 

[veyselemre]

.Range("B1: D" & .Cells(Rows.Count, 2).End(3).Row)
.Range("B1:C" & .Cells(Rows.Count, 2).End(3).Row)

gibi sütun atlamadan yapabilirsiniz. Her komut her isteğe, her dataya uygun cevap vermez,
her sorunun kendine göre değişik yöntemler vardır.

 

[SnakErdem]

Çok teşekkür ederim Veysel Bey