• Foruma hoş geldin 👋 Ziyaretçi

    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 tamamen ücretsizdir.

    Giriş yap veya Şimdi kayıt ol

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

Bu sorun verilen destek sayesinde çözüme ulaştırılmıştır.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
echyilmaz

echyilmaz

Yeni Üye
Kullanıcı Bilgileri
Katılım
17 Haz 2021
Mesajlar
130
Aldığı beğeni
21
Excel Versiyonu
Office 2019 TR
Konuyu Başlatan
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
Olumlu oy 0 Negatif oyla
Olumlu oy 0 Negatif oyla
ö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

  • dnme.xlsx
    10.7 KB · Gösterim: 2
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...
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ş
 
Olumlu oy 0 Negatif oyla
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ş
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

  • Kitap1(1)_excelçözüm (1) (version 2).xlsm
    20.8 KB · Gösterim: 2
Olumlu oy 0 Negatif oyla
Olumlu oy 0 Negatif oyla
hocam bunu kullanın
 

Ekli dosyalar

  • Echyılmaz_excelçözüm (1) (version 2).xlsm
    21.2 KB · Gösterim: 4
Olumlu oy 1 Negatif oyla
Çözüm
Durum
Konu Çözümlendiği İçin Kapatılmıştır.

Konuyu okuyanlar

Toplam: 2 (Kullanıcı: 0, Ziyaretçi: 2)
Geri
Üst