süz ve başlıksız kopyala

[erginozdemir]

merhaba,

Yapmak istediğim; sayfa1 deki verileri ComboBox taki kritere göre A sütunundan süzmek ve süzülen verileri sayfa1 deki başlıklar (1. satırda sütün başlıkları yer alıyor) hariç sayfa2 de belirttiğim hücreden (örneğin d4 hücresinden) itibaren yapıştırmak.

teşekkürler.
iyi günler.

 

[N.Ziya Hiçdurmaz]

Yanıt

Private Sub ComboBox1_Change()
On Error Resume Next
[A2].Select
ActiveCell.AutoFilter FIELD:=1, Criteria1:=ComboBox1 & "*"
End Sub
Private Sub CommandButton1_Click()
Sheets("Sayfa2").[A2:B100].Clear
Range("A2").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Sheets("Sayfa2").[A2].PasteSpecial
    Application.CutCopyMode = False
End Sub

Private Sub UserForm_Initialize()
ComboBox1.RowSource = "A2:A" & [A65536].End(3).Row
End Sub

 

[erginozdemir]

teşekkürler, V.Basic For Applications