Farklı satırdan başlatma

[muratgunay48]

Arkadaşlar, sayın hocalarım, dosyamda karşılaştırma yapılacak alanı 1. Değil de farklı satırdan nasıl başlatabilirim. Hep hata veriyor. Mesela seçili alanı B1'den değil de B4'ten başlatmak istesem.
Şimdiden teşekkür ederim.
Saygılarımla.

 

[Muzaffer Ali]

Merhaba.
Adres = "B1:G11" kısmını değiştirebilirsiniz.

Sub Test()
    Dim Adres As String
    Dim Bak As Range

    Adres = "B1:G11"
    For Each Bak In Worksheets("Sayfa1").Range(Adres)

        If Bak <> Worksheets("Sayfa2").Range(Bak.Address) Then
            Bak.Interior.Color = 255
        End If
    Next
    With Worksheets("Sayfa1").Range(Adres)
        .Borders.LineStyle = xlContinuous
        .Borders.Weight = xlThin
        .Borders.ColorIndex = 0
        .Interior.PatternTintAndShade = 0
    End With
    With Worksheets("Sayfa2").Range(Adres).Borders
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = 0
    End With
End Sub

 

[muratgunay48]

Merhaba.
Adres = "B1:G11" kısmını değiştirebilirsiniz.

Sub Test()
    Dim Adres As String
    Dim Bak As Range

    Adres = "B1:G11"
    For Each Bak In Worksheets("Sayfa1").Range(Adres)

        If Bak <> Worksheets("Sayfa2").Range(Bak.Address) Then
            Bak.Interior.Color = 255
        End If
    Next
    With Worksheets("Sayfa1").Range(Adres)
        .Borders.LineStyle = xlContinuous
        .Borders.Weight = xlThin
        .Borders.ColorIndex = 0
        .Interior.PatternTintAndShade = 0
    End With
    With Worksheets("Sayfa2").Range(Adres).Borders
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = 0
    End With
End Sub

Hocam çok ama çok teşekkür ederim. Elinize emeğinize sağlık. Şimdi bunu Sudoku'ya ekleyebilirim.
Gerçekten çok teşekkür ederim. Var olun. Diğerinde bir sorun da karşılaştırınca puntoları bozuyordu. Çok teşekkürler.