Kodu Revize Etmek İçin Yardım

[BedriA]

Arkadaşlar,

Aşağıdaki kodda şöyle bir değişiklik yapmak istiyorum:

Kodda sonlarına numara konmuş kısımların her biri mesela G1 hücresinde önce "BOŞ" yazıp yazmadığını kontrol etsin, eğer yazmıyorsa işlem yapsın.

Private Sub CommandButton2_Click()

 
  For i = 1 To 20
  Range("G" & i).Select
    ActiveCell.FormulaR1C1 = "=IF(AND(RC[-5]<>""A"",RC[-4]<>""B""),""Boş"","")"'1
    ActiveCell.FormulaR1C1 = "=IF(AND(RC[-5]<>""A"",RC[-3]<>""C""),""Boş"","")"'2
    ActiveCell.FormulaR1C1 = "=IF(AND(RC[-5]<>""A"",RC[-2]<>""D""),""Boş"","")"'3
    ActiveCell.FormulaR1C1 = "=IF(AND(RC[-5]<>""A"",RC[-1]<>""E""),""Boş"","")"'4
    ActiveCell.FormulaR1C1 = "=IF(AND(RC[-4]<>""B"",RC[-3]<>""C""),""Boş"","")"'5
    ActiveCell.FormulaR1C1 = "=IF(AND(RC[-4]<>""B"",RC[-2]<>""D""),""Boş"","")"'6
    ActiveCell.FormulaR1C1 = "=IF(AND(RC[-4]<>""B"",RC[-1]<>""E""),""Boş"","")"'7
    ActiveCell.FormulaR1C1 = "=IF(AND(RC[-3]<>""C"",RC[-2]<>""D""),""Boş"","")"'8
    ActiveCell.FormulaR1C1 = "=IF(AND(RC[-3]<>""C"",RC[-1]<>""E""),""Boş"","")"'9
    ActiveCell.FormulaR1C1 = "=IF(AND(RC[-2]<>""D"",RC[-1]<>""E""),""Boş"","")"'10
    
   Next i
       
End Sub

 

[BedriA]

Konu çözüldü.
Daha genel bir kod ile Yusuf Hoca bu sorunu çözdü.

http://www.excel.web.tr/f48/belli-hucrelerdeki-metinlere-gore-kontrol-t165490/sayfa2.html#post901852