en son renkli hücreyi bulma

[maxcilopez]

Arkadaşlar merhaba
3. satırdaki en son arka plan rengi 3 olan hücrenin sutun numarasını nasıl bulabilirim. Yardımlarınızı rica ederim.

 

[Orion1]

Buyurun.

Sub renkbul59()
Dim hcr As Range
For Each hcr In Range("A3:XFD16384")
    If hcr.Interior.ColorIndex = 3 Then
        MsgBox "Sütun index : " & hcr.Column
        Exit For
    End If
Next
End Sub

 

[maxcilopez]

İlginiz için teşekürler. Fakat vermiş olduğunuz kod ilk renkli hücreyi veriyor. Ben belirtilen satırdaki en sondaki renkli hücrenin sutun numarasını istiyorum.

 

[Orion1]

Arkadaşlar merhaba
3. satırdaki en son arka plan rengi 3 olan hücrenin sutun numarasını nasıl bulabilirim. Yardımlarınızı rica ederim.

İlginiz için teşekürler. Fakat vermiş olduğunuz kod ilk renkli hücreyi veriyor. Ben belirtilen satırdaki en sondaki renkli hücrenin sutun numarasını istiyorum.

arka plan rengi 3 olan hücrenin sütun numarasını istemişsiniz.

 

[Orion1]

Buyurun.

Sub sonhucrerenk59()
Rem En sondaki kırmızı hücrenin kolon numarasını verir.
Dim i As Integer
For i = 16384 To 1 Step -1
    If Cells(3, i).Interior.ColorIndex = 3 Then
        MsgBox "Sütun index : " & i
        Exit For
    End If
Next i
End Sub

 

[Merhum İdris SERDAR]

.

Bunu da deneyin.

Sub Sonkirmizi()

  Application.FindFormat.Clear
  Application.FindFormat.Interior.ColorIndex = 3
  MsgBox "Son Kırmızı Hücre Adresi: " & ActiveSheet.UsedRange.Find("", , , , , xlPrevious, , , True).Address
  Application.FindFormat.Clear

End Sub

.