Merhaba.bu kodu çok hızlı çalıştırabileceğim daha sade bir duruma getirebilirmisiniz?
yardımlarınız için şimdiden teşekkür ederim.
yardımlarınız için şimdiden teşekkür ederim.
Kod:
Alt AYRIKİTAPLI ()
Sayfalar ("FİŞ İÇİN").
Range ( "B6: BA6"). Select
Selection.AutoFilter
Selection.AutoFilter
Range ( "A20"). Select
Sayfalar ("FİŞ İÇİN").
Sayfalar ("FİŞ İÇİN"). Aralık ("B7: E300"). ClearContents
Sayfalar ("FİŞ İÇİN"). Aralık ("G7: P300"). ClearContents
Dim kitap As Çalışma Kitabı, Kitap2 As Çalışma Kitabı
Dim n Uzun
Set kitap = Çalışma Kitapları ("üretim1-2020.xlsm")
Set Kitap2 = Çalışma Kitapları ("üretim2-2020.xlsm")
A = 2 - Aralık için ("B1")
J = 1 için kitap.Worksheets.Count - 1'e
İ = 2 ila 3000 için
Aralık ("A" & A) = kitap.Sheets (j) .Range ("S" & i) Sonra
n = n + 1
Hücreler (n + 6, 2) .Değer = kitap. Sayfalar (j). Hücreler (i, 1)
Hücreler (n + 6, 3) .Değer = kitap. Sayfalar (j). Hücreler (i, 2)
Hücreler (n + 6, 4) .Değer = kitap. Sayfalar (j). Hücreler (i, 3)
Hücreler (n + 6, 5) .Değer = kitap.Sheets (j) Hücreler (i, 4)
Hücreler (n + 6, 7) .Değer = kitap. Sayfalar (j). Hücreler (i, 5)
Hücreler (n + 6, 8) .Değer = kitap.Sheets (j) Hücreler (i, 6)
Hücreler (n + 6, 9) .Değer = kitap. Sayfalar (j). Hücreler (i, 8)
Hücreler (n + 6, 10) .Değer = kitap. Sayfalar (j). Hücreler (i, 11)
Hücreler (n + 6, 11) .Değer = kitap. Sayfalar (j). Hücreler (i, 12)
Hücreler (n + 6, 12) .Değer = kitap.Sheets (j) Hücreler (i, 17)
Hücreler (n + 6, 13) .Değer = kitap.Sheets (j) Hücreler (i, 18)
Hücreler (n + 6, 14) .Değer = kitap.Sheets (j) Hücreler (i, 19)
Hücreler (n + 6, 15) .Değer = kitap.Sayfalar (j). Hücreler (i, 22)
Hücreler (n + 6, 16) .Değer = kitap. Sayfalar (j). Hücreler (i, 28)
End If
Sonraki ben
Sonraki j
X = 1 için Kitap2.Worksheets.Count - 1'e
Y = 2 ila 3000 için
Aralık ("A" ve A) = Kitap2.Sheets (x) .Range ("S" & y) Sonra
n = n + 1
Hücreler (n + 6, 2) .Değer = Kitap2.Sheets (x). Hücreler (y, 1)
Hücreler (n + 6, 3) .Değer = Kitap2.Sheets (x). Hücreler (y, 2)
Hücreler (n + 6, 4) .Değer = Kitap2.Sheets (x). Hücreler (y, 3)
Hücreler (n + 6, 5) .Değer = Kitap2.Sheets (x). Hücreler (y, 4)
Hücreler (n + 6, 7) .Değer = Kitap2.Sheets (x). Hücreler (y, 5)
Hücreler (n + 6, 8) .Değer = Kitap2.Sheets (x). Hücreler (y, 6)
Hücreler (n + 6, 9) .Değer = Kitap2.Sayfalar (x). Hücreler (y, 8)
Hücreler (n + 6, 10) .Değer = Kitap2.Sayfalar (x). Hücreler (y, 11)
Hücreler (n + 6, 11) .Değer = Kitap2.Sayfalar (x). Hücreler (y, 12)
Hücreler (n + 6, 12) .Değer = Kitap2.Sayfalar (x). Hücreler (y, 17)
Hücreler (n + 6, 13) .Değer = Kitap2.Sayfalar (x). Hücreler (y, 18)
Hücreler (n + 6, 14) .Değer = Kitap2.Sayfalar (x). Hücreler (y, 19)
Hücreler (n + 6, 15) .Değer = Kitap2.Sayfalar (x). Hücreler (y, 22)
Hücreler (n + 6, 16) .Değer = Kitap2.Sayfalar (x). Hücreler (y, 28)
End If
Sonraki y
Sonraki x
Sonraki A
End Sub