Bir Kolondaki En Son Renkli Hücrenin Renginin Textbox'a gelmesi

[cocoa35]

Merhaba, aşağıdaki formül ile bir kolondaki en son dolu hücrenin rengini açılışta textbox'a getirebiliyorum ancak benim istediğim "en son dolu hücre değil", "en son renkli hücrenin" renginin text box'a gelmesi bunu nasıl yapabilirim.

Private Sub UserForm_Initialize()

Me.TextBox63.BackColor = Sheets("Rezervasyon").Cells(Rows.Count, "AC").End(3).Interior.Color

End Sub

 

[Muzaffer Ali]

Merhaba.

Private Sub UserForm_Initialize()
    Dim Bak As Long
    With Worksheets("Rezervasyon")
        For Bak = 1 To .Cells(Rows.Count, "AC").End(3).Row
            If .Cells(Bak, "AC").Interior.Pattern <> xlNone Then
                TextBox1.BackColor = .Cells(Bak, "AC").Interior.Color
            End If
        Next
    End With
End Sub

 

[cocoa35]

Muzaffer bey tam istediğim gibi olmuş ancak bir sorun var onu çözmeye çalışıyorum, koşullu biçimlendirme renkleri ile olan hücreyi almıyor ben renklendirirsem en son renkli hücreyi getiriyor bunu çözmeye çalışıyorum

 

[Necdet]

Muzaffer bey tam istediğim gibi olmuş ancak bir sorun var onu çözmeye çalışıyorum, koşullu biçimlendirme renkleri ile olan hücreyi almıyor ben renklendirirsem en son renkli hücreyi getiriyor bunu çözmeye çalışıyorum

Koşullu biçimlendirmede ki şartı dikkate almalısınız.

 

[cocoa35]

Benim programımdaki renklendirme koşullu biçimlendirme renkleri ile yapılıyor necdet bey sizin formülü nasıl buna uyarlayacağım?

 

[cocoa35]

Merhaba, aşağıdaki formülü girdiğimde ekli resimde görüldüğü gibi mavi hücre rengini textbox'a getiriyor, burda mavi benim renklendirdiğim hücre yeşiller ise koşullu biçimlendirme ile renklenmiş hücreler, eğer yeşillerin altındaki hücreyi el ile renklendirdiğimde bu sefer o hücre rengi textbox'a geliyor ancak istenen koşullu biçimlendirme ile olan renklerin bulunduğu son hücre renginin textboxa gelmesi! bunu nasıl düzeltebilirim


Private Sub UserForm_Initialize()
Dim Bak As Long
With Worksheets("Rezervasyon")
For Bak = 1 To .Cells(Rows.Count, "AC").End(3).Row
If .Cells(Bak, "AC").Interior.Pattern <> xlNone Then
TextBox63.BackColor = .Cells(Bak, "AC").Interior.Color
End If
Next
End With
End Sub

 

[cocoa35]

Örnek dosyayı ekledim,

 

[cocoa35]

Merhaba.

Private Sub UserForm_Initialize()
    Dim Bak As Long
    With Worksheets("Rezervasyon")
        For Bak = 1 To .Cells(Rows.Count, "AC").End(3).Row
            If .Cells(Bak, "AC").Interior.Pattern <> xlNone Then
                TextBox1.BackColor = .Cells(Bak, "AC").Interior.Color
            End If
        Next
    End With
End Sub

 

[Muzaffer Ali]

Aşağıdaki kodu deneyiniz.

Private Sub UserForm_Initialize()
    Dim Bak As Long
    For Bak = 1 To ActiveSheet.Cells(Rows.Count, "AC").End(3).Row
        With ActiveSheet.Cells(Bak, "AC")
            If .FormatConditions.Count > 0 Then
                TextBox1.BackColor = .FormatConditions(1).Interior.Color
            End If
        End With
    Next
End Sub

 

[Muzaffer Ali]

Yada her iki rengi de kontrol etmek isterseniz.

Private Sub UserForm_Initialize()
    Dim Bak As Long
    For Bak = 1 To ActiveSheet.Cells(Rows.Count, "AC").End(3).Row
        With ActiveSheet.Cells(Bak, "AC")
            If .FormatConditions.Count > 0 Then
                TextBox1.BackColor = .FormatConditions(1).Interior.Color
            ElseIf .Interior.Pattern <> xlNone Then
                TextBox1.BackColor = .Interior.Color
            End If
        End With
    Next
End Sub

 

[cocoa35]

Sn Muzaffer Ali bey çalışmalarınız için çok teşekkür ediyorum, gönderdiğiniz her iki formülüde girdim ancak son renkli hücre gelmiyor maalesef resimde'de görüldüğü gibi

 

[Muzaffer Ali]

Bu sefer oldu sanırım.

Private Sub UserForm_Initialize()
    Dim Bak As Long
    Dim Kb As Integer
    For Bak = 1 To ActiveSheet.Cells(Rows.Count, "AC").End(3).Row
        With ActiveSheet.Cells(Bak, "AC")
            If .Interior.Pattern <> xlNone Then
                TextBox1.BackColor = .Interior.Color
            ElseIf .FormatConditions.Count > 0 And .Text <> "" Then
                For Kb = 1 To .FormatConditions.Count
                    If .FormatConditions(Kb).Formula1 = "=" & .Text Then
                        TextBox1.BackColor = .FormatConditions(Kb).Interior.Color
                        Exit For
                    End If
                Next
            End If
        End With
    Next
End Sub

 

[cocoa35]

Maalesf olmadı Muzaffer bey sizde bu saatlerde çözüm için uğraşıyorsunuz çok teşekkür ederim, Formüle ActiveSheet kullanıldığında hangi sayfada açış yapıyorsam onun ilk hücre rengini alıyor, ben
Worksheets("Rezervasyon") kullandım Ancak bu şekildede yine ilk hücre rengini getiriyor maalesef örnek dosyayı ekledim sizde belki deneyerek bulabilirsiniz her şey için çok teşekkürler iyi geceler

 

[Muzaffer Ali]

Private Sub UserForm_Initialize()
    Dim Bak As Long
    Dim Kb As Integer
    For Bak = 1 To Worksheets("Rezervasyon").Cells(Rows.Count, "I").End(3).Row
        With Worksheets("Rezervasyon").Cells(Bak, "I")
            If .Interior.Pattern <> xlNone Then
                TextBox2.BackColor = .Interior.Color
            ElseIf .FormatConditions.Count > 0 And .Text <> "" Then
                For Kb = 1 To .FormatConditions.Count
                    If .FormatConditions(Kb).Text = .Text Then
                        TextBox2.BackColor = .FormatConditions(Kb).Interior.Color
                        Exit For
                    End If
                Next
            End If
        End With
    Next
    TextBox1.Text = [Opsiyonel!C1]
End Sub

 

[cocoa35]

Private Sub UserForm_Initialize()
    Dim Bak As Long
    Dim Kb As Integer
    For Bak = 1 To Worksheets("Rezervasyon").Cells(Rows.Count, "I").End(3).Row
        With Worksheets("Rezervasyon").Cells(Bak, "I")
            If .Interior.Pattern <> xlNone Then
                TextBox2.BackColor = .Interior.Color
            ElseIf .FormatConditions.Count > 0 And .Text <> "" Then
                For Kb = 1 To .FormatConditions.Count
                    If .FormatConditions(Kb).Text = .Text Then
                        TextBox2.BackColor = .FormatConditions(Kb).Interior.Color
                        Exit For
                    End If
                Next
            End If
        End With
    Next
    TextBox1.Text = [Opsiyonel!C1]
End Sub

Büyüksünüz Muzaffer bey bu kadar uğraştan sonra tam oldu )) Çok çok teşekkürler emekleriniz için iyiki varsınız....

 

[Muzaffer Ali]

Estağfirullah. Büyüklük Allah'a mahsus.
Ben de teşekkür ederim sayenizde deneme yanılma yöntemi ile de olsa bir şeyler öğrenmiş oldum.
Hayırlı işler.