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

echyilmaz · 31 Tem 2021

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

askan · 1 Ağu 2021

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

Bu kod toplu halde yapar hücreleri tek tek kontrol edip öyle belirlemek lazım

askan · 1 Ağu 2021

C++:

Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.

echyilmaz · 1 Ağu 2021

askan' Alıntı:
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

x=range... takıldı

askan · 1 Ağu 2021

echyilmaz' Alıntı:
x=range... takıldı

Hocam hücrede sıkıntı olabilir dosyayı görmeden birşey diyemeyeceğim

echyilmaz · 1 Ağu 2021

ö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

askan · 1 Ağu 2021

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

Kod:

Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.

hocam şimdi deneyin elle yazdığım için yazım hatası olmuş

echyilmaz · 1 Ağu 2021

askan' Alıntı:
Kod:

Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.

hocam şimdi deneyin elle yazdığım için yazım hatası olmuş

tşk ederim hocam tamamdır. ellerinize sağlık. zahmetim için hakkınızı helal edin.

echyilmaz · 1 Ağu 2021

askan' Alıntı:
Kod:

Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.

hocam şimdi deneyin elle yazdığım için yazım hatası olmuş

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ü ?

askan · 1 Ağu 2021

Şunu bir deneyin

echyilmaz · 1 Ağu 2021

askan' Alıntı:
Kod:

Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.

hocam şimdi deneyin elle yazdığım için yazım hatası olmuş

askan' Alıntı:
Şunu bir deneyin

sonsuz teşekkürler hocam

echyilmaz · 1 Ağu 2021

echyilmaz' Alıntı:
sonsuz teşekkürler hocam

L sütunu olan sayfa hariç diğerleri sayfa açılınca otomatik çalıştı

echyilmaz · 1 Ağu 2021

askan' Alıntı:
Şunu bir deneyin

bu sayfada yer alan tablodaki Sadece L sütunundaki verileri kırmızı yapacak

askan · 1 Ağu 2021

hocam bunu kullanın

echyilmaz · 1 Ağu 2021

askan' Alıntı:
hocam bunu kullanın

hocam harikasınız çözüm tamam. hakkınızı helal edin. ankaradaysanız size kahve ısmarlayım

Foruma hoş geldin 👋 Ziyaretçi

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

echyilmaz

askan

askan

askan

echyilmaz

askan

echyilmaz

Ekli dosyalar

askan

echyilmaz

echyilmaz

askan

Ekli dosyalar

echyilmaz

echyilmaz

echyilmaz

askan

Ekli dosyalar

echyilmaz

Konuyu okuyanlar