Çalışma sayfalarından ana sayfaya veri aktarımı

1 2

(10/04/2012, 15:38)DUAYEN yazdı: Çalışma nasıl gidiyor.

Kod:
Private Sub CommandButton3_Click()

Dim asi As Long, kral As Worksheet, _

a As Variant

Application.ScreenUpdating = False

a = ActiveCell.Address

For asi = 2 To Cells(Rows.Count, "B").End(xlUp).Row

Set kral = Sheets(Range("B" & asi).Text)

kral.Range("L3:L14").Copy

Range("C" & asi).PasteSpecial Paste:=xlPasteValues, Transpose:=True

Application.CutCopyMode = False

Range(a).Select

Next

Application.ScreenUpdating = True

End Sub

Kod bana ait değildir...

Bu şekilde çözüldü.

Fakat bir sıkıntı var 20-30 sayfa yapınca 35 mb gibi bişey oldu Excel kitabı. Sanırım çalışmayı VB2010 a taşımalıyım. Konu hakkında bilginiz varsa ve yardımcı olursanız sevinirim

Hiç bir bilgim yok iyi çalışmalar.

1 2

Çalışma sayfalarından ana sayfaya veri aktarımı

drummers

DUAYEN