koşullu biçimlendirmeli yanıpsönen hücre

[dede5]

Forumda aradım ama benim istediğim örneği bulamadım.Birbirine bağlantılı sayfalar arasında yanıp sönen hücre yada yanıp sönen yazıyı nasıl yaparım ?

 

[usubaykan]

Forumda aradım ama benim istediğim örneği bulamadım.Birbirine bağlantılı sayfalar arasında yanıp sönen hücre yada yanıp sönen yazıyı nasıl yaparım ?

Merhaba;
Dosyanızın thisworkbook kısmınına kodu yazın.

Option Explicit
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim Bul As Range, S1 As Worksheet
Set S1 = Sheets("ana sayfa")
If ActiveSheet.Name <> S1.Name Then
    If Cells(Target.Row, "F") = "dikkat" Then
    Set Bul = S1.Range("A:C").Find(What:=Cells(Target.Row, "A"), LookAt:=xlWhole, LookIn:=xlValues)
    If Not Bul Is Nothing Then
    S1.Cells(Bul.Row, "F") = Cells(Target.Row, "F")
End If
End If
End If
End Sub

yanıp sönen hücre yerine koşullu biçimlendirme öneririm. İlerleyen zamanlarda yanıp sönen hücre makrosu sürekli çalışacağı için sıkıntı yapabilir.

 

[dede5]

Sayın usubaykan denedim ama olmadı.Örnek dosyaya ekleyip gönderebilirmisiniz.