Kod hatası

[levoni]

Arkadaşlar Merhaba,

Daha önce Sayın Korhan Hocamızın yazmış olduğu kodda aşağıda belirttiğim kısmı ben kendim ekledim.Ancak macroyu çalıştırdığımda ekte ekran görüntüsünü gönderdiğim hatayı veriyor.
Bu konuda bana yardımcı olabilirmisiniz, çok sevinirim benim

Koda benim eklediğim alan şu şekilde;

If UCase(S1.Cells(X, "F")) = "SF001A" Then
S1.Cells(X, "I") = "BANKSOFT"

Tşk ler

 

[Necdet]

Merhaba,

Okumak baya zahmetli oldu ama :

2. For döngüsü içinde olan 2. If ElseIf olarak başlamalı yada bir önceki If End If ile bitirilmeli.

 

[levoni]

Sayın Necdet Hocam,
çok tşk ler valla ellerinize, aklınıza sağlık sorunu dediğiniz şekilde hallettim.İyiki varsınız diyorum.
Zahmet verdiğim için kusura bakmayın

 

[Necdet]

Sayın Necdet Hocam,
çok tşk ler valla ellerinize, aklınıza sağlık sorunu dediğiniz şekilde hallettim.İyiki varsınız diyorum.
Zahmet verdiğim için kusura bakmayın

Rica ederim, kolay gelsin.

Bazen böyle küçük şeyleri insan göremeyebiliyor.