Makro ile koşullu biçimlendirme sorunu

[bybaron]

koşullu biçimlendirme için aşağıdaki makroyu oluşturdum ama koşullu biçimlendirme yaparken referans olarak hep ilk satırı yani 103 alıyor ben istiyorumki hangi satırda makroyu çalıştırdıysam o satırı alsın aşağıda makro örneği var bu konuda bana yardımcı olacak arkadaş için şimdiden ALLAH ondan razı olsun...

makro örneği...


ActiveCell.Range("A1:E1").Select
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=$F$103"
Selection.FormatConditions(1).Interior.ColorIndex = 15
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=$F$103=""yanlışşş"""
Selection.FormatConditions(2).Interior.ColorIndex = 38
ActiveCell.Offset(1, 0).Range("A1:E1").Select

End Sub



şimdiden teşekkürler..

 

[ynmcan]

Syn. Bybron ;
Aşağıdaki kodu denermisini, istediğiniz bumu ?

ActiveCell.Range("A1:E1").Select
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=[COLOR="Red"]ActiveCell[/COLOR]"
Selection.FormatConditions(1).Interior.ColorIndex = 15
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=[COLOR="red"]ActiveCell[/COLOR]=""yanlışşş"""
Selection.FormatConditions(2).Interior.ColorIndex = 38
ActiveCell.Offset(1, 0).Range("A1:E1").Select

 

[bybaron]

Syn. Bybron ;
Aşağıdaki kodu denermisini, istediğiniz bumu ?

ActiveCell.Range("A1:E1").Select
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=[COLOR="Red"]ActiveCell[/COLOR]"
Selection.FormatConditions(1).Interior.ColorIndex = 15
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=[COLOR="red"]ActiveCell[/COLOR]=""yanlışşş"""
Selection.FormatConditions(2).Interior.ColorIndex = 38
ActiveCell.Offset(1, 0).Range("A1:E1").Select

verdiğiniz kodu denedim olmadı. Birtane dosya ekledim ona bakarsanız ne demek istediğimi daha kolay anlayacaksınız. İlginizden dolayı teşekkür ederim...

 

[ynmcan]

Syn. Bybaron;
F sütununda doğru yazıyorsa osatırın gri, yanlış yazıyorsa kırmızı olmasını istiyorsunuz. Diğer mavi, yeşil, sarı renkler hangi koşula göre reklenecek. Bunları detaylı şekilde açıklarsanız yardımcı olalım.

 

[bybaron]

Syn. Bybaron;
F sütununda doğru yazıyorsa osatırın gri, yanlış yazıyorsa kırmızı olmasını istiyorsunuz. Diğer mavi, yeşil, sarı renkler hangi koşula göre reklenecek. Bunları detaylı şekilde açıklarsanız yardımcı olalım.

ilginiz için teşekkür ederim ilk önce diğer renkler standart koşullu biçimlendirmeye bağlı değil.kullanıcı istediği rengi vere bilir...

Sadece sarı renk her 10 satırda bir kullanılıyor o kullanılmazsada problem değil...

Tekrardan sizden ALLAH razı olsun ....

 

[ynmcan]

Syn. Bybaron;
Tüm koşullu biçimlemeleri ve sayfadaki formülleri silip Makrou bir örnek hazırladım. Ekteki dosyayı inceleyin, istediğiniz bumu ?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For sat = 4 To Sheets("Sayfa1").Cells(65536, "B").End(xlUp).Row
For i = 1 To 6
If Sheets("Sayfa1").Cells(sat, 2) = 1 Then
Sheets("Sayfa1").Cells(sat, i).Interior.ColorIndex = 4
Else
If Sheets("Sayfa1").Cells(sat, 5) <> "" Then
If Sheets("Sayfa1").Cells(sat, 5) = Sheets("Sayfa1").Cells(sat, 4) _
Or Sheets("Sayfa1").Cells(sat, 5) = Sheets("Sayfa1").Cells(sat, 3) Then
Sheets("Sayfa1").Cells(sat, i).Interior.ColorIndex = 15
Sheets("Sayfa1").Cells(sat, 6) = "DOĞRU"
Else
Sheets("Sayfa1").Cells(sat, i).Interior.ColorIndex = 3
Sheets("Sayfa1").Cells(sat, 6) = "YANLIŞ"
End If
Else
Sheets("Sayfa1").Cells(sat, i).Interior.ColorIndex = xlNone
End If
End If
Next i
Next sat
End Sub

 

[bybaron]

Syn. Bybaron;
Tüm koşullu biçimlemeleri ve sayfadaki formülleri silip Makrou bir örnek hazırladım. Ekteki dosyayı inceleyin, istediğiniz bumu ?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For sat = 4 To Sheets("Sayfa1").Cells(65536, "B").End(xlUp).Row
For i = 1 To 6
If Sheets("Sayfa1").Cells(sat, 2) = 1 Then
Sheets("Sayfa1").Cells(sat, i).Interior.ColorIndex = 4
Else
If Sheets("Sayfa1").Cells(sat, 5) <> "" Then
If Sheets("Sayfa1").Cells(sat, 5) = Sheets("Sayfa1").Cells(sat, 4) _
Or Sheets("Sayfa1").Cells(sat, 5) = Sheets("Sayfa1").Cells(sat, 3) Then
Sheets("Sayfa1").Cells(sat, i).Interior.ColorIndex = 15
Sheets("Sayfa1").Cells(sat, 6) = "DOĞRU"
Else
Sheets("Sayfa1").Cells(sat, i).Interior.ColorIndex = 3
Sheets("Sayfa1").Cells(sat, 6) = "YANLIŞ"
End If
Else
Sheets("Sayfa1").Cells(sat, i).Interior.ColorIndex = xlNone
End If
End If
Next i
Next sat
End Sub

Çok teşşekür ederim istediğim tam olarak bu ama benim bilgisayarımda çok yavaş hareket ediyor sayfa yani işlem onaylamsı uzun sürüyor bu sistemdenmi kaynaklanıyor yoksa programdanmı kaynaklanıyor bu konda bana yardımcı olursanız çok sevinirim..

İlginiz için çook teşşekkür ederim ALLAH Sizden razı olsun...

 

[ynmcan]

Syn. Bybaron;
Ben şu anda denedim gayet hızlı çalışıyor, direk işlemi yapıyor. Büyük ihtimalle sizin bilgisayardan kaynakanıyordur.

 

[bybaron]

yarın başka bir bilgisayarda deneme yapayım sonuca göre size dönüş yaparım Herşey için çook teşşekkür ederim...

 

[bybaron]

Syn. Bybaron;
Ben şu anda denedim gayet hızlı çalışıyor, direk işlemi yapıyor. Büyük ihtimalle sizin bilgisayardan kaynakanıyordur.

Sizin zamanınızı çalmak istemiyorum ama ben şimdi şirket bilgisayarıma yükledim ve denedim formüller olmadan gayet hızlı ama formüller eklenince bilgisayar çok ama çok yavaşlıyor Formülsüz benim bir işime yaramıyor bunu formülleri kaldırmadan bir çözüm bulma ihtimalıimiz varmı.

Aklıma gelmişken ben bu formüllerde yani makroda kullanılan kodları nereden bulabilirim yada bulma ihtimalim varmı ?


ilginiz için teşekkür ederim Kolay gelsin...

 

[ynmcan]

Syn. Bybron ;
Formülleri silmeden dosyayı yeniden düzenledim.
Dosya ekte.
Makroları herhangi bir sayfa sekmesinin üzerine gelip, mausu sağ tıkayın, çıkan listede kod görüntüleyi seçin.

 

[baydeniro]

Paylaşım için teşekkürler.