hücre değiştiğinde renk otamatik değişmesi

[jonpromiyee]

arkadaşlar geniş bir çalışma kitabım var ve sık sık veri girmek zorundayım. fakat veriyi girdimmi girmedimmi die şüpheye kapılmamak için değiştirdiğim her hücrenin renginin değişmesini istiyorum.

örneğin A1 hücresin 1.500 yazıyor olsun. ben hücre değerini farklı bir rakam yaprığımda hücrenin rengi otomatik değişsin istiyorum. acaba bu mümkün müdür? baya uğraştım ama bişi bulamadım...

(not: yukarıdaki 1.500 sabit değildir. farklı rakamlar olabilir.)

 

[dEdE]

Merhaba,
Böyle bir şeymi?

Dosya açılışında renklendirilmiş alanlardaki renkleri kaldırıyor.

 

[jonpromiyee]

üstad çok teşekkür ederim. tam olarak istediğim buydu. ellerine sağlık )

 

[dEdE]

Rica ederim.
Güle güle kullanın.

 

[omerceri]

Sizin sorunuz hakkında daha değişik bir şey yapılbilir mi diye uğraştım.
Aşağıdaki kodları istediğiniz bir sayfanın kod sayfasına yapıştırın.
Kodlar "A" sütunundaki hücrelerde yaptığınız bütün değişiklerin kayıtlarını açıklama kutusunda tutuyor.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
say = ActiveSheet.Comments.Count
For i = 1 To say
ad = Split(Comments(i).Text, Chr(10))
If ad(0) = Target.Address Then
If Target.Value = "" Then
yazı = "Silindi"
Else
yazı = Target
End If
Comments(i).Visible = False
Comments(i).Text Text:=Target.Comment.Text & Chr(10) & Now & " " & "'" & yazı & "'"
a = True
Exit For
End If
Next
If a <> True Then
Target.AddComment
Target.Comment.Visible = True
Target.Comment.Text Text:=Target.Address & Chr(10) & Now & " " & "'" & Target & "'"
Target.Comment.Shape.Select
Selection.ShapeRange.ScaleHeight 1.5, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleWidth 1.8, msoFalse, msoScaleFromTopLeft
Target.Comment.Visible = False
End If
End If
End Sub

 

[parametre]

Sizin sorunuz hakkında daha değişik bir şey yapılbilir mi diye uğraştım.
Aşağıdaki kodları istediğiniz bir sayfanın kod sayfasına yapıştırın.
Kodlar "A" sütunundaki hücrelerde yaptığınız bütün değişiklerin kayıtlarını açıklama kutusunda tutuyor.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
say = ActiveSheet.Comments.Count
For i = 1 To say
ad = Split(Comments(i).Text, Chr(10))
If ad(0) = Target.Address Then
If Target.Value = "" Then
yazı = "Silindi"
Else
yazı = Target
End If
Comments(i).Visible = False
Comments(i).Text Text:=Target.Comment.Text & Chr(10) & Now & " " & "'" & yazı & "'"
a = True
Exit For
End If
Next
If a <> True Then
Target.AddComment
Target.Comment.Visible = True
Target.Comment.Text Text:=Target.Address & Chr(10) & Now & " " & "'" & Target & "'"
Target.Comment.Shape.Select
Selection.ShapeRange.ScaleHeight 1.5, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleWidth 1.8, msoFalse, msoScaleFromTopLeft
Target.Comment.Visible = False
End If
End If
End Sub

bu ornek daha zarif olmus sagolun

 

[seyfi38]

Merhaba,
Böyle bir şeymi?

Dosya açılışında renklendirilmiş alanlardaki renkleri kaldırıyor.

sayın dEdE çok teşekkürler

 

[jonpromiyee]

Sizin sorunuz hakkında daha değişik bir şey yapılbilir mi diye uğraştım.
Aşağıdaki kodları istediğiniz bir sayfanın kod sayfasına yapıştırın.
Kodlar "A" sütunundaki hücrelerde yaptığınız bütün değişiklerin kayıtlarını açıklama kutusunda tutuyor.

teşekkürler. gerçekten çok iyi düşünülmüş bir çalışma..

 

[ozdemirtamer]

dosyayı açtım gayet güzel olmuş, lakin nasıl yapıldığını anlayamadım. kısa bir yolu varmıdır.