[Yardım]  Hücre doluysa renklendir

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

Hücre doluysa renklendir

İleti#1)  Candan55 » 05 Kas 2022 22:57

D sütunu 0'den büyükse (veya doluysa da olabilir) aynı satrıda bulunan AA ve AC satır aralığı renkli olsun diye bir makro yapmaya çalıştım. Aşağıdaki kodlara baktığınızda anlayacağınız üzere olmadı.
Kod: Tümünü seç
Dim son As Long
son = Sheets("Sayfa1").Cells(Rows.Count, "D").End(3).Row
For X = 2 To son
If Sheets("Sayfa1").Range("D" & X) > 0 Then   
With  Sheets("Sayfa1").Range("AA:AC" & X).select     
.ColorIndex = 12
End With
End If
Next X
Kullanıcı avatarı
Candan55
Yeni Başlamış
 
Kayıt: 18 Nis 2020 17:01
Meslek: Öğretmen
Yaş: 22
İleti: 52
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: Samsun

Yıllık Maaş Bordrosu Hesaplama 2022

Cevap: Hücre doluysa renklendir

İleti#2)  Ali ÖZ » 07 Kas 2022 11:07

Merhaba,
Bu satırı;
If Sheets("Sayfa1").Range("D" & X) > 0 Then

Bu şekilde değiştirip deneyin.
If Sheets("Sayfa1").Range("D" & X).value > 0 Then
Allah bize yeter, O ne güzel vekildir.
حَسْبُنَا اللهُ وَنِعْمَ الْوَكِيلُ
Kullanıcı avatarı
Ali ÖZ
Forum Moderatörü
 
Adı Soyadı:Ali ÖZ
Kayıt: 17 Oca 2013 12:16
Konum: SAKARYA
Meslek: Yazılım
Yaş: 41
İleti: 10372
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adapazarı/SAKARYA

Cevap: Hücre doluysa renklendir

İleti#3)  obirimaj » 11 Kas 2022 17:24

Ali bey Selamlar sizden birşey rica edebilir miyim? bunu konuyu bir excel formunda dosya haline getirip paylaşır mısınız? Affınıza sığınıarak çok yeniyim bu konularda bu formülü bir türlü yapamadım. İlginiz için şimdiden teşekkürler
Kullanıcı avatarı
obirimaj
 
Kayıt: 01 Ekm 2021 16:37
Meslek: Kalite Güvence
Yaş: 39
İleti: 5
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Konya

Cevap: Hücre doluysa renklendir

İleti#4)  Mesut Topal » 11 Kas 2022 21:47

Ali hocamın müsaadesiyle.
Kodlarınızı şöyle düzenleyin Hocam.

Kod: Tümünü seç
Dim son As Long
son = Sheets("Sayfa1").Cells(Rows.Count, 4).End(3).Row
For X = 2 To son
  If Sheets("Sayfa1").Cells(X, 4) > 0 Then
        Sheets("Sayfa1").Cells(X, 27).Resize(, 3).Interior.ColorIndex = 12
  End If
Next X
Kullanıcı avatarı
Mesut Topal
Site Dostu
 
Kayıt: 15 Eyl 2016 21:19
Meslek: Matematik Öğretmeni
Yaş: 36
İleti: 522
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Samsun/Ladik

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Hücre doluysa renklendir

İleti#5)  Mesut Topal » 11 Kas 2022 21:49

Buda istediğiniz dosya
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
Mesut Topal
Site Dostu
 
Kayıt: 15 Eyl 2016 21:19
Meslek: Matematik Öğretmeni
Yaş: 36
İleti: 522
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Samsun/Ladik

Cevap: Cevap: Hücre doluysa renklendir

İleti#6)  obirimaj » 12 Kas 2022 10:52

Mesut Topal yazdı:Buda istediğiniz dosya

Teşekkür ederim Mesut bey eline sağlık sağolun.
Kullanıcı avatarı
obirimaj
 
Kayıt: 01 Ekm 2021 16:37
Meslek: Kalite Güvence
Yaş: 39
İleti: 5
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Konya

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Hücre doluysa renklendir

İleti#7)  obirimaj » 12 Kas 2022 11:44

Mesut bey sizden bir ricam olacak eğer D hücre doluysa renklendirsin boşsa renklendirmesin. D hücresinden veriyi sildiğim zaman yine renkli kalıyor hücreler formülde eksiklik var gibi?
Kullanıcı avatarı
obirimaj
 
Kayıt: 01 Ekm 2021 16:37
Meslek: Kalite Güvence
Yaş: 39
İleti: 5
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Konya

Cevap: Hücre doluysa renklendir

İleti#8)  obirimaj » 16 Kas 2022 18:03

Konu hakkında yardımcı olacak kimse yok mu?
Kullanıcı avatarı
obirimaj
 
Kayıt: 01 Ekm 2021 16:37
Meslek: Kalite Güvence
Yaş: 39
İleti: 5
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Konya

Cevap: Hücre doluysa renklendir

İleti#9)  Mesut Topal » 16 Kas 2022 23:10

obirimaj yazdı:Mesut bey sizden bir ricam olacak eğer D hücre doluysa renklendirsin boşsa renklendirmesin. D hücresinden veriyi sildiğim zaman yine renkli kalıyor hücreler formülde eksiklik var gibi?


İstenen her durum iyi açıklanmalı. [evet]
Kodları şöyle değiştirirseniz boş olma durumunu dikkate alır.

Kod: Tümünü seç
Sub aaa()
Dim son As Long
son = Sheets("Sayfa1").Cells(Rows.Count, 4).End(3).Row
For X = 2 To son
  If Sheets("Sayfa1").Cells(X, 4) > 0 Then
        Sheets("Sayfa1").Cells(X, 27).Resize(, 3).Interior.ColorIndex = 12
  ElseIf Sheets("Sayfa1").Cells(X, 4) = "" Then
        Sheets("Sayfa1").Cells(X, 27).Resize(, 3).Interior.ColorIndex = xlNone
  End If
Next X
End Sub



Sayfada değişiklik yapınca otomatik renk düzeltmesini istiyorsanız kodları sayfanın SelectionChange olayına eklemelisiniz.

Şu şekilde

Kod: Tümünü seç
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim son As Long
son = Sheets("Sayfa1").Cells(Rows.Count, 4).End(3).Row
For X = 2 To son
  If Sheets("Sayfa1").Cells(X, 4) > 0 Then
        Sheets("Sayfa1").Cells(X, 27).Resize(, 3).Interior.ColorIndex = 12
  ElseIf Sheets("Sayfa1").Cells(X, 4) = "" Then
        Sheets("Sayfa1").Cells(X, 27).Resize(, 3).Interior.ColorIndex = xlNone
  End If
Next X
End Sub
Kullanıcı avatarı
Mesut Topal
Site Dostu
 
Kayıt: 15 Eyl 2016 21:19
Meslek: Matematik Öğretmeni
Yaş: 36
İleti: 522
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Samsun/Ladik

Cevap: Hücre doluysa renklendir

İleti#10)  obirimaj » 29 Kas 2022 17:58

Cevap için teşekkürler Mesut bey yanlız hala küçük bir sorun var sanki. D hücrelerindeki verileri silince D11 ve D12 hücrelerinde renkler hala duruyor. Çok oluyorum biliyorum ama bunu excelde yapıp dosya halinde paylaşmanız mümküm müdür?
Kullanıcı avatarı
obirimaj
 
Kayıt: 01 Ekm 2021 16:37
Meslek: Kalite Güvence
Yaş: 39
İleti: 5
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Konya

Cevap: Hücre doluysa renklendir

İleti#11)  Mesut Topal » 01 Arl 2022 00:10

obirimaj yazdı:... Çok oluyorum biliyorum ama bunu excelde yapıp dosya halinde paylaşmanız mümkün müdür?


Est. yardımcı olabiliyorsak ne mutlu.
Bende zamanında burada çok yardım aldım.
Şimdi borcumu ödemek için elimden geldiğince yardımcı olmaya çalışıyorum.

kodları şöyle değiştirirseniz olur.

Kod: Tümünü seç
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim son As Long
son = Sheets("Sayfa1").Cells(Rows.Count, 4).End(3).Row
For X = 2 To son
  If Sheets("Sayfa1").Cells(X, 4) > 0 Then
        Sheets("Sayfa1").Cells(X, 27).Resize(, 3).Interior.ColorIndex = 12
  Else
        Sheets("Sayfa1").Cells(X, 27).Resize(, 3).Interior.ColorIndex = xlNone
  End If
Next X
End Sub
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
Mesut Topal
Site Dostu
 
Kayıt: 15 Eyl 2016 21:19
Meslek: Matematik Öğretmeni
Yaş: 36
İleti: 522
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Samsun/Ladik


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 3 misafir

Bumerang - Yazarkafe