(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 SubBu ş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
