iç içe iki if döngüsü olacak

[recaiyigit]

Kod: [Seç]

Sub iki_değer_içeriyorsa()

For i = 1 To 100000  '*

deg1 = ("*Elektrik*")
'deg2 = ("*ELEKTRIK*")

If Sheets("Sayfa1").Cells(i, 4) Like deg1 Then
If Sheets("Sayfa1").Cells(i, 5) <> "" Then

      Sheets("Sayfa2").Cells(i, 1).Value = Sheets("Sayfa1").Cells(i, 5)  'tarih
       Sheets("Sayfa2").Cells(i, 2).Value = Sheets("Sayfa1").Cells(i, 6) 'ay
       Sheets("Sayfa2").Cells(i, 3).Value = Sheets("Sayfa1").Cells(i, 7) 'firma
       Sheets("Sayfa2").Cells(i, 4).Value = Sheets("Sayfa1").Cells(i, 8) 'açıklmama
       Sheets("Sayfa2").Cells(i, 5).Value = Sheets("Sayfa1").Cells(i, 10) 'borç
       Sheets("Sayfa2").Cells(i, 6).Value = Sheets("Sayfa1").Cells(i, 11) 'alacak
End If
'ElseIfsheets("Sayfa1").Cells(i, 4) Like deg2 Andsheets("Sayfa1").Cells(i, 5) <> "" Then
   
 '      sheets("Sayfa2").Cells(i, 1).Value =sheets("Sayfa1").Cells(i, 5) 'tarih
  '     sheets("Sayfa2").Cells(i, 2).Value =sheets("Sayfa1").Cells(i, 6) 'ay
   '    sheets("Sayfa2").Cells(i, 3).Value =sheets("Sayfa1").Cells(i, 7) 'firma
    '   sheets("Sayfa2").Cells(i, 4).Value =sheets("Sayfa1").Cells(i, 8) 'açıklmama
     '  sheets("Sayfa2").Cells(i, 5).Value =sheets("Sayfa1").Cells(i, 10) 'borç
      ' sheets("Sayfa2").Cells(i, 6).Value =sheets("Sayfa1").Cells(i, 11) 'alacak
'Else
       'Cells(i, 1).Value = "boş"
End If

Next i

End Sub



NEDEN ÇALIŞMIYOR LÜTFEN YARDIM