Aynı mantıkla çalışan kodları birleştirme

[EKREM1661]

Değerli Arkadaşlar..! İyi çalışmalar dileğiyle..

Aşağıdaki 3 kalıp kodu kısaltmak maksadıyla birleştirebilir miyiz..

If [a13].Value = "" Or [a13].Value = 0 Then
Rows(13).Hidden = True
ElseIf [c13].Value <> "" Then
Rows(13).Hidden = False
End If

If [a14].Value = "" Or [a14].Value = 0 Then
Rows(14).Hidden = True
ElseIf [c14].Value <> "" Then
Rows(14).Hidden = False
End If

If [a15].Value = "" Or [a15].Value = 0 Then
Rows(15).Hidden = True
ElseIf [c15].Value <> "" Then
Rows(15).Hidden = False
End If

 

[Murat OSMA]

Kod çok mu uzun geldi ?
Dosya üzerinde yapmak istediklerini görebilirsek, o zaman olabilirse daha kısa bir çözüm sunabiliriz...

 

[Murat OSMA]

Anladığım kadarıyla yazdım emin değilim, ama şu kodu bir dener misiniz lütfen?

[SIZE="2"]Sub Emre()
    Dim i As Byte
    For i = 13 To 15
    If Cells(i, 1) = "" Or Cells(i, 1) = 0 Then
    Rows(i).Hidden = True
    ElseIf Cells(i, 3) <> "" Then
    Rows(i).Hidden = False
    End If: Next i: i = Empty
End Sub[/SIZE]

 

[EKREM1661]

Murat bey..! Her hangi bir sorun teşkil etmemesi ile birlikte, kodları tek bir blokta görmeyi; gerek öğrenme açısından ve gerekse görsel bakımdan tercih ettim.. (Kodlar 10-12 kadar bir şey.. Bazıları ardışık değil)

 

[EKREM1661]

Murat bey..! Sizin ikinci mesajınız, benden önce yetişti.. Yukarıdaki kodunuz oldu elbet, hem de tam oldu.. Ben şimdi başarabilirsem diğer kodları da bu şekilde revize ederim. Ardışık olmayanları ayrıca tek olarak yazarım..

 

[EKREM1661]

Murat bey.. Yardımınıza karşı, teşekkür etmeyi unutmuş olma ayıbına düşmeden, teşekkürlerimi ziyadesiyle ifade etmiş bulunmaktayım..

 

[Murat OSMA]

Rica ederim Ekrem Bey, teşekküre gerek yok...
Eksik olmayın..