Satırı başka sayfaya kopyalama?

[aliahmet]

Merhba, ek-örnekteki gibi bir excel dosyam var. İlk sayfa Ana liste diğer sayfalarda firma sayfaları. Ana listede Firmalar sütünü var o sütüna firma adını girdiğimde satırın bir kopyasınında firma sayfasına kopyalanmasını istiyorum. Excel konusunda çok fazla bir bilgim yok, yardımcı olacak arkadaş nasıl yaptığını ayrıntılı anlatırsa sevinirim. Teşekkürler..

 

[Necdet]

Merhaba.

Aşağıdaki kodları sayfanın kod bölümüne kopyalayınız. Sayfa adlarını A, B olarak değiştirdim, denemede kolaylık olsun diye

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
If Intersect(Target, [C:C]) Is Nothing Then Exit Sub
i = Sheets(Target.Value).[A65536].End(3).Row + 1
Range("A" & Target.Row & ":C" & Target.Row).Copy Sheets(Target.Value).Range("A" & i)
Son:
End Sub

 

[aliahmet]

Yardımınız için teşekkürler.

 

[aydgur]

Sn.Yeşertener
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
i = Sheets(Target.Value).[A65536].End(3).Row + 1
Range("B" & Target.Row & ":O" & Target.Row).Copy Sheets(Target.Value).Range("A" & i)
Son:
End Sub .
Bu mükemmel kod ile sayfa adlarına göre yazdığım anda kopyalıyor.Ama önce STOKLAR sayfasına B den O ya değilde ;Adan R ye kopyalasın ondan sonra sayfa adlarına göre kopyalasın istiyorum mümkünmüdür ?