Yalnız Mesajı Göster
Eski 10-11-2017, 15:19  
Ömer
Moderatör
 
Ömer kullanıcısının avatarı
 
Giriş: 18/08/2007
Şehir: Kuşadası
Mesaj: 19,009
Excel Vers. ve Dili:
Excel 2010 Türkçe
Varsayılan

Merhaba,

Sayfanın kod bölümüne kopyalayıp yapıştırın.

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Private Sub Worksheet_Change(ByVal Target As Range)

    If Intersect(Target, [H5:H150]) Is Nothing Then Exit Sub
    
    If Target.Count > 1 Then Exit Sub
    With Cells(Target.Row, "A").Resize(1, 27).Interior
        .ColorIndex = xlNone
        If IsNumeric(Target) = True And Target <> "" Then
            .ThemeColor = xlThemeColorDark1
            .TintAndShade = -0.15
        End If
    End With
    
End Sub
.
__________________
.
Ömer Çevrimdışı   Alıntı Yaparak Cevapla