Makronun Belirli şarta bağlı olarak çalışması.

[unur]

Makronun Belirli şartlara bağlı olarak çalışması.

İyi geceler;
Arkadaşlar şöyle bir konuda yardımlarınıza ihtiyacım var.

16 satırdan 1000 satıra kadar verilerim var.

1-G sütünunda rakam varsa; H sütunu ve L sütunu boş bırakılmışsa
2-I sütununda metin varsa; L sütunu boş bırakılmışsa
3-J sütununda rakam varsa;K sütunu ve L sütunu boş bırakılmışsa hata uyarısı versin
yoksa aşağıdaki makroyu çalıştırsın.

Sheets("B.B").Visible = True
Sheets("B.B").Select
ActiveWindow.SelectedSheets.PrintPreview
Sheets("B.B").Visible = False
Sheets("P.G").Select
Range("A15").Select

Yardımcı olacak arkadaşlara şimdiden Teşekkürler.

 

[Korhan Ayhan]

Bu kodunuz hangi olay içinde çalışıyor.

 

[unur]

Korhan Bey; kodlar herhangi bir olay içinde çalışmıyor.Kodların hepsi bu bunuda bir düğmeye atamıştım. Şimdi de böyle bir şeye gereksinim duydum.Yardımcı olursanız sevinirim.

 

[ExcelF1]

Test etmedim ama sanırım böyle bir şey istiyorsunuz.

Sub Düğme1_Tıklat()
Dim a As Double
a = ActiveCell.Row
If IsNumeric(Range("G" & a)) And Range("H" & a) = "" And Range("L" & a) = "" Then
If Not IsNumeric(Range("I" & a)) And Range("L" & a) = "" Then
If IsNumeric(Range("J" & a)) And Range("K" & a) = "" And Range("L" & a) = "" Then
MsgBox "HATA"
Exit Sub
Else
Sheets("B.B").Visible = True
Sheets("B.B").Select
ActiveWindow.SelectedSheets.PrintPreview
Sheets("B.B").Visible = False
Sheets("P.G").Select
Range("A15").Select
End If
End If
End If
End Sub

 

[unur]

Teşekkürler ExcelF1 ama kodları çalıştıramadım.

2-I sütununda metin varsa; L sütunu boş bırakılmışsa= If Not IsNumeric(Range("I" & a)) And Range("L" & a) = "" Then

bu satırdamı proplem var bi incelerseniz I sütunu metin olacak şekilde revize edebilirmisiniz.
Teşekkürler.

 

[unur]

Kodu çalıştıramadım.Yardımcı olacak arkadaş yokmu? O şartları sağlamıyorsa belgede eksik bilgi var uyarı mesajı çıkabilirmi?
Teşekkürler.

 

[unur]

Güncellemek için

 

[ExcelF1]

Dosyanızı eklerseniz daha rahat sonuç alabiliriz sanırım. Yada örnek bir veri de olabilir.
Yine de şöyle izah edeyim.

2-I sütununda metin varsa; L sütunu boş bırakılmışsa= If Not IsNumeric(Range("I" & a)) And Range("L" & a) = "" Then
bu satırdamı proplem var bi incelerseniz I sütunu metin olacak şekilde revize edebilirmisiniz.

I sütununda rakam değilse, yani metin ise diyoruz.
Isnumeric = Rakam ise
Not Isnumeric = Rakam değilse (rakam değil ise metin dir)


Bu kodlar, aktif hücrenin bulunduğu satıra göre işlem yapmaktadır. Yani butona bastığınızda o anda hangi satır aktif ise, o satırdaki veriler baz alınarak işlem yapar. Ve 8 şart belirtmişsiniz, tüm şartlar gerçekleştiği takdirde işlem yapılacaktır.

Kısacası, örnek bir dosya eklemeniz sorunun çözümünde daha etkin rol oynayacaktır.

Kolay gelsin...

Not : Forumda çok aktif bir üye değilim, cevaplarımız eğer çok geç olur veya hiç olmazsa şimdiden kusuruma bakmayın lütfen.

 

[unur]

Soruma bir örnek dosya eklemeye çalıştım ilgilenirseniz sevinirim.
Teşekkürler.

 

[ExcelF1]

Şu şekilde bir dener misiniz.

Sub Düğme1_Tıklat()
If IsNumeric(Range("G5")) And Range("H5") = "" And Range("L5") = "" Then
    If Not IsNumeric(Range("I9")) And Range("L9") = "" Then
        If IsNumeric(Range("J14")) And Range("K14") = "" And Range("L14") = "" Then
        MsgBox "EKSİK BİLGİ VAR", , "   unur"
        Exit Sub
        Else
        GoTo 10
        End If
    Else
    GoTo 10
    End If
Else
GoTo 10
End If
10
Sheets("B.B").Visible = True
Sheets("B.B").Select
ActiveWindow.SelectedSheets.PrintPreview
Sheets("B.B").Visible = False
Sheets("P.G").Select
Range("A15").Select
End Sub

 

[unur]

İyi akşamlar.
Excel F1 ben bu işi beceremedim.Birde oradaki hücre adresleri örnek.Benim istediğim tüm sütunlar. 1000 satırlık bir listem var bu şekilde. İncelerseniz sevinirim.

 

[unur]

Arkadaşlar soruyu şu şekilde değiştirsem;
Aşağıdaki 1,2,3 soruları ayrı ayrı düşünürsek,koşullu biçimlendirme formülü uygulayabilirmiyiz.Yani G sütünunda rakam varsa; H sütunu ve L sütunu boş bırakılmışsa
H ve L sütununu boş geçemezsin uyarısı vermesini sağlayabilirmiyiz.Tabi 2 ve 3 koşullar içinde aynı şeyi uygulamak istiyorum.Hepsi Tek formülde olabilirmi bilemiyorum.Ben birinin içinden çıkamadım 2 gündür
Teşekkürler.

İyi geceler;
Arkadaşlar şöyle bir konuda yardımlarınıza ihtiyacım var.

16 satırdan 1000 satıra kadar verilerim var.

1-G sütünunda rakam varsa; H sütunu ve L sütunu boş bırakılmışsa
2-I sütununda metin varsa; L sütunu boş bırakılmışsa
3-J sütununda rakam varsa;K sütunu ve L sütunu boş bırakılmışsa hata uyarısı versin
yoksa aşağıdaki makroyu çalıştırsın.


Yardımcı olacak arkadaşlara şimdiden Teşekkürler.

 

[unur]

İyi bayramlar;
Soruyu güncellemek için.

 

[unur]

Arkadaşlar yukarıdaki soruya cevap alamadım başka bir başlık altındamı sormam gerekiyor.
Farklı bir başlık açmak istemedim.Koşullu biçimlendirme ile yapabilirsek,bu konuda yardımcı olacak arkadaşlara şimdiden teşekkürler.

 

[unur]

Arkadaşlar bayram tatili bitti, bu konuda yardımcı olacak arkadaş var mı?

Arkadaşlar soruyu şu şekilde değiştirsem;
Aşağıdaki 1,2,3 soruları ayrı ayrı düşünürsek,koşullu biçimlendirme formülü uygulayabilirmiyiz.Yani G sütünunda rakam varsa; H sütunu ve L sütunu boş bırakılmışsa
H ve L sütununu boş geçemezsin uyarısı vermesini sağlayabilirmiyiz.Tabi 2 ve 3 koşullar içinde aynı şeyi uygulamak istiyorum.Hepsi Tek formülde olabilirmi bilemiyorum.Ben birinin içinden çıkamadım 2 gündür
Teşekkürler.

İyi geceler;
Arkadaşlar şöyle bir konuda yardımlarınıza ihtiyacım var.

16 satırdan 1000 satıra kadar verilerim var.

1-G sütünunda rakam varsa; H sütunu ve L sütunu boş bırakılmışsa
2-I sütununda metin varsa; L sütunu boş bırakılmışsa
3-J sütununda rakam varsa;K sütunu ve L sütunu boş bırakılmışsa hata uyarısı versin
yoksa aşağıdaki makroyu çalıştırsın.


Yardımcı olacak arkadaşlara şimdiden Teşekkürler

 

[ExcelF1]

16 satırdan 1000 satıra kadar verilerim var, demişsiniz. Bu koşulları istediğiniz hücre adresleri sabit değil mi ? Aşağıdaki kodu deneyiniz.

Sub Düğme1_Tıklat()
If IsNumeric([G5]) And [H5] = "" And [L5] = "" And _
Not IsNumeric([I9]) And [L9] = "" And _
IsNumeric([J14]) And [J14] <> "" And [K14] = "" And [L14] = "" Then
MsgBox "Eksik Bilgi Var"
Exit Sub
End If
Sheets("B.B").Visible = True
Sheets("B.B").Select
ActiveWindow.SelectedSheets.PrintPreview
Sheets("B.B").Visible = False
Sheets("P.G").Select
Range("A15").Select
End Sub