Tarikkk_
Altın Üye
- Katılım
- 5 Ocak 2020
- Mesajlar
- 403
- Excel Vers. ve Dili
- Excel 2019
- Altın Üyelik Bitiş Tarihi
- 26-10-2028
merhabalar kullanmakta olduğum dosyamda boş satır ekleme makrosu var herhangi bir yanlışlığa sebebiyet vermemek için butonla en alta boş bir satır ekleyerek o satırda sonlardaki sütun yani tutar sütunu dolmadan yeni satır ekleyemiyorum.
alttaki makroda ise son satırda hangi hücre boş ise beni o boş hücreye götürmekte ama burada B-Z Sütunların neredeyse tamamı için alttaki kodu uygulamam lazım.
bunu nasıl bir döngü haline getirip daha az bir kodla çözebiliriz.
birde son_satır benim en alttaki son boş satırım.
mesela B sütununda 80 satır varsa, 50. satır ve 80. satır boş ise önce beni 50. boş satıra götürüp oraya gerekli bilgileri girdikten sonra boş satır eklemeye çalıştığımda bu sefer en alttaki boş satıra götürmesi çok daha işime yarayabilir ama onu yapamadım bir türlü konuyla ilgili yardımlarınızı bekliyorum çok teşekkür ederim
If Range("B" & son_satır) = "" Then
HataMesajı "B Sütunu Boş Bilgi Giriniz.."
Application.EnableEvents = True
Range("B" & son_satır).Select
GoTo devam:
End If
If Range("C" & son_satır) = "" Then
HataMesajı "C Sütunu Boş Bilgi Giriniz.."
Application.EnableEvents = True
Range("C" & son_satır).Select
GoTo devam:
End If
alttaki makroda ise son satırda hangi hücre boş ise beni o boş hücreye götürmekte ama burada B-Z Sütunların neredeyse tamamı için alttaki kodu uygulamam lazım.
bunu nasıl bir döngü haline getirip daha az bir kodla çözebiliriz.
birde son_satır benim en alttaki son boş satırım.
mesela B sütununda 80 satır varsa, 50. satır ve 80. satır boş ise önce beni 50. boş satıra götürüp oraya gerekli bilgileri girdikten sonra boş satır eklemeye çalıştığımda bu sefer en alttaki boş satıra götürmesi çok daha işime yarayabilir ama onu yapamadım bir türlü konuyla ilgili yardımlarınızı bekliyorum çok teşekkür ederim
If Range("B" & son_satır) = "" Then
HataMesajı "B Sütunu Boş Bilgi Giriniz.."
Application.EnableEvents = True
Range("B" & son_satır).Select
GoTo devam:
End If
If Range("C" & son_satır) = "" Then
HataMesajı "C Sütunu Boş Bilgi Giriniz.."
Application.EnableEvents = True
Range("C" & son_satır).Select
GoTo devam:
End If