Makro Birden Fazla If kosulu

[arifcetin93]

Merhaba
asagıdaki kosulları tek ıf ıcınde nasıl bırlestırebılırız

If Sayfa4.Range("C3") = "" Then

Sayfa4.Range("E3") = ""

Else

Sayfa4.Range("E3") = Sayfa4.Range("D3") / Sayfa4.Range("C3")

End If


If Sayfa4.Range("C4") = "" Then

Sayfa4.Range("E4") = ""

Else

Sayfa4.Range("E4") = Sayfa4.Range("D4") / Sayfa4.Range("C4")

End If


If Sayfa4.Range("C5") = "" Then

Sayfa4.Range("E5") = ""

Else

Sayfa4.Range("E5") = Sayfa4.Range("D5") / Sayfa4.Range("C5")

End If


If Sayfa4.Range("C6") = "" Then

Sayfa4.Range("E6") = ""

Else

Sayfa4.Range("E6") = Sayfa4.Range("D6") / Sayfa4.Range("C6")

End If

 

[Korhan Ayhan]

Merhaba,

Döngü kullanarak kısaltabilirsiniz.

For X = 3 To 6
   If Sayfa4.Range("C" & X) = "" Then
      Sayfa4.Range("E" & X) = ""
   Else
      Sayfa4.Range("E" & X) = Sayfa4.Range("D" & X) / Sayfa4.Range("C" & X)
   End If
Next

 

[arifcetin93]

tesekkur ederım üstad