Veri Kopyalama

[Murat OSMA]

Hiçbir sorun görünmüyor.

Masaüstündeki KOPYA klasörüne istediğim kadar dosya kaydedebiliyorum ve nasıl kaydettiysem o şekliyle aynen açılıyor.

 

[ormann]

Murat bey kayıt yapıyor .Ama tablo içerisindeki veriler boş gözüküyor.

 

[ormann]

Hüseyin bey 5 nolu mesajinizdaki kodlar güzel calisiyor fakat 13 nolu mesajdaki dosyada tablo bicimlendrilmis şekilde kiralanıyor.Ancak tablonun içerisindeki kayıtlar kopyalanmiyor .Tek sorun burda.Buda çözümlenirse dosyada hiçbir sorun kalmayacak

 

[Murat OSMA]

Bende durum bu...

 

[ormann]

Murat bey bende neden farklı oluyor acaba

 

[Emir Hüseyin Çoban]

Başka bir bilgisayarda deneyiniz.

 

[ormann]

Hüseyin bey evdeki bilgisayarda denedim.Yine tablo içerisindeki veriler boş kopyalanıyor.5.nolu mesajınızdaki kodda böyle birşey olmuyor

 

[ormann]

Hüseyin bey şu kodu silersem kopyalama oluyor.Fakat ikinci kez butona bastğımda veya iptal ettiğimde makroda hata veriyor.
On Error Resume Next

 

[Emir Hüseyin Çoban]

. . .

Bu şekilde deneyiniz.

Sub KOD()

Application.ScreenUpdating = False
Application.DisplayAlerts = False

ad = InputBox(" Yeni Sayfa İsmi Giriniz ")
If ad = "" Then Exit Sub

sayfaismi = ActiveSheet.Name

Sheets("FKAYDET").Visible = True 'GÖSTER
Sheets("FKAYDET").Range("D6:K27").Clear

Range("D6:K27").Copy

Sheets("FKAYDET").Select
Range("D6:K27").Select
Selection.PasteSpecial Paste:=xlPasteValues
Selection.PasteSpecial Paste:=xlPasteFormats

yol = CreateObject("WScript.Shell").specialfolders("Desktop")
On Error Resume Next
MkDir CreateObject("WScript.Shell").specialfolders("Desktop") & "\KOPYA\"

Sheets("FKAYDET").Copy
On Error Resume Next
If Val(Application.Version) > 11 Then
ActiveWorkbook.SaveAs Filename:=yol & "\KOPYA\" & ad & ".xls", FileFormat:=xlExcel8
Else
ActiveWorkbook.SaveAs Filename:=yol & "\KOPYA\" & ad & ".xls"
End If

ActiveWorkbook.ActiveSheet.Name = ad
ActiveWorkbook.Close True

Sheets(sayfaismi).Select
'Sheets("FKAYDET").Visible = False 'GİZLE

Application.ScreenUpdating = True
Application.DisplayAlerts = True

MsgBox " B i t t i "

End Sub

. . .

 

[ormann]

Hata veriyor.hata mesajı:Bu işlem için hücrelerin boyutta olması gerekli diyor

 

[ormann]

Hüseyin bey günaydın dosyanın farklı bir çözümü olabilir mi