+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Çalışma sayfalarından ana sayfaya veri aktarımı (/konu-calisma-sayfalarindan-ana-sayfaya-veri-aktarimi.html)
Sayfalar:
1
2
Cvp: Çalışma sayfalarından ana sayfaya veri aktarımı - drummers - 10/04/2012
(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
Cvp: Çalışma sayfalarından ana sayfaya veri aktarımı - DUAYEN - 10/04/2012
Hiç bir bilgim yok iyi çalışmalar.