eksik kayıt

[pylor]

sayın excel veb uzmanları ekte göndermiş olduğum dosyada belirli hücrelerin verilerini 'kayıtg' adlı çalışma sayfasına taşıdıktan sonra bu sayfayı farlı kaydet yöntemi ile bir klasör içine kaydediyorum ama verileri taşırken bir hata yapmayan kod farklı kaydederken taşınan veriler 3 satırdan fazla ise 3 yada 4. satırdan sonrasını kaydetmiyor ve veriler eksik kalıyor buna bir çözüm bulunabilirmi acaba cevaplanızı için şimdiden teşekkü ederim

 

[Ömer]

Merhaba,

Bu şekilde deneyin. İlaveyi kırmızıyla işaretledim.

Sub Dikdörtgen4_Tıklat()
 
Sheets("kayıtg").Cells(12, "d") = [d12]
Sheets("kayıtg").Cells(13, "d") = [d13]
Sheets("kayıtg").Cells(14, "d") = [d14]
Sheets("kayıtg").Cells(15, "d") = [d15]
Sheets("kayıtg").Cells(16, "d") = [d16]
Sheets("kayıtg").Cells(16, "f") = [f16]
Sheets("kayıtg").Cells(17, "d") = [d17]
Sheets("kayıtg").Cells(18, "d") = [d18]
Sheets("kayıtg").Cells(19, "d") = [d19]
Sheets("kayıtg").Cells(20, "d") = [d20]
Sheets("kayıtg").Cells(21, "d") = [d21]
Sheets("kayıtg").Cells(21, "e") = [e21]
Sheets("kayıtg").Cells(22, "d") = [d22]
Sheets("kayıtg").Cells(23, "d") = [d23]
Sheets("kayıtg").Cells(28, "c") = [c28]
Sheets("kayıtg").Cells(31, "c") = [c31]
Sheets("kayıtg").Cells(34, "c") = [c34]
Sheets("kayıtg").Cells(38, "c") = [c38]
Sheets("kayıtg").Cells(41, "c") = [c41]
On Error Resume Next
Application.DisplayAlerts = False
Dim kitap As Workbook, sayfa As Worksheet
Set sayfa = Sheets("kayıtg")
sayfa.Copy
[COLOR=red]sayfa.Cells.Copy Range("A1")[/COLOR]
Set kitap = ActiveWorkbook
sayfaadi = Range("a63").Value
kitap.SaveAs sayfaadi & ".xls"
Application.DisplayAlerts = True
ActiveWorkbook.Close
 
End Sub

.

 

[pylor]

sayın ömer cevabınız için teşekkür ederim satır işe yaradı yanlız işlem süresi biraz uzadı gibi ek işlem yapıyor sanırım ama çalışıyor sizden ricam işlem süresini uzatmayacak başka bir kod varsa onu uygulamanız yok ise " sayfa.Cells.Copy Range("A1") " satırının çalışma mantığı nedir acaba yani A1 hücresi ile ne alakası var acaba teşekkür ederim

 

[Ömer]

Sayfa kopyalarken hücrelerde 255 den fazla karakter varsa bu şekilde olan hücrelerin sadece ilk 255 karakterini alır. Veriler bu yüzden bu şekilde eksik olarak geliyor. Bunun içinde bu işlemi yapmak zorundayız.

Sayfayı manuel olarak taşı ve kopyalama seçeneğiyle kopya oluşturarak denerseniz anlatmak istediğimi daha kolay anlaşılacaktır.

 

[pylor]

sayın ömer teşekkür ederim hayırlı günler