Soru Color Fill ile macro başlatma

Czyy

Altın Üye
Katılım
25 Ocak 2019
Mesajlar
5
Beğeniler
0
Excel Vers. ve Dili
2016 ENG
#1
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?
 

Ekli dosyalar

Katılım
8 Mart 2011
Mesajlar
13,048
Beğeniler
747
Excel Vers. ve Dili
Office 2013 ( 32 bit ) TÜRKÇE
#2
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.
Rich (BB code):
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

Altın Üye
Katılım
25 Ocak 2019
Mesajlar
5
Beğeniler
0
Excel Vers. ve Dili
2016 ENG
#3
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.
Rich (BB code):
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
 
Üst