Sayfalar arası makro ile satır tasıma

[AylaMehmet]

Merhaba arkadaslar,

Ekte bir tane ornek dosyam var,

3 farkli sayfadan E kolonundaki secili sayfaya gore bilgileri tasıması icin bir nasıl bir makro yapabiliriz,

Ornek dosya ekte,

umarım yardımcı olursunuz, tesekkurler

 

[AylaMehmet]

dsoya ektedir,

 

[Murat OSMA]

FIRM sayfasının kod kısmına şu kodlaru yapıştırın;

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column <> 5 Then Exit Sub
    If Target.Value = "CLOSE" Then Range("A2:E1000").ClearContents: Exit Sub
    Cells(Target.Row, "A").Resize(, 5).Copy _
    Sheets(Target.Value).Range("A65536").End(3)(2, 1)
End Sub

FORECAST sayfasının kod kısmındaki kodları da silin..

 

[AylaMehmet]

Murat Bey,

CLOSE secdigimde tüm bilgileri siliyor sadece o satırı silmesi gerekiyor,


FORECAST sayfasında E kolonunda FIRM secersek FRIM sayfasında en alt kopyalıyacak ve FORECAST daki satırı silecek sekilde,

FIRM sayfasında E kolonunda STEEL_ON_ROAD secersek STEEL_ON_ROAD sayfasında en alt kopyalıyacak ve FIRM daki satırı silecek sekilde,

STEEL_ON_ROAD sayfasında E kolonunda CLOESE secersek o satırı silecek.

her sayfada 4 secenekli makro olacak sekilde yapabirmiyiz? ornek dosyada yaparsanız cok sevinirim,

tesekkurler,

 

[Murat OSMA]

Dosyanın içindeki not: en sonuncu CLOSE secdiginde kople silecek sekilde bir makro yazabilirmiyiz?

Şu an için o kadar uğraşamam. Arkadaşlar yardımcı olacaklardır.