Sayfa kopyalama

[Ekrem Bülbül]

Merhaba;

sayfa1 deki seçili hücreleri sayfa2 dekine kopyalamak istiyorum ama hücre büyüklükleri ve çerçevelerde kopyalanmalı

Sheets("Giriş").Range("A1:H34").Copy
ActiveSheet.Range("A1:H34").Select
Selection.PasteSpecial Paste:=xlPasteValues

"=bugün()"formülü sonucu kopyalanırken tarih olarak değilde sayı olarak kopyalanıyor garip bir sayı çıkıyor

Yardım lütfen

 

[YUSUF44]

Selection.PasteSpecial Paste:=xlPasteValues

Satırı sadece değerleri yapıştırmanızı sağlıyor.

Selection.Paste

Kullanırsanız aynen yapıştırır.

 

[Ekrem Bülbül]

Sheets("Giriş").Range("A1:H34").Copy
ActiveSheet.Range("A1:H34").Select
Selection.Paste

yapınca Selection.Paste hata veriyor

 

[askm]

Sheets("Giriş").Range("A1:H34").Copy
Sheets("Sayfa2").Range("A1:H34").Select
Selection.Paste


Şeklinde deneyin.

 

[Ekrem Bülbül]

Sheets("Giriş").Range("A1:H34").Copy
Sheets("Sayfa2").Range("A1:H34").Select
Selection.Paste


Şeklinde deneyin.

Selection.Paste de yine hata var
peki sayfa2 yerine bir değişkene atadığımız isim olur mu

değişken=[a43]
Sheets(değişken).Range("A1:H34").Select
Selection.Paste


gibi

 

[YUSUF44]

Sheets("Giriş").Range("A1:H34").Copy: ActiveSheet.[A1].PasteSpecial Paste:=xlPasteAll

şeklinde deneyin.

 

[Ekrem Bülbül]

Sheets("Giriş").Range("A1:H34").Copy: ActiveSheet.[A1].PasteSpecial Paste:=xlPasteAll

şeklinde deneyin.

hocam eyvallah paste:=xlPasteColumnWidths ekleyince tam oldu