stok liste isim kopyalama

[igultekin2000]

http://dosya.co/nn6decih52bq/stok_sıralama.rar.html

AOM yöntemine göre stok takibi yapıyorum. stok listesinin bakiyelerini makro ile oluşturuyorum. SABİTLER çalışma sayfasının B sütunundaki ürün listesini makro ile ÜRÜN LİSTESİ çalışma sayfasındaki A sütununa kopyalamak istiyorum zira stok bakiyelerini bu sayfada alıyorum. Listeyi ilgili yere formülle çekebiliyorum ama aşağıda doğru çekilen formülden dolayı liste uzun gibi gözüktüğünden makro stok listesi oluşturma işlemi yavaşlıyor . SABİTLER sayfasının B SÜTÜN sürekli güncellendiği için her stok listesi almak istediğimde güncel listeyi Ürün Listesi sayfasına aktarmak istiyorum. Teşekkürler

 

[Orion1]

Buyurun.

Sub aktar_urun_59()
Dim sonsat As Long, sh As Worksheet
Sheets("URUN_LISTE").Select
Range("A2:B" & Rows.Count & ",F2:F" & Rows.Count).ClearContents
Set sh = Sheets("sabitler")
sonsat = sh.Cells(Rows.Count, "B").End(xlUp).Row
Application.ScreenUpdating = False
sh.Range("B2:C" & sonsat).Copy Range("A2")
sh.Range("D2:D" & sonsat).Copy Range("F2")
Application.ScreenUpdating = True
MsgBox "Sabitler aktarıldı." & vbLf & "evrengizlen@hotmail.com"
End Sub

 

[igultekin2000]

sorun çözüldü

Buyurun.

Sub aktar_urun_59()
Dim sonsat As Long, sh As Worksheet
Sheets("URUN_LISTE").Select
Range("A2:B" & Rows.Count & ",F2:F" & Rows.Count).ClearContents
Set sh = Sheets("sabitler")
sonsat = sh.Cells(Rows.Count, "B").End(xlUp).Row
Application.ScreenUpdating = False
sh.Range("B2:C" & sonsat).Copy Range("A2")
sh.Range("D2:D" & sonsat).Copy Range("F2")
Application.ScreenUpdating = True
MsgBox "Sabitler aktarıldı." & vbLf & "evrengizlen@hotmail.com"
End Sub

pratik çözüm için teşekkürler, formüle gerek kalmadı.

 

[Orion1]

pratik çözüm için teşekkürler, formüle gerek kalmadı.

Rica ederim.
İyi çalışmalar.