Boş hücreye aktarma olmamalı

[zırzır]

Arkadaşlar,excel kitabındaki "sayfa2" de(AB6,BE29)ve "sayfa3"te(AB11,BG34) hücrelerde veriler var,bu verileri "sayfa1"deki "Aktar" butonuna bağlı makro ile "sayfa2 ve sayfa3" teki (AB6,BE29)ve(AB11,BG34) nolu hücrelere aktarıyorum.
Ancak bu aktarma işlemini yapmadan önce yazılacak olan makro bu sayfaları kontrol edip boş bir hücre görürse aktarmaya engel olacaktır ve "Boş hücre tespit
edilmiştir aktarma yapılamadı" uyarısı çıkmalı.Bu konuda yardımlarınızı bekliyorum.
Saygılar.

 

[hamitcan]

Arkadaşlar,excel kitabındaki "sayfa2" de(AB6,BE29)ve "sayfa3"te(AB11,BG34)

1-Burada belirttiğiniz bir aralık mı yoksa her biri birer hücre mi?
2-Ayrıca, "sayfa2" de(AB6,BE29) verileri "sayfa3"te(AB11,BG34) mi aktarmak istiyorsunuz?

 

[zırzır]

Sayın hamitcan, "sayfa2" de(AB6,BE29) ve"sayfa3"te(AB11,BG34) bunlar hücre aralıkları, yukarıdaki hücre aralıklarına 24 saatte bir veri yükleniyor, bu yüklenen verileri başka sayfalara aktarma butonu sayfa1'de.Her iki sayfadaki hücre aralıklarından birinde veri olmasa,birinci sayfadaki aktarma butonu çalışmamalı ve uyarı vermeli.

 

[Orion1]

Ekli dosyayı inceleyiniz.

Sub aktar()
Dim deg, deg2 As Range
For Each deg In Sheets("Sayfa2").Range("AB6:BE29")
    If deg.Value = "" Then
        MsgBox deg.Address(False, False) & " Adresindeki hücre boş.Aktarma yapılmadı..!!", vbCritical
        Exit Sub
    End If
Next
For Each deg2 In Sheets("Sayfa3").Range("AB11:BG34")
    If deg2.Value = "" Then
        MsgBox deg2.Address(False, False) & " Adresindeki hücre boş.Aktarma yapılmadı..!!", vbCritical
        Exit Sub
    End If
Next
End Sub

 

[zırzır]

Sayın Orion2, kodda iki adet uyarı var ,bir kod ile iki sayfayı kontrol edemezmiyiz.

 

[Orion1]

Sayın Orion2, kodda iki adet uyarı var ,bir kod ile iki sayfayı kontrol edemezmiyiz.

İki adet uyarı olması farketmez.Sizin isteğinize cevap veriyorsa kodlar işlevini yerine getirmiş sayılır.Zaten ilk uyarıdan sonra Prosedür'den çıkılıyor.

[B]Exit Sub[/B]

 

[zırzır]

Bu şekildede işimi görüyor.Teşekkür ederim,Ellerine sağlık