Makroya sayfa atamak ve birleştirmek

[feridici_genc]

merhaba..
aşağıda linkte bulunan tabloda 60 araç takip ediyorum.
Makro kaydederek ve bunları 2 butona atayarak çalıştırıyorum. lakin şöye bir sorun var. "database" sekmesinde bulunan "kopyala" butonuna atanmış makroyu başka herhangi bir sekmede çalıştırmaya kalktığımda hangi sekmede ise orda çalışuıyor. yani o kopyala butonunu "araç sayfası" na taşımak istiyorum. mesela hemen yanında sırala butonununda böyle bir sorun yok. o butonu nerde çalıştırırsam çalıştırayım "database" sekmesinde işlem yapyor yani bir sorun yok.
2. sorum ise şu, bu butonları birleştirip teke düşürebilir miyim? makro kaydederek bu botnları birleştirmeyi denedim ama olmadı
ve sanırım tabloda veri boşluğu oluştu boyutu 5mb filn oldu

dosya linki:http://s3.dosya.tc/server19/iipKjJ/ara_takip.rar.html

 

[feridici_genc]

yardımcı olabilecek varmı ?

 

[Emir Hüseyin Çoban]

. . .

Kopyalama için şu kodları deneyin.

Sub KOPYALA()
    Application.ScreenUpdating = False
    Dim SD     As Worksheet
    Set SD = Sheets("database")

    SD.Range("B3:B63").Copy SD.Range("D74")
    SD.Range("B3:B63").Copy SD.Range("G74")
    SD.Range("B3:B63").Copy SD.Range("J74")
    SD.Range("B3:B63").Copy SD.Range("M74")
    SD.Range("K3:K63").Copy SD.Range("E74")
    SD.Range("O3:O63").Copy SD.Range("H74")
    SD.Range("Q3:Q64").Copy SD.Range("K74")
    SD.Range("R3:R63").Copy SD.Range("N74")

    Application.ScreenUpdating = True
    MsgBox " B i t t i "
End Sub

Kodları teke düşürmek için, sırası ile çalıştırmak istediğiniz kod isimlerini alt alta ekleyin.

Sub KOD()
    Call KOPYALA
    Call sirala
End Sub

. . .

 

[feridici_genc]

teşekkürler çok sa olun.