DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
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.
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 SubMerhaba
CommandButton2'nin kod bölümüne
Bu kodu kopyalayın ve deneyin.Kod: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
Dosyanız Ekte.
Teşekkürler...