Excel Etkin Hücre Yardım

[JacCKaLL]

Arkadaşlar elimde müşterilerin iletişim bilgilerinin olduğu bir dosya var ctrl+f yapıp bir müşteriyi aradığım zaman bulduğum müşterinin hücresi farklı renkle etkin olsun istiyorum ve listeye yeni kişi eklediğim zaman sıralama otomatik olarak atsın istiyorum..Saygılarımla..

 

[Korhan Ayhan]

Selamlar,

Dosyanızda bazı düzenlemeler yaptım.

Sıra numarası formülle oluşturuldu.
Kenarlık çizgileri için koşullu biçimlendirme uygulandı.

Alttaki kodu sayfanın kod bölümüne uygulayınız.

Sıralama işlemi B-C-D-E hücrelerinin tamamına veri girdiğinizde otomatik yapılacaktır.

Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo Son
    If Intersect(Target, [B3:E65536]) Is Nothing Then Exit Sub
    Application.EnableEvents = False
    Cells.Interior.ColorIndex = 0
    If Cells(Target.Row, "B") = "" Then
        Range("B" & Target.Row, "E" & Target.Row) = ""
        Range("B3:E65536").Sort Key1:=Range("B3")
    ElseIf WorksheetFunction.CountA(Range("B" & Target.Row, "E" & Target.Row)) = 4 Then
        Range("B3:E65536").Sort Key1:=Range("B3")
    End If
Son:
    Application.EnableEvents = True
End Sub
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    On Error GoTo Son
    Cells.Interior.ColorIndex = 0
    If Target.Row > 2 Then
        If Cells(Target.Row, "B") <> "" Then
            Range("A" & Target.Row, "E" & Target.Row).Interior.ColorIndex = 6
        End If
    End If
Son:
End Sub

 

[JacCKaLL]

çok teşekkür ederim ilginize fakat arama yaptığım zaman bulunan hücre de bir değişiklik yok sıralama konusu olmuş ama etkin hücre daha belirgin olsun istiyorum

 

[Korhan Ayhan]

Selamlar,

CTRL+F ile arama yaptığınızda bulunan hücreye ait satırda "A-E" aralığı sarı renk oluyor. İstediğiniz bu değil miydi?

 

[JacCKaLL]

evet iki dosya açık olduğu için sarı renk gözükmüyordu şimdi diğerini kapadım orjinal dosyaya kodu yapıştırdım etkin hücre etkin oluyor fakat araya boş satır ekleyemiyorum satır ekle dediğim zaman sadece A sütunundaki rakam bi satır aşağı kayıyor B C D E satırındaki bilgiler aynı kalıyor yani

 

[JacCKaLL]

ayrıca kaydedip kapatıyorum tekrar açtığımda hata veriyor etkin satır sarı şekilde kalmış ve formül bozulmuş şekilde oluyor

 

[Korhan Ayhan]

Selamlar,

Satır ekleme işlemini aşağıdaki şekilde yaparsanız problem yaşamazsınız.

İlgili satır seçin CTRL+C tuşları ile kopyalayın.
Daha sonra KOPYALANAN HÜCRELERİ EKLE ile yada CTRL+ tuşları ile işlemi tamamlayın.

Bu şekilde formülde eklenen yeni satıra kopyalandığı için sorun yaşamayacaksınız.