XY Kesişim Noktası'nın Renklendirilmesi

[1Al2Ver]

Merhaba,

X ve Y koordinatlarına ait kesişme noktasını, UserForm'da kayıtlı makro ile bulmaktayım,

Bulunan değerin çizelgede (örnek'te ; G8) renklenmesi için gereken kodu rica ediyorum,

Teşekkür ederim.

 

[Ömer]

Merhaba,

Kodları aşağıdakilerle değiştirerek deneyin..

Private Sub CommandButton1_Click()
    Range("B2:G6").Interior.ColorIndex = xlNone
    Set BULX = Range("A:A").Find(TextBox1, LookAt:=xlWhole)
    Set BULY = Rows("1:1").Find(TextBox2, LookAt:=xlWhole)
    If Not BULX Is Nothing And Not BULY Is Nothing Then
    TextBox3 = Cells(BULX.Row, BULY.Column)
    Cells(BULX.Row, BULY.Column).Interior.ColorIndex = 34
    Else
    TextBox3 = Empty
    End If
End Sub

.

 

[1Al2Ver]

Merhaba,

Kodları aşağıdakilerle değiştirerek deneyin..

Private Sub CommandButton1_Click()
    Range("B2:G6").Interior.ColorIndex = xlNone
    Set BULX = Range("A:A").Find(TextBox1, LookAt:=xlWhole)
    Set BULY = Rows("1:1").Find(TextBox2, LookAt:=xlWhole)
    If Not BULX Is Nothing And Not BULY Is Nothing Then
    TextBox3 = Cells(BULX.Row, BULY.Column)
    Cells(BULX.Row, BULY.Column).Interior.ColorIndex = 34
    Else
    TextBox3 = Empty
    End If
End Sub

.

Ömer bey merhaba,

Sorun çözüldü, çok teşekkür ederim,

Saygılarımla.

 

[ynmcan]

Syn. 1Al2Ver;
Dosyanıza alternatif olarak bir dosya ekledim.

 

[1Al2Ver]

Syn. 1Al2Ver;
Dosyanıza alternatif olarak bir dosya ekledim.

Sayın ynmcany, merhaba,

Emeğiniz ve ilginiz için çok teşekkür ederim, zahmet etmişsiniz, sağolun,

Saygılarımla.