hücre guruplarını kopyalama işlemi

[tttddd]

deneme dosyamın içine isteklerimi yazdım lütfen bakarmısınız

 

[Mahmut Bayram]

syn tttddd, aşağıdaki kodu sayfadaki butonla ilişkilendiriniz

Sub Makro1()
Sheets("GENEL").Select
Range("A3:F13").Select
Selection.Copy
Set s1 = Sheets("GENEL")
Set s2 = Sheets([A2] & "")
s2.Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
ActiveSheet.Paste
End Sub

KOLAY GELSİN

 

[tttddd]

sayın mahmut bayram kopyalama işleminde altta genel toplam bölümlerinide almasını istiyorum. ayrıca zeki adına ikinci belgeyi doldurup butonu tıklayınca eski kaydedilen bölümün hemen altına atacak tabi bu kopyalama sırasında hücreleri ötelemesini istemiyorum

 

[Mahmut Bayram]

genel toplam bölümünü de alabilmesi için
Range("A3:F13").Select ifadesini
Range("A3:G15").Select oalrak değiştiriniz

hücre ötelemesin derken nasıl bir yol istiyorsunuz biraz daha açıklayabilirseniz belki size daha çok yrd. olabilirim...

 

[tttddd]

tesekkur ederim kaydediyor aynı isime başka bir belge kayıt edince eski belgenin altına atması lazım.

 

[Mahmut Bayram]

Range("A1").Select
altına aşağıdaki kodu ekleyin.
Selection.Insert Shift:=xlDown

 

[tttddd]

TEÞEKKUR EDERİMMMMMMMM

 

[Mahmut Bayram]

Rica ederim.
Çalışmalarınızda başarılar dilerim.

 

[tttddd]

bu iş bu kadar bundan sonra bu konuda sorulacak soru kalmadı yapıla bileceğin en iyisini yaptık tekrar tekrar teşekkurler
yağ yakmak gibi olmasın formun en hızlı cevap veren üyesi sizsiniz...

 

[Mahmut Bayram]

Bu konuda bilgi sahibi olan diğer arkdaşlarda burada olsalardı beni aratmayacaklarından eminim. Allah çalışmalarınızda muvaffakiyet versin.

 

[tttddd]

belki bu tip çalışmalar basit geliyor olabilir ama yardım bekliyoruz (bu işi bilmiyoruz) yukarıda sorduğum soruyu birkaç kez sordum ama şimdi sayenizde çözüldü.
çok soru soruyorum diye sakın kızmayın (bilmemek ayıp deyil öğrenmemek ayıp)