Şartlı Makro Çalıştırma

[katip16487]

Sayfa1, Sayfa2 şeklinde sayfaların bulunduğu bi dosyam mevcut.

Sayfa1'i veri giriş sayfası olarak kullanmaktayım.

Sayfa1'in A sütununda 120. satıra kadar veri girişi yapabiliyorum. Ancak verilerin büyüklüğü nedeniyle 36. satırdan sonraki verileri başka bi yere aktarmam gerekiyor.

Bu nedenle öyle bir makro yazmalıyım ki Sayfa1'in A sütununun 37. satırına veri girişi yapılmış ise makro dursun ve ekranda "Lütfen fazla veri girişini siliniz yada çıktıyı word belgesinden alınız." şeklinde uyarı verdikten sonra tamam butonuna tıklandığında Sayfa1'in A1 hücresine imleci götürsün, ancak A sütununun 37. satırı boş ise (normal şartlarda A sütununa sıra ile veri girilmektedir ve üst satıra veri girilmemiş ise alta veri girilememektedir.) makro çalışsın ve ilgili işlemleri yerine getirsin.

Dosya çok büyük olduğu için ne yazık ki örnek ekleyemiyorum.

Saygılarımla...

 

[Orion1]

Uygun yere yapıştırınız.

If Sheets("Sayfa1").Range("A37").Value <> "" Then
    MsgBox "Lütfen fazla veri girişini siliniz yada çıktıyı word belgesinden alınız.", vbCritical, "U Y A R I"
    Exit Sub
End If

 

[katip16487]

Sub Çıktı()
Sheets("Çıktı").Visible = True
Sheets("Çıktı").Select
End Sub


Şeklindeki makronun neresine yapıştırmam gerekir bunu, kusura bakmayın. SAygılarımla...

 

[Orion1]

Sub Çıktı()
Sheets("Çıktı").Visible = True
Sheets("Çıktı").Select
End Sub


Şeklindeki makronun neresine yapıştırmam gerekir bunu, kusura bakmayın. SAygılarımla...

Makronuz bu kadarmı?
Pek anlamadım ama aşağıda söylediğim yere yapıştırıp deneyin.

Sub Çıktı()
[B][COLOR="Red"]'Buraya yapıştırın.[/COLOR][/B]
Sheets("Çıktı").Visible = True
Sheets("Çıktı").Select
End Sub

 

[katip16487]

Makroları genelde CALL kullanmak suretiyle çağırdığım için çoğunluğu bu şekilde kısa makrolardan oluşuyor, üzerinde çalışacağım makro da bu şekilde bi makro, ancak çok saydı CALL var makronun içinde. İlginize teşekkür ederim.

 

[katip16487]

Elinize emeğinize sağlık.