• DİKKAT !

    Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak Dosya Yükleme tamamen ücretsizdir.

    Giriş yap veya Şimdi kayıt ol

Çözüldü Satır boşsa veri aktarmada hata

Bu konu çözüldü olarak işaretlenmiştir. Çözülmediğini düşünüyorsanız konuyu rapor edebilirsiniz.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
tukayf

tukayf

Yeni Üye
Katılım
19 Eyl 2022
Mesajlar
528
Çözümler
19
Aldığı beğeni
143
Excel V
Office 2019 TR
Konu Sahibi
Değerli hocalarım ekteki dosyada veri aktarma kodları Sn. azraep hocamın. Ancak şöyle bir hata var vt sayfasında sıra no boş ise veri aktarma yapmıyor. Sn de herhangi bir değer varken aktarmada sorun yok.

Sub YedekAl()

SonSatir = Sayfa3.Cells(Rows.Count, 1).End(xlUp).Row
YedekSon = Sayfa1.Cells(Rows.Count, 1).End(xlUp).Row + 1
Kayit = SonSatir - 2

Sayfa3.Range("B3:G" & SonSatir).Copy
Sayfa1.Select
Cells(YedekSon, 2).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Cells(YedekSon, 1).Select
For x = 1 To Kayit
Cells(YedekSon, 1).Value = Cells(YedekSon - 1, 1).Value + 1
YedekSon = YedekSon + 1
Next x
Sayfa3.Select
Sayfa3.Range("A3:G" & SonSatir).ClearContents
MsgBox "Yedek Alındı. Eski Veri Temizlendi. excelcozum.com", vbInformation, "YEDEK AL"

End Sub
Genişletmek için tıkla...
Yukarıdaki kodlarda nereyi düzeltmem gerekiyor acaba.
 

Ekli dosyalar

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.
Tarihe göre sırala Oylara göre sırala
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
Bu satır VT sayfası için A sütununa göre son dolu hücreyi bulur.

B ve C sütunlarınız her zaman dolu ise ilgili satırdaki kodu HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
ya da HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
olarak kullanabilirsiniz.
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
Hocam sorun Sn. sütunu olan A da hiç veri yoksa hata veriyor. VT'ye ilk kayıtta hata veriyor. İlk kez kayıttan sonra hata yok. Ama ilk kayıtta Sıra numarası vermeyerek hata veriyor. bi bakabilir misiniz.
Cells(YedekSon, 1).Value = Cells(YedekSon - 1, 1).Value + 1
Genişletmek için tıkla...
VT ye ilk veri kaydında bu satır hata veriyor. TAmamen boş iken.
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
Hocam yanıt için teşekkürler. Şu an hatasız çalışıyor ama biraz daha deneme yaptıktan sonra çözüm olarak işaretleyeceim. Erken çözüm işaretleyince ilerleyen günlerde fark ettiğimiz hatalar için tekrar yeni konu açmak zorunda kalıyoruz .
 
Olumlu oy 0 Negatif oyla
Kodu bu şekilde değiştiri misiniz
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
Olumlu oy 0 Negatif oyla
son hali dener misiniz
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
Olumlu oy 0 Negatif oyla
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst