#7
teşekkürler önceden olmuyordu, ama ikinci açtığımda metin kutusuna da yazdı sağolun elinize sağlık
koşullu biçimlendirme
#7
#8
iyi akşamlar arkadaşlar, accesstr.net den öğrendiğim kadarı ile örneğim üzerinde çalışma yaptım, ancak sayı değerini girdğinde yüzdelik alan hesaplanmıyor, aç kapa yapınca hesaplanıyor birde şekillerirn rengi değişmiyor, nerde hata yaptım örneğimi bir incelermisiniz
#9
Merhaba;
Sizin işinizi kolaylaştırması için sistematik bir yapı oluşturdum. A sutuna bölge isimlerini istedeğiniz kadar yazabilirsiniz.
C sutunda değerler yer almalı aynen devam ediyor.
D Sutununda ise bölgenin çizimi var ise aktif etmelisiniz yok ise pasif kalmalıdır.
Tek fark güncelle butonuna basmalısınız.
Kolay gelsin.
Sizin işinizi kolaylaştırması için sistematik bir yapı oluşturdum. A sutuna bölge isimlerini istedeğiniz kadar yazabilirsiniz.
C sutunda değerler yer almalı aynen devam ediyor.
D Sutununda ise bölgenin çizimi var ise aktif etmelisiniz yok ise pasif kalmalıdır.
Tek fark güncelle butonuna basmalısınız.
Kolay gelsin.
Kod:
Private Sub CommandButton1_Click()
Call Guncelle
End Sub
Sub Guncelle()
satirsayisi = WorksheetFunction.CountA(Sheets("Sayfa1").Columns("A"))
satirsayisi = satirsayisi - 1
For i = 2 To satirsayisi
Adi = Sheets("Sayfa1").Range("A" & i)
Renk = Sheets("Sayfa1").Range("B" & i)
Durum = Sheets("Sayfa1").Range("D" & i)
Sayi = Renk
If (Durum = "Aktif") Then
If (Sayi >= 1 And Sayi <= 5) Then
ActiveSheet.Shapes(Adi).Fill.ForeColor.SchemeColor = 5
ElseIf (Sayi >= 11 And Sayi <= 15) Then
ActiveSheet.Shapes(Adi).Fill.ForeColor.SchemeColor = 51
ElseIf (Sayi >= 16 And Sayi <= 20) Then
ActiveSheet.Shapes(Adi).Fill.ForeColor.SchemeColor = 4
Else
ActiveSheet.Shapes(Adi).Fill.ForeColor.SchemeColor = 17
End If
Else
If (CheckBox1.Value = True) Then
MsgBox (Adi & " Pasif Durumdadır.")
Else
End If
End If
Next
End Sub
#10
hocam tek kelime ile şahane olmuş süper demek bile zayıf kalır elinize sağlık harika olmuş gerçekten
#11
hocam koşullu biçimlendirmede son bir isteğim daha olacak,
kod da mesela >=1 and <=5 yazımız var ve bu sınırlı kalıyor
ben aa=g2
bb=h3
şeklinde tanımlama yaptım ve >=1 and <=5 yerine aa>= and <=bb
yazdım ve diğerlerini bu şekilde tanımladım ancak renkler değişmedi,
birde güncelle butonuna basınca yüzde güncellenmiyor hocam
kod da mesela >=1 and <=5 yazımız var ve bu sınırlı kalıyor
ben aa=g2
bb=h3
şeklinde tanımlama yaptım ve >=1 and <=5 yerine aa>= and <=bb
yazdım ve diğerlerini bu şekilde tanımladım ancak renkler değişmedi,
birde güncelle butonuna basınca yüzde güncellenmiyor hocam
#12
Merhaba;
Hatalı kod yazmışsınız excel'de formul çubuğuna yazılır gibi kod yazılmaz. vb koduna uyarlamalısınız hangi hücre ile ilişkilendirmek istiyor iseniz Sheets("Sayfa1").Range("G2") diye yazmalısınız.
vb kurallarına uygun kod yazmaz iseniz kodlar çalışmaz.
Bu arada konu çözülmüş sorular arasında konu kapatılmıştır yeni konu açmalısınız.
Kolay gelsin.
Hatalı kod yazmışsınız excel'de formul çubuğuna yazılır gibi kod yazılmaz. vb koduna uyarlamalısınız hangi hücre ile ilişkilendirmek istiyor iseniz Sheets("Sayfa1").Range("G2") diye yazmalısınız.
vb kurallarına uygun kod yazmaz iseniz kodlar çalışmaz.
Bu arada konu çözülmüş sorular arasında konu kapatılmıştır yeni konu açmalısınız.
Kolay gelsin.
Konuyu Okuyanlar: 1 Ziyaretçi
