Filtreli alana veri kopyalamak

[truvaliman]

Merhaba arkadaşlar, benim yapmak istediğim iki tarih arasını filtrelediğim zaman bu filtreli alana sadece veriyi kopyalayıp yapıştırmak istiyorum ama yapamadım. komut ile açılan userformdan tarih girişlerini ve verileri gireceğim. Örnek dosya ektedir. İlgilenecek arkadaşlara şimdiden teşekkür ederim.

 

[Ömer]

Merhaba,

İstediğiniz bu mu?

Private Sub CommandButton1_Click()
    
    Dim son As Long, trh1 As Date, trh2 As Date, a As Range
    
    son = Cells(Rows.Count, "A").End(xlUp).Row
    
    trh1 = TextBox1.Text
    trh2 = TextBox2.Text
    
    Range("A4:B" & son).AutoFilter Field:=1, Field:=1, Criteria1:= _
        ">=" & CDbl(trh1), Operator:=xlAnd, Criteria2:="<=" & CDbl(trh2)
        
    For Each a In Range("A5:A" & son).SpecialCells(xlCellTypeVisible)
        a.Offset(0, 1) = TextBox3.Text
    Next a
    
End Sub

.

 

[truvaliman]

Merhaba,

İstediğiniz bu mu?

Private Sub CommandButton1_Click()
    
    Dim son As Long, trh1 As Date, trh2 As Date, a As Range
    
    son = Cells(Rows.Count, "A").End(xlUp).Row
    
    trh1 = TextBox1.Text
    trh2 = TextBox2.Text
    
    Range("A4:B" & son).AutoFilter Field:=1, Field:=1, Criteria1:= _
        ">=" & CDbl(trh1), Operator:=xlAnd, Criteria2:="<=" & CDbl(trh2)
        
    For Each a In Range("A5:A" & son).SpecialCells(xlCellTypeVisible)
        a.Offset(0, 1) = TextBox3.Text
    Next a
    
End Sub

.

Merhaba Ömer bey, evet aynen tam istediğim buydu. Çok teşekkür ederim elinize sağlık.