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

[drummers]

Ana Sayfada "Firma Kaydet" butonu ile Textbox1 e girdiğim veri ile sayfa oluşturabiliyorum


İsteğim şudur:

- "Ana Sayfa" daki "CommandButton2" tıklandığında eklenen sayfalardaki (firmalardaki) "L3:L14" aralığındaki ay toplamlarını "Ana Sayfa" daki C2:N2 aralığına aktarması

Teşekkürler.

 

[asi_kral]

Ana Sayfada "Firma Kaydet" butonu ile Textbox1 e girdiğim veri ile sayfa oluşturabiliyorum


İsteğim şudur:

- "Ana Sayfa" daki "CommandButton2" tıklandığında eklenen sayfalardaki (firmalardaki) "L3:L14" aralığındaki ay toplamlarını "Ana Sayfa" daki C2:N2 aralığına aktarması

Teşekkürler.

Merhaba
CommandButton2'nin kod bölümüne

Private Sub CommandButton2_Click()
'Konu       :   Sayfadaki Ay Bilgilerini Güncelle
'Mail       :   m..batu.1967@gmail.com
'Msn        :   m.batu.1967@gmail.com
'Coder By   :   asi_kral_1967
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

Bu kodu kopyalayın ve deneyin.
Dosyanız Ekte.

 

[drummers]

Merhaba
CommandButton2'nin kod bölümüne

Private Sub CommandButton2_Click()
'Konu       :   Sayfadaki Ay Bilgilerini Güncelle
'Mail       :   m..batu.1967@gmail.com
'Msn        :   m.batu.1967@gmail.com
'Coder By   :   asi_kral_1967
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

Bu kodu kopyalayın ve deneyin.
Dosyanız Ekte.

Teşekkürler...

 

[asi_kral]

Teşekkürler...

Kolay Gelsin.