koşula bağlı makro çalıştırma

[kemal turan]

merhaba,
aşağıdaki kodumuzu sitemizden buldum.Bildiğiniz üzere c12 hücresi boş ise makronun çalışmasını engelliyor.
Ben bu kodu şöyle revize etmeye çalıştım başaramadım.
eğer (c2:c14) arasındaki hücrelerden herhangi biri boş ise
eğer (d10=d11) eşitse şeklinde 2 koşulum var.
Buna göre nasıl bir revize gerekiyor.
Teşekkür ederim.

Sub Kaydetsatis()
If Range("c12").Value = "" Then
MsgBox "Bilgi eksikliği var.", , "kemal turan"
GoTo bitir
Else
'makromuz
bitir:
End If
End Sub

 

[Orion1]

Buyurun.

Sub Kaydetsatis()
If WorksheetFunction.CountA(Sheets("Sayfa1").Range("C2:C14")) < 13 _
    And Sheets("Sayfa1").Range("D10").Value = Sheets("Sayfa1").Range("D11") Then
    MsgBox "Bilgi eksikliği var.", , "kemal turan"
        GoTo bitir
Else
'makromuz
End If
bitir:
End Sub

 

[kemal turan]

Merhaba Sn.Orıon,
Bu sefer bulmacayı ya bulamadım veya sorumu ters sordum.:???:

Orjınal kodumuz aşağıdadır.
İsteğim;
C2:c14 arasında herhangi bir hücre boş ise, ve ac14 af14 hücreleri eşit değilse makro çalışmasın istiyorum.
Teşekkür ederim.

Sub Kaydetsatis()
If WorksheetFunction.CountA(Sheets("planlama").Range("C2:C14")) < 13 _
And Sheets("planlama").Range("ac14").Value = Sheets("planlama").Range("af14").Value Then
MsgBox "Bilgi eksikliği var.", , "kemal turan"
GoTo bitir
Else
Worksheets("SATIŞLAR").AutoFilterMode = False
satır = Sheets("SATIŞLAR").Cells(Rows.Count, 1).End(3).Row + 1
Range("C18:AA44").Select
Selection.Copy
Sheets("SATIŞLAR").Cells(satır, 1).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
Sheets("satışlar").Select
MsgBox "Kayıt işlemi tamamlanmıştır.", , "kemal turan"
Sheets("planlama").Select Range("b3").Select
End If
bitir:
End Sub

 

[Orion1]

Sizin yazdığınız kodda belirtilen aralık < 13 ten ve ac14=af14 ise bilgi eksikliği mesajı veriyor.ve bitir paragrafına dallanıyor.
Bu yazdıklarım çalışıyor.Bu doğrumu?

 

[kemal turan]

Sn.Orıon,
Yeni bir çalışma sayfası oluşturdum kodunuzu çalıştırdım bir problem yok tam istediğim gibi
Fakat orjinal dosyamda makromuzu yapıştırdığımda tam tersi çalışıyor.
Şöyle ki;
2 koşul karşılanmış ise bir eksiklik ve hata yok ise "Bilgi eksikliği var" mesajı veriyor.
Eksiklik veya hata var ise makro çalışyor.
Anlayamadım vallahi.
Teşekkür ederim.

 

[Orion1]

Benim yolladığım dosyada aşağıdaki hücreler eşitliğinde kod bitiyordu.

Sheets("Sayfa1").Range("D10").Value = Sheets("Sayfa1").Range("D11") Then

ama siz bana son yolladığınızda bu hücreler vardı.

("ac14").Value = Sheets("planlama").Range("af14")

 

[kemal turan]

merhaba sn.orıon,
2 saattir bununla uğraşıyorum.Vakit te bayağı geç oldu.
Sizi de uğraştırdığımı biliyorum.
Ek te resim olarak sayfayı ekledim.
Çözüm için gerekli değişikliği yaparsanız sevinirim.
Selametle kalınız.

 

[Orion1]

Resimden bir şey anlamadım.
Yarın devam ederiz.
İyi geceler.

 

[kemal turan]

ek dosya ya bakabilirseniz.
Teşekkürler

 

[Orion1]

ek dosya ya bakabilirseniz.
Teşekkürler

Kodlar şu anda doğru çalışıyor.
Açıklamaları sayfa üzerinde yaptım.
Dosyanız ektedir.

 

[kemal turan]

Sn.Orıon,
Affınıza sığınarak tam orjınal dosyamı ekledim.Ek dosyanızı bilgim dahilimde yorumlayamadım.
Bu ek dosyaya bakarsanız tam sonuca gidebileceğiz diye düşünüyorum.
Hakkınızı helal ediniz.

 

[Orion1]

Sn.Orıon,
Affınıza sığınarak tam orjınal dosyamı ekledim.Ek dosyanızı bilgim dahilimde yorumlayamadım.
Bu ek dosyaya bakarsanız tam sonuca gidebileceğiz diye düşünüyorum.
Hakkınızı helal ediniz.

Ekli dosyayı yolladım.

 

[kemal turan]

Merhaba Sn.Orıon hocam,
Ek teki dosyaya baktığınızda sevinirsiniz umarım.
Öğrettikleriniz ve emeğiniz için çok teşekkür ederim.
Selametle kalınız.