Sütün Genişliklerini Kopyalama

[ttrance]

bir buton sayesinde sayfadaki bir bolgeyi tüm özellikleri ile (genişligi,yazılar,renk vb..) kopyalayıp başka bir excel sayfasına nasıl yapıştırabiliriz arkadaşlar...

 

[ttrance]

Application.ScreenUpdating = False
ad = [sayfa1!b6]
[f6:k24].Copy
Workbooks.Add
ActiveWorkbook.Sheets(1).[f6].Select
Selection.PasteSpecial Paste:=xlPasteValues
ActiveWorkbook.SaveAs Filename:="C:\deneme\" & ad & ".xls"
ActiveWorkbook.Close

bu kodda sadece hücrelerdeki yazıları kopyalayabildim..

 

[Levent Menteşoğlu]

Selection.PasteSpecial Paste:=xlPasteValues

Yukarıdaki satırı aşağıdaki gibi değiştirin.

Selection.PasteSpecial

 

[ttrance]

hocam ilgin için teşekkürler..

renk ve yazıların kopyalanmasına ragmen hücre boyutları yeni excel dosyasına kopyalanmıyor...

 

[ttrance]

bilen yokmu arkadaşlar

 

[Levent Menteşoğlu]

Aşağıdaki şekilde deneyin.

Selection.PasteSpecial
Selection.EntireColumn.AutoFit

 

[ttrance]

Private Sub CommandButton3_Click()
Application.ScreenUpdating = False
ad = [sayfa1!b6]
[g6:L24].Copy
Workbooks.Add
ActiveWorkbook.Sheets(1).[g6].Select
Selection.PasteSpecial
Selection.EntireColumn.AutoFit
ActiveWorkbook.SaveAs Filename:="C:\deneme\" & ad & ".xls"
ActiveWorkbook.Close
End Sub

hocam yazdım fakat yine olculeri kopyalamadı sadec g sütununu ve k sütununu kfasına gore olculendirdi

 

[ttrance]

help help

yokmu yardım edecek bi arkadaş

 

[Levent Menteşoğlu]

Birde aşağıdaki gibi deneyin.

Selection.PasteSpecial
Selection.PasteSpecial Paste:=xlPasteColumnWidths

 

[ttrance]

hocam

Selection.PasteSpecial Paste:=xlPasteColumnWidths

bu satır hata veriyor

amamakro kaydet dedigim de kendi yarttıgı kodda var...

Sub Makro1()
'
' Makro1 Makro
' Makro ttrance tarafından 19.08.2006 tarihinde kaydedildi.
'

'
Columns("T:T").Select
Selection.ColumnWidth = 2.14
End Sub

 

[ttrance]

kod listesinde "ColumnWidths" i bulamıyorum hocam buyuk ihtimalle sorun burada

 

[ttrance]

formule;
Columns("T:T").Select
Selection.ColumnWidth = 2.14 bu kodu ekliyorum bu sefer hata var diyor..

 

[Seyit Tiken]

Bu kodu bir deneyiniz.

Sub Makro1()
Sheets("Sayfa1").Rows("4:4").Copy Destination:= _
Sheets("Sayfa2").Rows("13:13")
End Sub

 

[ttrance]

Bu kodu bir deneyiniz.

Sub Makro1()
Sheets("Sayfa1").Rows("4:4").Copy Destination:= _
Sheets("Sayfa2").Rows("13:13")
End Sub

hocam kolonların kopyalanagı kitap farklı

 

[Seyit Tiken]

Peki, her iki çalışma kitabını açıp, ilgili sayfayı sol tıklama(ctrl basılı) ile başka kitaba kopyalanıp ve gerekli düzeltme yapılısa, sorun hal olur mu?

 

[ttrance]

Peki, her iki çalışma kitabını açıp, ilgili sayfayı sol tıklama(ctrl basılı) ile başka kitaba kopyalanıp ve gerekli düzeltme yapılısa, sorun hal olur mu?

hocam tam olarak ne demek istedigini anlamadım...

buton sayesinde ;

yeni çalışma kitabı acılıp
secili bolgenin sütun genişligi kopyalanıp yeni açılan kitaba aynen yapışıyorsa neden olmasın..

 

[ttrance]

ilgilenen yokmu arkadaşlar.... kimse bilmiyormu bunu

 

[ttrance]

up...up... up.....

 

[mehmett]

Örnek bir dosya ekleyip bu dosya üzerinde ne yapmak istediğinizi tekrar açıklayabilir misiniz?

 

[ttrance]

hocam yeşille işaretli bolge tamamen kopyalanıp (hücre boyutları genişlik vs. dahil) yeni acılan excel kitabına yapıştırılacak


Application.ScreenUpdating = False
ad = [sayfa1!b6]
[f6:k24].Copy
Workbooks.Add
ActiveWorkbook.Sheets(1).[f6].Select
Selection.PasteSpecial
ActiveWorkbook.SaveAs Filename:="C:\deneme\" & ad & ".xls"
ActiveWorkbook.Close

kod bu hocam...

kolay gelsin...