Hücre Biçimlendirme

[sahin1]

A Sütunundaki veriler ile G sütunundaki veriler bir birine eşit ise
C ve E sütunundaki veriler 1 den büyük (veya rakam ise)
Bu değerlere karşıt gelen H ve K sütunundaki verilerin yazı fontunun mavi olmasını istiyorum.Yardımcı olan arkadaşlara şimdidenTeşekkür ederim.

 

[Ferhat Pazarçevirdi]

Ekteki dosyayı inceleyiniz. Koşullu Biçimlendirme kullanılmıştır.

 

[sahin1]

yanıt

Sayın fpc ilginize çok teşekkür ederim. Yanlız mümkün ise banim isteğim makrolu bir çözüm Saygılar.

 

[Skorpiyon]

Sayın şahin1,

Ekteki dosyayı inceleyiniz.

Saygılarımla...

 

[Ferhat Pazarçevirdi]

Aşağıdaki kodu bir modul sayfasına kopyalayarak çalıştırınız.

Sub mavilendir()
dim i%,son%
son = Cells(65536, 1).End(xlUp).Row
For i = 1 To son
    If Cells(i, 1) = Cells(i, 7) Then
       If IsNumeric(Cells(i, 3)) Then
          If Cells(i, 3) > 1 Then
             If IsNumeric(Cells(i, 5)) Then
                If Cells(i, 5) > 1 Then
                   Cells(i, 8).Font.ColorIndex = 5
                   Cells(i, 11).Font.ColorIndex = 5: GoTo f1
                End If
             End If
          End If
       End If
    End If
    Cells(i, 8).Font.ColorIndex = 1
    Cells(i, 11).Font.ColorIndex = 1
f1:
Next i
End Sub

 

[sahin1]

yanıt

Sayın Sertkaya ilginize teşekkürler kodlama biraz eksik olmuş dosyada izah etmeye çalıştım.Bir bakarsanız memnun olurum.

 

[Skorpiyon]

Sayın sahin1,

Koddaki And yazan yeri Or olarak düzeltin. Aşağıdaki kırmızı yazı gibi,

Sub Düğme2_Tıklat()
Dim a
For a = 1 To 65536
If Cells(a, 1).Value = Cells(a, 7).Value _
And IsNumeric(Cells(a, 3)) Or IsNumeric(Cells(a, 5)) Then
Cells(a, 8).Font.ColorIndex = 5
Cells(a, 11).Font.ColorIndex = 5
End If
If Cells(a, 1).Value = "" Then
GoTo 10
End If
Next a
10
End Sub

Saygılarımla...

 

[sahin1]

Lütfen son eklediğim dosyaya bakarmısınız. 37d bir hücrede rakamın yanında harf var ise onuda rakam olarak kabul etmeli.ve mavi fonta çevirmeli

 

[Skorpiyon]

Sayın şahin1,

yukarıdaki kodda bir hata verdi galiba.

Aşağıdaki şekilde düzeltirseniz, problem kalmayacaktır.

Saygılarımla...

Sub Düğme2_Tıklat()
Dim a
For a = 1 To 65536
If Cells(a, 1).Value = Cells(a, 7).Value Then
If IsNumeric(Cells(a, 3)) Or IsNumeric(Cells(a, 5)) Then
Cells(a, 8).Font.ColorIndex = 5
Cells(a, 11).Font.ColorIndex = 5
End If
End If
If Cells(a, 1).Value = "" Then
GoTo 10
End If
Next a
10
End Sub

 

[yasirozen94]

güzelmiş ama biraz zor mantık kuruluyor

 

[sahin1]

Sayın Sertkaya Val olarak değiştirince çözüme ulaştım Teşekkürler.İlginizden ötürü Sayın fpc sizede ayrıca teşekkür ederim.

 

[Skorpiyon]

Sayın şahin1,

Kusura bakmayın, bu saatlerde insan biraz dalgın olabiliyor. Yardımcı olabildiysek ne mutlu...

Saygılarımla...