satırı başka bir sayfaya istediğim kadar kopyalama

[arifgrn]

iyi çalışmalar....

benim yapmak isteğim bir uygulama var...istediğim satırları başka bir sayfaya istediğim kadar kopyalamak istiyorum....

şimdiden teşekkür ederim...

 

[arifgrn]

örnek dosya ekte mevcuttur.....yardım edebilirseniz sevinirim...iyi çalışmalar dilerim...

kısa bir açıklama yapayım....istediğim satırları belirlenen değerde (bu değer değişken olacak, ben belirlicem sabit bir hücreden),kopyalamak istiyorum...nasıl bir makro bunu yapabilir...

 

[Necdet]

Merhaba,
Aşağıdaki kodları Sayfa1'in kod bölümüne kopyalayınız.
Herhangi bir satırda herhangi bir hücrede çift tıkladığınızda o satırı aktaracaktır.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim SonSat As Long
    Dim Adet As Integer
    If Target.Row < 3 Then Exit Sub
    If Range("F" & Target.Row) = "" Then Exit Sub
    SonSat = Sheets("DENEME").[B65536].End(3).Row + 1
    Adet = Range("F" & Target.Row) - 1
    Range("B" & Target.Row & ":E" & Target.Row).Copy Sheets("DENEME").Range("B" & SonSat & ":E" & SonSat + Adet)
End Sub

 

[arifgrn]

Teşekkür

zaman ayırdığınız ve ilgilendiğiniz için teşekkür ederim...çok yardımcı oldunuz....istediğim buydu tam.....iyi çalışmalar dilerim...