Tüm sayfalarda düşeyara

[ADER_34]

Merhaba arkadaşlar benim çalışma kitabındaki verileri ürünlere göre sayfalara böldüm ve tüm sayfaların "A" sütununa bak"Anasayfa" "A" sütunda ara, ve adetleri anasayfaya göre güncelle yani tüm sayfalarda düşeyara makrosuna ihtiyacım var kolay gelsin teşkkürler.
http://s6.dosya.tc/server9/po12rh/Sayfalari_guncelle.rar.html

 

[Asri]

Merhaba arkadaşlar benim çalışma kitabındaki verileri ürünlere göre sayfalara böldüm ve tüm sayfaların "A" sütununa bak"Anasayfa" "A" sütunda ara, ve adetleri anasayfaya göre güncelle yani tüm sayfalarda düşeyara makrosuna ihtiyacım var kolay gelsin teşkkürler.
http://s6.dosya.tc/server9/po12rh/Sayfalari_guncelle.rar.html

Fiziki adetler ana sayfada var iken kaldır ve dağıt işlemi ard arda yapılsa nasıl olur.
Zaten dağıtması en fazla 3 sn sürüyor.
Neden dağıtık tüm sayfalar için anasayfada arama yapılıp adetler yazılıyor.

 

[Asri]

Aşağıdaki şekilde deneyiniz.

Sub duseyara_tumsayfalar()
    For a = 2 To Sheets.Count
     If Mid(Sheets(a).Name, 1, 2) <> "ANASAYFA" Then
        Sheets(a).Select
        sonsatir = Cells(Rows.Count, "A").End(3).Row
        Range("E2").Select
        ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-4],ANASAYFA!C[-4]:C,5,0)"
        If sonsatir > 2 Then
           Selection.AutoFill Destination:=Range("E2:E" & sonsatir)
           Range("E2:E" & sonsatir).Select
        End If
        Range("E2").Select
     End If
    Next
End Sub