_Cheff_06_
Son Etkinlik:
25 Ekim 2017
Katılım:
23 Eylül 2017
Mesajlar:
8
Beğenileri:
0
Ödül Puanları:
1
Cinsiyet:
Erkek
Doğum Günü:
20 Temmuz 1969 (Yaş: 48)
Yer:
Ankara
Meslek:
Özel Güvenlikçi

Sayfayı Paylaş

_Cheff_06_

Üyecik, Erkek, 48, Ankara

çözüm arıyor 27 Eylül 2017

_Cheff_06_ üyesinin en son etkinliği:
25 Ekim 2017
    1. _Cheff_06_
      _Cheff_06_
      çözüm arıyor
  • Yüklüyor...
  • Yüklüyor...
  • Hakkında

    Cinsiyet:
    Erkek
    Doğum Günü:
    20 Temmuz 1969 (Yaş: 48)
    Yer:
    Ankara
    Meslek:
    Özel Güvenlikçi
    Rica etsem aynı işlemi diğer hücrelere nasıl uygulayabilirim örnek B33 hücresinin değerine göre c sütunun rengi değişsin bunları aynı kod sayfasında(A33 hücresinin değerine göre b sütunu rengi değiştiği)yazabilirmiyiz aşağıdaki gibi;

    Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [B33]) Is Nothing Then
    Exit Sub
    End If
    If Target <> "" Then
    If Target > 750 Then
    [C3:C26,C28:C33].Interior.Color = 12611584
    ElseIf Target > 500 Then
    [C3:C26,C28:C33].Interior.Color = vbBlue
    ElseIf Target > 250 Then
    [C3:C26,C28:C33].Interior.Color = vbGreen
    ElseIf Target > -250 Then
    [C3:C26,C28:C33].Interior.Color = vbYellow
    ElseIf Target > -500 Then
    [C3:C26,C28:C33].Interior.Color = 13382655
    ElseIf Target > -750 Then
    [C3:C26,C28:C33].Interior.Color = vbRed
    End If
    End If
    End Sub
    While[
    Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [C33]) Is Nothing Then
    Exit Sub
    End If
    If Target <> "" Then
    If Target > 750 Then
    [D3:D26,D28:D33].Interior.Color = 12611584
    ElseIf Target > 500 Then
    [D3:D26,D28:D33].Interior.Color = vbBlue
    ElseIf Target > 250 Then
    [D3:D26,D28:D33].Interior.Color = vbGreen
    ElseIf Target > -250 Then
    [D3:D26,D28:D33].Interior.Color = vbYellow
    ElseIf Target > -500 Then
    [D3:D26,D28:D33].Interior.Color = 13382655
    ElseIf Target > -750 Then
    [D3:D26,D28:D33].Interior.Color = vbRed
    End If
    End If
    End Sub