Sütun arttırınca Run-time error 9 ....

[karzer]

Merhaba, excel satırları renklendiren makro da sütunları 4 çıkarmak isteyince Run-time error 9 uyarısı veriyor acaba n yapmam gerekiyor ? sütun sayısı 2 olunca sorun olmuyor kod ları ekliyorum... Şimdiden teşekkür ederim...

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
    SÜTUN = 2
    If Application.CutCopyMode = xlCopy Then Exit Sub
    If Application.CutCopyMode = xlCut Then Exit Sub
    If Target.Column > SÜTUN Then
    İŞLEM = False
    Call AKTİF_SATIRI_RENKLENDİR
    Exit Sub: End If
    İŞLEM = True
    Call AKTİF_SATIRI_RENKLENDİR
End Sub

Sub AKTİF_SATIRI_RENKLENDİR()
    Const SÜTUN As Long = 2
    Const YENİ_RENK As Long = 8
    Static ESKİ_HALİ As Range
    Static ESKİ_HÜCRE_RENKLERİ(1 To SÜTUN) As Long
    Dim X As Long
    
    If İŞLEM = True Then
    If Not ESKİ_HALİ Is Nothing Then
    With ESKİ_HALİ.Cells
        If .Row = ActiveCell.Row Then
        For X = 1 To SÜTUN
        .Item(X).Interior.ColorIndex = ESKİ_HÜCRE_RENKLERİ(X)
        Next X
        .Interior.ColorIndex = YENİ_RENK
        ActiveCell.Interior.ColorIndex = 8
        Exit Sub: End If
        For X = 1 To SÜTUN
        .Item(X).Interior.ColorIndex = ESKİ_HÜCRE_RENKLERİ(X)
        Next X
    End With
    End If
    Set ESKİ_HALİ = Cells(ActiveCell.Row, 1).Resize(1, SÜTUN)
    With ESKİ_HALİ
        For X = 1 To SÜTUN
        .Item(X).Interior.ColorIndex = ESKİ_HÜCRE_RENKLERİ(X)
        Next X
        .Interior.ColorIndex = YENİ_RENK
    End With
        ActiveCell.Interior.ColorIndex = 8
        Else
        If Not ESKİ_HALİ Is Nothing Then
    With ESKİ_HALİ.Cells
        For X = 1 To SÜTUN
        .Item(X).Interior.ColorIndex = ESKİ_HÜCRE_RENKLERİ(X)
        Next X
    End With
    End If
    End If
End Sub

 

[karzer]

Run-time error 9

Run-time error 9 yardımcı olabilecek kimse yokmu acaba ?

 

[uzmanamele]

merhaba

kodlarınızı kontrol etmeden önce dosyanızı kontrol edin.
kullandığınız son sütundan IV256 ya kadar olan sütunları silip kodu çalıştırın.

 

[karzer]

error

Dediğinizi yaptım fakat hata devam ediyor, hata verince debug bastım altaki koda gidiyor.

.Item(X).Interior.ColorIndex = ESKİ_HÜCRE_RENKLERİ(X)

 

[janveljan]

Aktif Satırı renklendir subında decleration bölümünü aşağıdaki şekilde düzeltip dener misiniz?

    Const SÜTUN As Long = 4
    Const YENİ_RENK As Long = 8
    Static ESKİ_HALİ As Range
    Static ESKİ_HÜCRE_RENKLERİ() As Long
    Dim X As Long
    ReDim ESKİ_HÜCRE_RENKLERİ(1 To SÜTUN)

 

[karzer]

teşekkür

Çok teşekkür ederim sozun çözüldü.