DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Yukarıdaki satırı aşağıdaki gibi değiştirin.Selection.PasteSpecial Paste:=xlPasteValues
Selection.PasteSpecial
Selection.PasteSpecial
Selection.EntireColumn.AutoFit
Selection.PasteSpecial
Selection.PasteSpecial Paste:=xlPasteColumnWidths
hocam kolonların kopyalanagı kitap farklıBu kodu bir deneyiniz.
Sub Makro1()
Sheets("Sayfa1").Rows("4:4").Copy Destination:= _
Sheets("Sayfa2").Rows("13:13")
End Sub
hocam tam olarak ne demek istedigini anlamadım...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?