İf end if sorusu?

[desk]

Arkadaşlar mrb Yapmak istediğim C8 hücresinde 1 yazıyorsa bu komutu çalıştır C8 hücresinde 2 yazıyorsa bu komutu çalıştır böyle böyle 20 ye kadar gitmek istiyorum.

If Range("C8") = 1 Then
Range("B10") = Application.ExecuteExcel4Macro("'" & Klasör & "\[" & Dosya_Adı & "]Sayfa1'!R2C3")
End If
Range("C8") = 2
Range("G10") = Application.ExecuteExcel4Macro("'" & Klasör & "\[" & Dosya_Adı & "]Sayfa1'!R3C3")
If Range("G10") = 0 Then Range("G10") = Empty

Bu şekilde bir deneme yaptım 1 yazıyorum çalıştırıyorum hemen kendiliğinden 2 yazıp iki satırıda çalıştırıyor Benim istediğim ise C8 de 1 yazıyor sa Range B10 satırlı komut, 2 yazıyorsa G20 lu satırın çalışmasıdır.

 

[Metin Karaağaç]

Bir de böyle deneyin.

If Range("C8") = 1 Then
Range("B10") = Application.ExecuteExcel4Macro("'" & Klasör & "\[" & Dosya_Adı & "]Sayfa1'!R2C3")
End If
If Range("C8") = 2 Then
Range("G10") = Application.ExecuteExcel4Macro("'" & Klasör & "\[" & Dosya_Adı & "]Sayfa1'!R3C3")
If Range("G10") = 0 Then Range("G10") = Empty
End If

 

[desk]

Metin hocam çok tşk ederim. Koray hocamada yardımı için ayrıca çok tşk ederim. İşim halloldu.