• DİKKAT !

    Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak Dosya Yükleme tamamen ücretsizdir.

    Giriş yap veya Şimdi kayıt ol

Çözüldü dosyada yer alan sayfalardaki "-" leri kırmızıya çevirme makrosu

Bu konu çözüldü olarak işaretlenmiştir. Çözülmediğini düşünüyorsanız konuyu rapor edebilirsiniz.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
echyilmaz

echyilmaz

Yeni Üye
Katılım
17 Haz 2021
Mesajlar
130
Çözümler
1
Aldığı beğeni
22
Excel V
Office 2019 TR
Konu Sahibi
merhaba arkadaşlar,
bazı sayfalardaki verileri internetten alıyorum. bu sayfalarda gelen bilgileri (hücre biçimlendirden) sayıya çevirsem de sayı koşulu çalışmıyor. koşullu biçimlendirmede de rakam kırmızıya dönmüyor. Bu durumu macro ile çözebilir miyiz. dosyada yer alan sayfalardaki önünde "-" olan her hücreyi kırmızıya çevirme makrosu olabilir mi :)
 
Tarihe göre sırala Oylara göre sırala
echyilmaz' Alıntı:
tmm hocam

Sub fontrenk()
Dim Cel1 As Range
Set Cel1 = Range("L1:L450")
With Cel1.Font
.Bold = True
.Size = 10
.Color = RGB(255, 0, 0)
End With
End Sub
böyle bir kod buldum ama buna koşul tanımlayamadım :) yani "bölgedeki hücre değeri sıfırdan küçükse " ekleyemedim
Genişletmek için tıkla...
Bu kod toplu halde yapar hücreleri tek tek kontrol edip öyle belirlemek lazım
 
Olumlu oy 0 Negatif oyla
HTML:
C++:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
Olumlu oy 0 Negatif oyla
Olumlu oy 0 Negatif oyla
Konu Sahibi
örnek dosya ekte hocam. (oradaki değerler hücre biçimlendirden renk alıyor. esas dosyada makrodan dolayı koşullu biçimlendirme çalışmıyor. sorun oradan kaynaklanıyor)
Sub renklendir()
satson = Range("L" & Rows.Count).End(xlUp).Row
For i = 1 To satson

x = Range("L" & i) .Value
If x < 0 Then
Range("L" & i). Font.Color = -16776961


End If

Next i
End Sub
bu kodda i tanımlanmasında mı sıkıntı var "x=range ..."de takılması bundan kaynaklı olabilir mi
 

Ekli dosyalar

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.
Olumlu oy 0 Negatif oyla
echyilmaz' Alıntı:
örnek dosya ekte hocam. (oradaki değerler hücre biçimlendirden renk alıyor. esas dosyada makrodan dolayı koşullu biçimlendirme çalışmıyor. sorun oradan kaynaklanıyor)
Sub renklendir()
satson = Range("L" & Rows.Count).End(xlUp).Row
For i = 1 To satson

x = Range("L" & i) .Value
If x < 0 Then
Range("L" & i). Font.Color = -16776961


End If

Next i
End Sub
bu kodda i tanımlanmasında mı sıkıntı var "x=range ..."de takılması bundan kaynaklı olabilir mi
Genişletmek için tıkla...
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
hocam şimdi deneyin elle yazdığım için yazım hatası olmuş
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
askan' Alıntı:
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
hocam şimdi deneyin elle yazdığım için yazım hatası olmuş
Genişletmek için tıkla...
tşk ederim hocam tamamdır. ellerinize sağlık. zahmetim için hakkınızı helal edin.
son soru ; bu kodların düğme ile değil de sayfa açılınca otomatik çalışması mümkün mü ?
 
Olumlu oy 0 Negatif oyla
Şunu bir deneyin
 

Ekli dosyalar

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.
Olumlu oy 0 Negatif oyla
hocam bunu kullanın
 

Ekli dosyalar

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.
Olumlu oy 1 Negatif oyla
Çözüm
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst