- Katılım
- 23 Kasım 2007
- Mesajlar
- 12
- Excel Vers. ve Dili
- 2007
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Her bayinin altına ikinci sayfadaki ürünleri getirmem gerekli, bu örnek 2000 adet bayi ve 50 farklı ürün var bana yardımcı olabilir misiniz?
İlginiz için tşk ederim. Hemen gönderiyorum.
Sub urungruplarinikopyala()
s = WorksheetFunction.CountA(Sheets("ÜRÜN GRUPLARI").Columns(1))
son = [a65536].End(3).Row
For i = 1 To son * 3 Step s
Rows(i + 2 & ":" & i + s).Insert
Sheets("ÜRÜN GRUPLARI").Range("a2:a" & s).Copy Cells(i + 2, "b")
Next
End Sub