Skip to main content

AccessTr.neT


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

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

Çözüldü #7
(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
drummers, 11-05-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
Çözüldü #8
Hiç bir bilgim yok iyi çalışmalar.
Bizim için zor diye bir şey yoktur, imkansızsa zaman alır...
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task