Aktİf HÜcreye Bagli Renk DeĞİŞİmİ

[cenkatli]

Arkadaslar Herkese İyİ Sabahlar, Aydinlik GÜnler

Sorum Şu
Fatura Onayi Bekleyenler Kitabinda Onayi GelmİŞ Faturanin Ilgili Sutununa "yes" Yazdigimda O Satirin Renk Degistirip Oyle Kalmasini, Ve "yes" Yazildiginda Teyİt Tarİhİ SÜtunundakİ İlgİlİ HÜcreye BugÜnÜn Tarİhİnİ Yazmasi İstİyorum. Ayrica Hangİ Hucre Aktİf Olursa Olsun O HÜcreye Aİt Satİrin Baska Bİr Renk İle BelİrgİnleŞmesİnİ İstİyorum. MÜmkÜnmÜdÜr ? Bİlgİlerİnİze Siginiyorum

Saygilar

İyİ Çalismalar

 

[Necdet]

Bulunulan satırın renkli gösterimi için aşağıdaki linki inceleyiniz

Aktif Hücre-Satır-Sütun Renklendirme

Koşullu Biçimlendirme ile

KOŞULLU BİÇİMLENDİRME (CONDITIONAL FORMATTING)

linkini inceleyebilirsiniz

 

[cenkatli]

Tessekkur Edrim Ilginize Ama Vermis Oldugunuz Ilk Lİnk Tekİ Ek Dosya Calismadigi Icin Faydalanamadim.

Saygilar

 

[Necdet]

Sayın ripek'in dosyası eklenti dosyasıdır. Dolayısıyla bunu eklentiler bölümüne kopyalamanız gerekir.

Gereksiz bir xl dosyasını eklenti olarak kaydetmeye çalışın ve bu arada eklentilerin hangi dizine eklendiğine dikkat edin. İşte o bölüme Sayın ripek'in dosyasını koplayacaksınız.

 

[cenkatli]

anlasıldı tessekkur ederım

 

[N.Ziya Hiçdurmaz]

yanıt

Private Sub Worksheet_Change(ByVal Target As Range)
For i = 4 To [g65536].End(3).Row
If Range("g" & i) = "Yes" Then
Range("g" & i).Interior.ColorIndex = 24
Else
Range("g" & i).Interior.ColorIndex = 0
End If
Next
If Target.Column = 7 Then
If Range("g" & Target.Row) = "Yes" Then
Range("g" & Target.Row).Offset(0, 1) = Date
End If
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
[a4:f100].Interior.ColorIndex = 0
If Target.Column < 7 Then
Target.Rows.Interior.ColorIndex = 6
End If
End Sub

 

[cenkatli]

Sayın V. Basic for app. ilginiz için tesekur ederim ancak istedigim sey tam olarak bu degildi. Anlatmaya calısayım. sizin yapmıs oldugunuz calısmada sadece aktıf hucre sarı renge gecıyor. oysa ben aktif hucrenın oldugu butun satırın renklenmesını istiyorum. A stünundan H sütununa kadar olan tim satırın. yani mesela ben G13 hucresını sectigimde A13 den H13 e kadar olan butun hucrelerın renklenmesini istiyorum. Ve YES komutu ile de sadece yes yazılan hucrenın degıl o satırın kalıcı renge donusmesını istiyorum. Tekrardan tesekkurler

 

[tahsinanarat]

Birinci aşama çalışması

YES ile ilgili çalışma devam edecek, Birinci aşamanın cevabı için ekli dosyanızı inceleyiniz

 

[cenkatli]

Sn. Tahsinanarat İlginiz için tesekkurler. ellerinize saglık. Ogrenmeme de cok buyuk katkı sagladınız. Yes ile ilgili calısmayıda beklıyorum.

Saygılar

 

[N.Ziya Hiçdurmaz]

yanıt

Bu şekil deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
For i = 4 To [g65536].End(3).Row
If Range("g" & i) = "Yes" Then
Range("g" & i & ":I" & i).Interior.ColorIndex = 24
Else
Range("g" & i & ":I" & i).Interior.ColorIndex = 0
End If
Next
If Target.Column = 7 Then
If Range("g" & Target.Row) = "Yes" Then
Range("g" & Target.Row).Offset(0, 1) = Date
End If
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
[a4:f100].Interior.ColorIndex = 0
Range("A" & Target.Row & ":F" & Target.Row).Interior.ColorIndex = 6
End Sub

 

[cenkatli]

Sn. V. Basic for App. cok tessekkur ederım. Bu calısmada gayet isime yaracaktır ama sanırım benım istedigim yanı YES komutauna baglı olarak o satırın renk degıstırıp sabıt kalması pek mumkun almayacak gibi. ama kodlarınız inanın ogrenmeme cok yardımcı oluyor. eksik olmayın ve bilginize bereket.

 

[N.Ziya Hiçdurmaz]

yanıt

Tabiki mümkün fakat A Dan F sütununa kadar olan bölümde saçili satır renkli olması gerektiğinde bu şekil kodladım.

Sn. V. Basic for App. cok tessekkur ederım. Bu calısmada gayet isime yaracaktır ama sanırım benım istedigim yanı YES komutauna baglı olarak o satırın renk degıstırıp sabıt kalması pek mumkun almayacak gibi. ama kodlarınız inanın ogrenmeme cok yardımcı oluyor. eksik olmayın ve bilginize bereket.

 

[Necdet]

1. A4:I47 arasını seçiniz
2. Format (Biçim)--Conditional Format (Koşullu Biçimlendirme)
3. Formul Olarak : =$G4="YES" girip biçimlendirmenizi yapınız

 

[tahsinanarat]

yes ile ilgili

Sanırım istediğiniz oldu, incelermisiniz

 

[cenkatli]

tessekur ederım Sn. Tahsin Bey. Guzel bir calısma ve yeni bir buton eklemişsiniz. Bana yeni fikirler verdi. Sagolun varolun.

 

[cenkatli]

Gunaydın
Arkadaslar ugrasıyorum ama beceremedım. bu yapmıs oldugunuz calısmaya bırde "IPTAL" yazdıgımda yıne son 3 sutunun baska bır renk almasını saglamaya calısıyoum ama yapamadım. ama bunu yaparken dıger makrolarında aynı sekılde calısıyor kalması gereklı. bana yardımcı olurmusunuz lutfen. ornek dosya olarak #10 mesajı deneyebiliriz. onu kullanıyorum.

 

[ariftezer]

bir başka yaklaşım ve örnek

arkadaşlar bu konu ile ilgili sitenizde hayli gezdim aradım, bir kaç örnek buldum ve işime yarayan en iyisini kullanıyorum fakat
kopyala-yapıştır yapamıyorum. yardımcı olabilirsenizz çalışma dosyam ektedir

 

[Korhan Ayhan]

Selamlar,

Bölümün başındaki Sn. Necdet beyin önerdiği linki inceleyiniz.

Dosyanızdaki kodu aşağıdaki şekilde değiştirip denermisiniz.

Option Explicit
'/////////////////////////////////////////////////////
'// Amended 14th Feb 2003 - suggestion by Juan Pablo G.
'// International versons may NOT recognise TRUE
'// Suggestion use =1 which evaluates to TRUE,
'// in fact any number that <> 0
'////////////////////////////////////////////////////

Const iInternational As Integer = Not (0)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim iColor As Integer
[COLOR=RED]Dim &#304;&#350;LEM[/COLOR]
'// Amended routine found on this Web site
'// Note: Don't use IF you have Conditional
'// formating that you want to keep!

'// On error resume in case
'// user selects a range of cells
On Error Resume Next
[COLOR=RED]&#304;&#350;LEM = Application.CutCopyMode[/COLOR]
[COLOR=RED]If &#304;&#350;LEM = xlCopy Or &#304;&#350;LEM = xlCut Then Exit Sub[/COLOR]
iColor = Target.Interior.ColorIndex
'// Leave On Error ON for Row offset errors

If iColor < 0 Then
    iColor = 36
Else
    iColor = iColor + 21
End If

'// Need this test incase Font color is the same
If iColor = Target.Font.ColorIndex Then iColor = iColor + 1

Cells.FormatConditions.Delete

'// Horizontal color banding
With Range("A" & Target.Row, Target.Address) 'Rows(Target.Row)
    .FormatConditions.Add Type:=2, Formula1:=iInternational 'Or just 1 '"TRUE"
    .FormatConditions(1).Interior.ColorIndex = iColor
End With

'// Vertical color banding
With Range(Target.Offset(1 - Target.Row, 0).Address & ":" & Target.Offset(-1, 0).Address)
    .FormatConditions.Add Type:=2, Formula1:=iInternational 'Or just 1 '"TRUE"
    .FormatConditions(1).Interior.ColorIndex = iColor
End With

End Sub

 

[ariftezer]

sağ olun çok teşekkürler

 

[tahsinanarat]

Sn. Cenkatli

iptal yazdığımda son üç sutun renklensin demişsin, ama bu durumda bir anlam teşkil edermi, satırın birinde İPTAL yazdı diye son üç sutunun renkli olmasının ne işe yarayacağını anlayamadım, acep bulunduğun hücre ile birlikte sağa doğru toplam üç hücre renklensin mi istediniz