Sorgu için arama sonuçları: DisplayFormat

...ActiveSheet.Unprotect "61" On Error Resume Next ActiveSheet.ShowAllData On Error GoTo 0 For Each Veri In Range("I6:AM130") If Veri.DisplayFormat.Interior.ColorIndex = 36 Then If Cells(Veri.row, "E") <> "" Then Veri.Value = "B" End If Next On Error Resume Next ActiveSheet.ShowAllData On Error...

Hocam bu kısmı bütün excel kitabın sayfalarına nasıl uygulaya biliriz? Yanı bütün sayfalarda aynı anda çalışsın. https://dosya.co/ymut7x04skix/Screenshot_2021-02-26_153539.jpg.html

Cevabınız için teşekkür ederim, çok işime yaradı.

...Kontrol = False For Each Sayfa In ThisWorkbook.Worksheets For Each Veri In Sayfa.Range("E1:E1000") If Veri.DisplayFormat.Interior.ColorIndex = 3 Then MsgBox "Fiyat yanlış, bu nedenle kaydetmek mümkün değil!", vbCritical Cancel =...

Çok teşekkürler korhan bey, şimdi oldu gayet güzel çalışıyor, ellerinize ve aklınıza sağlık..

...Integer Sutun = 3 For X = 0 To 4 For Each Veri In Range("C4:F42").Offset(, X * 4) Select Case Veri.DisplayFormat.Interior.ColorIndex Case 3: Kirmizi_Say = Kirmizi_Say + 1 Case 6: Sari_Say = Sari_Say + 1 Case...

...Range("O25:R42").ClearContents For X = 25 To 41 Step 2 For Y = 3 To 11 Step 4 If Cells(X, Y).DisplayFormat.Interior.ColorIndex = 38 Then Kontrol = True If Metin = "" Then Metin = Cells(23, Y) Else...

Çok teşekkür ederim. Çalıştı ve acayip hızlı süper :) Formüller bir şekilde yapılıyor ama makroyu anlamak çok zor geliyor bana. Elinize kolunuza sağlık.

...1) For Each Hucre In S1.Range("S" & X + 1 & ":AB" & X + 1) If Not IsError(Hucre) Then If Hucre.DisplayFormat.Interior.ColorIndex <> -4142 Then Kontrol = True Exit For End If End If...

...çözüm olmaktadır. Excelin yeni sürümlerinde geçerli olan koşullu biçimlendirme sonucu renklenen hücrenin dolgu rengini tespit eden "DisplayFormat" özelliği gelmiştir. Bu özellikte makro kodu olarak kullanılmaktadır. Linkten açıklamalara erişebilirsiniz...

Deneyiniz. Sub test() For a = 2 To 3 j = 3 For i = 3 To 38 If Cells(i, a).DisplayFormat.Interior.Color = 65535 Then Cells(j, a + 8) = Cells(i, a) 'Cells(j, a + 8).Interior.Color = 65535 'j-k sütunundaki dolu hücreleri sarı renkli yapmak isterseniz bu...

A1 hücresinin dolgu rengini msgbox olarak gösterir. Sub DolguRengi() MsgBox Range("A1").DisplayFormat.Interior.Color End Sub

Deneyiniz. Sub test() j = 3 For i = 3 To 38 If Cells(i, 2).DisplayFormat.Interior.Color = 65535 Then Cells(j, 10) = Cells(i, 2) 'Cells(j, 10).Interior.Color = 65535 'j sütunundaki dolu hücreleri sarı renkli yapmak isterseniz bu satırın başındaki '...

Aşağıdaki komut 2007 ve öncesi versiyonlarda çalışmaz. DisplayFormat

Aşağıdaki komut 2007 ve öncesi versiyonlarda çalışmaz. DisplayFormat

Merhabalar, Hücre renklendirme de DisplayFormat ifadesi olmamalı. Zaten hata komutu da bu özelliğin desteklenmediğini belirtiyor. Aşağıdaki şekilde deneyiniz. If Range("A" & i).Interior.ColorIndex = 3 Then Kolay gelsin.

...[A2:D1000]) Is Nothing Then Exit Sub Application.ScreenUpdating = False For i = 2 To Cells(65336, "A").End(3).Row If Range("A" & i).DisplayFormat.Interior.ColorIndex = 3 Then t1 = t1 + 1 End If Bu çözmede yardımcı olabilirseniz çok mutlu olurum. NOT: Çalışma sayfası ve ekran görüntülerinin...

Aynı satırdan başka da varmış. Tam konumu şu şekilde. If Intersect(Target, [A2:D1000]) Is Nothing Then Exit Sub Application.ScreenUpdating = False For i = 2 To Cells(65336, "A").End(3).Row If Range("A" & i).DisplayFormat.Interior.ColorIndex = 3 Then t1 = t1 + 1 End If

Kodların girildiği bölümde şu kısım sarı renkle işaret ediliyor. Hata burada bir şeyden kaynaklı sanırım. If Range("A" & i).DisplayFormat.Interior.ColorIndex = 3 Then

...Is Nothing Then Exit Sub Application.ScreenUpdating = False For i = 2 To Cells(65336, "A").End(3).Row If Range("A" & i).DisplayFormat.Interior.ColorIndex = 3 Then t1 = t1 + 1 End If If Range("A" & i).DisplayFormat.Interior.ColorIndex = 3 Then f1 = 0 End If...