Koşula bağlı makro çalışsın (YARDIM)

[bdmaestro]

Sub urunalimkyd()
Sheets("malalim").Select
Range("A9").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
If IsNumeric(ActiveCell.Offset(-1, 0).Value) = True Then
ActiveCell.Value = ActiveCell.Offset(-1, 0).Value + 1
Else
ActiveCell.Value = 1
End If
ActiveCell.Offset(0, 1).Value = Sheets("anasayfa").Range("b3").Value
ActiveCell.Offset(0, 2).Value = Sheets("anasayfa").Range("b4").Value
Sheets("anasayfa").Range("b3").Value = ""
Sheets("anasayfa").Range("b4").Value = ""
Sheets("anasayfa").Select
Range("b3").Select
End Sub

Makrom bu. Bu makro anasayfadaki B3 ve B4 hücreleri eğer boşsa çalışmasın istiyorum. Çünkü çalışınca sıra no atıp yanındaki hücreleri boş bırakıyor.

Bir diğer sorum ise yardım cı olursanız Private Sub başlığı ile başlayan makro komutlarını visual basic düzenleyicisine yapıştırdığımızda neden makro listesinde göremiyorum. Kıllanışılışı farklı mıdır?

 

[Necdet]

Merhaba,

Kodların başına

if Sheets("AnaSayfa").[B3] = "" and Sheets("AnaSayfa").[B4]="" then
            msgbox "Lütfen Ana Sayfadaki Bilgileri Tam Olarak Doldurunuz..."
            exit Sub
end if

kodunu ekleyiniz.

 

[bdmaestro]

Çok teşekkürler... hazır sizi yakalamışken şunu da yaptırabilir miyiz?
Eğer bu hücreler boşsa mesaj yazsın... formu tam doldrumanız gerekmektedir
şeklinde.
Bir de private sub ile başlayan komut dizisini nerelerde kullanabiliyoruz private sub la başlayan makro neden makro listesinde gözükmüyor?
vaktinizi ayırdığınız için teşekkürler

 

[Necdet]

Merhaba,

Private Sub, Sub yordamının yalnızca tanımlandığı modül içinde diğer yordamlar tarafından erişilir.

Önceki verdiğim kodları da düzelttim. Deneyiniz.

 

[bdmaestro]

Tamam oldu Çok Saolun