Soru Color Fill ile macro başlatma

[Czyy]

Merhabalar,

Eklemiş olduğum dosyada yaşamış olduğum sıkıntıyı anlattım.
Çözüm bulabilirseniz çok sevinirim.

Örnek ctrl+F ile GH82-18131A kodunu arattım B10 sütununda buldu.
Sarı renk ile işaretlediğim zaman o hücredeki kodu, Etiket sayfasındaki B1 hücresine taşıyıp formatı yazdıracak bir formül yada macro yapılabilir mi?

 

[Ömer BARAN]

Merhaba.
Mevcut kodu aşağıdakiyle değiştirirseniz, CTRL+F ekranına yazacağınız veriyi örneğin G1 hücresine yazıp
ENTER veya YÖN TUŞLARInı kullanarak hücreden çıkmanız yeterli olur.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [G1]) Is Nothing Then Exit Sub
For sat = 1 To Cells(Rows.Count, "B").End(3).Row
    If Cells(sat, "B") = Target Then
        Sheets("Etiket").[B1] = Target
        Cells(sat, "B").Interior.Color = vbYellow
        Sheets("Etiket").PrintOut
    End If
Next
End Sub

 

[Czyy]

Merhaba.
Mevcut kodu aşağıdakiyle değiştirirseniz, CTRL+F ekranına yazacağınız veriyi örneğin G1 hücresine yazıp
ENTER veya YÖN TUŞLARInı kullanarak hücreden çıkmanız yeterli olur.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [G1]) Is Nothing Then Exit Sub
For sat = 1 To Cells(Rows.Count, "B").End(3).Row
    If Cells(sat, "B") = Target Then
        Sheets("Etiket").[B1] = Target
        Cells(sat, "B").Interior.Color = vbYellow
        Sheets("Etiket").PrintOut
    End If
Next
End Sub

Yardımınız için teşekkür ederim.Yazmış olduğunuz kod benim işimi görür ama genel olarak örnek vermek gerekirse diyelim B10 sütunu seçip
Color fill ile sarıya boyadım bunu yapınca macronun çalışmasını sağlayabilir miyim peki