[Yardım]  Boş Satır Olunca Makroda Hata

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

Boş Satır Olunca Makroda Hata

İleti#1)  ywzyilmaz » 16 Kas 2022 07:16

Merhaba

Bir sayfadaki alt alta dizili verileri alıp uygun yerlere doldurup yazan bir makro hazırladım.

Listede boşluk olmadığında kodlarım düzgün çalışıyor.

Kod: Tümünü seç
Sub formulsave()
sons = Sayfa5.Range("A" & Rows.Count).End(xlUp).Row
For a = 2 To Sayfa1.Range("E19").End(xlUp).Row
yaz = Sayfa1.Cells(a, "F")
Sayfa5.Cells(sons, yaz) = Sayfa1.Cells(a, "E")
Next a
End Sub



Fakat arada 1 satır boşluk olunca aşağıdaki satırda görünen hatayı alıyorum.

Kod: Tümünü seç
Sayfa5.Cells(sons, yaz) = Sayfa1.Cells(a, "E")
Kullanıcı avatarı
ywzyilmaz
 
Kayıt: 16 Oca 2022 14:02
Meslek: Özel Sektör / Birim amiri
Yaş: 28
İleti: 8
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: kocaeli/dilovası

Yıllık Maaş Bordrosu Hesaplama 2022

Cevap: Boş Satır Olunca Makroda Hata

İleti#2)  Ali ÖZ » 16 Kas 2022 10:24

Kod: Tümünü seç
Sub formulsave()
sons = Sayfa5.Range("A" & Rows.Count).End(xlUp).Row
For a = 2 To Sayfa1.Range("E19").End(xlUp).Row
  if sayfa1.range("f" & a).value <> "" then
    yaz = Sayfa1.Cells(a, "F").value
    Sayfa5.Cells(sons, yaz).value = Sayfa1.Cells(a, "E").value
  end if
Next a
End Sub
Allah bize yeter, O ne güzel vekildir.
حَسْبُنَا اللهُ وَنِعْمَ الْوَكِيلُ
Kullanıcı avatarı
Ali ÖZ
Forum Moderatörü
 
Adı Soyadı:Ali ÖZ
Kayıt: 17 Oca 2013 12:16
Konum: SAKARYA
Meslek: Yazılım
Yaş: 41
İleti: 10372
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adapazarı/SAKARYA


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Google [Bot] ve 3 misafir

Bumerang - Yazarkafe