Çö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
askan

askan

Destek Ekibi
Kullanıcı Bilgileri
Katılım
7 Mar 2021
Mesajlar
1,768
Çözümler
411
Aldığı beğeni
2,134
Excel Versiyonu
Office 365 TR
Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
Modül kısmına yapıştırıp diğer sayfalarda da kullanırsınız.
 
Olumlu oy 0 Negatif oyla
askan

askan

Destek Ekibi
Kullanıcı Bilgileri
Katılım
7 Mar 2021
Mesajlar
1,768
Çözümler
411
Aldığı beğeni
2,134
Excel Versiyonu
Office 365 TR
Olumlu oy 0 Negatif oyla
askan

askan

Destek Ekibi
Kullanıcı Bilgileri
Katılım
7 Mar 2021
Mesajlar
1,768
Çözümler
411
Aldığı beğeni
2,134
Excel Versiyonu
Office 365 TR
Olumlu oy 0 Negatif oyla
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
askan' Alıntı:
hocam zz2 yi zz3 yapın. Yani SATIR en alta kini baz alsın eğerki 5-6. satırlardan itibaren başlarsa ona göre revize etmek gerek.
Genişletmek için tıkla...
hocam sadece bir sayfada sadece L sütununda ihtiyaç duyuyorum. diğer 5 tablo b3: u 450 b3: w450 ...
tamamı için gerekli
 
Olumlu oy 0 Negatif oyla
askan

askan

Destek Ekibi
Kullanıcı Bilgileri
Katılım
7 Mar 2021
Mesajlar
1,768
Çözümler
411
Aldığı beğeni
2,134
Excel Versiyonu
Office 365 TR
Olumlu oy 0 Negatif oyla
askan

askan

Destek Ekibi
Kullanıcı Bilgileri
Katılım
7 Mar 2021
Mesajlar
1,768
Çözümler
411
Aldığı beğeni
2,134
Excel Versiyonu
Office 365 TR
echyilmaz' Alıntı:
onun için dedim kodların amacını bilirsem sizi fazla yormam uyarlayabilirim -belki - :)
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 o kontrolü burda yapın kendinize göre Son satırı A sütunundan başlatıyoruz siz L sütunundan başlıyorsa "A" yı "L" yapın. Enson dolu sütunu bulmak için ben ZZ2 hücresini baz aldım yani zz nin 2. satırından itibaren 5. satırdan başlıyorsa veriler zz5 yapın uygulayın. Aynı şekilde sil makrosunuda o şekilde oynayabilirsiniz.
 
Olumlu oy 0 Negatif oyla
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
askan' Alıntı:
Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
Hocam o kontrolü burda yapın kendinize göre Son satırı A sütunundan başlatıyoruz siz L sütunundan başlıyorsa "A" yı "L" yapın. Enson dolu sütunu bulmak için ben ZZ2 hücresini baz aldım yani zz nin 2. satırından itibaren 5. satırdan başlıyorsa veriler zz5 yapın uygulayın. Aynı şekilde sil makrosunuda o şekilde oynayabilirsiniz.
Genişletmek için tıkla...
tşk ederim hocam deniyorum hemen, L sütunu için olan çalışmadı ona sadece "L sütunundaki >0 ları kırmızı yap diye bir kod lazım
 
Olumlu oy 0 Negatif oyla
askan

askan

Destek Ekibi
Kullanıcı Bilgileri
Katılım
7 Mar 2021
Mesajlar
1,768
Çözümler
411
Aldığı beğeni
2,134
Excel Versiyonu
Office 365 TR
Satson= Range("L" & Rows.Count).End(xlUp).Row
Yapıp deneyin bir
 
Olumlu oy 0 Negatif oyla
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
çalışmadı hocam. sadece ortalama sayfası L sütunu için bir kod yeterli silmeye gerek yok o renkleri sürekli kalabilir
 
Olumlu oy 0 Negatif oyla
askan

askan

Destek Ekibi
Kullanıcı Bilgileri
Katılım
7 Mar 2021
Mesajlar
1,768
Çözümler
411
Aldığı beğeni
2,134
Excel Versiyonu
Office 365 TR
Olumlu oy 0 Negatif oyla
askan

askan

Destek Ekibi
Kullanıcı Bilgileri
Katılım
7 Mar 2021
Mesajlar
1,768
Çözümler
411
Aldığı beğeni
2,134
Excel Versiyonu
Office 365 TR
sütson = Range("ZZ3").End(xlToLeft).Column
Yapın
 
Olumlu oy 0 Negatif oyla
askan

askan

Destek Ekibi
Kullanıcı Bilgileri
Katılım
7 Mar 2021
Mesajlar
1,768
Çözümler
411
Aldığı beğeni
2,134
Excel Versiyonu
Office 365 TR
Pc başında olmayınca boşa uğraştırdım sizi pc başına geçince size kod atayım
 
Olumlu oy 0 Negatif oyla
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
askan' Alıntı:
Pc başında olmayınca boşa uğraştırdım sizi pc başına geçince size kod atayım
Genişletmek için tıkla...
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
 
Olumlu oy 0 Negatif oyla
Durum
Konu Çözümlendiği İçin Kapatılmıştır.

Konuyu okuyanlar

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