Eğer ile ilgili makro

[Erdinç FIRTINA]

Değerli üyeler;

Eğer ile ilgili 2 sorum var.

1-Eğer; M2 boşsa boş kalsın ancak doluysa B2 deki değer atansın
formülle değil de makro ile nasıl yapabilirim? (Aynı satır aşağıya doğru devam ediyor)
=EĞER(M2="";"";B2)
=EĞER(M3="";"";B3)
=EĞER(M4="";"";B4)
..........................
=EĞER(M24500="";"";B24500)
=EĞER(M24501="";"";B24501)
=EĞER(M24502="";"";B24502)

ve bu şekilde devam ediyor.


2-Eğer; M2 boşsa, A2, B2, C2, N2, O2, P2, R2 kırmızı renk olsun, doluysa renk olmasın yani olduğu gibi kalsın.

Bunları makro ile nasıl yapabilirim ?

Yardımlarınız için şimdiden teşekkürler !!!

 

[Korhan Ayhan]

Aşağıdaki kodları deneyiniz.

İlk sorunuz için hangi sütuna B sütunundaki değerlerin aktarılacağını belirtmemişsiniz. Ben örnek olarak N sütununa göre ayarladım. Siz kendinize göre düzenlersiniz.

Sub Makro_1()
    With Range("N2:N65536")
        .Formula = "=IF(M2="""","""",B2)"
        .Value = .Value
    End With
End Sub
 
Sub Makro_2()
    Range("A2:C65536").Interior.ColorIndex = xlNone
    Range("N2:P65536").Interior.ColorIndex = xlNone
    Range("R2:R65536").Interior.ColorIndex = xlNone
    For Each Veri In Range("M2:M" & Cells(Rows.Count, "B").End(3).Row)
        If Veri.Value = "" Then
            Range("A" & Veri.Row, "C" & Veri.Row).Interior.ColorIndex = 3
            Range("N" & Veri.Row, "P" & Veri.Row).Interior.ColorIndex = 3
            Range("R" & Veri.Row, "R" & Veri.Row).Interior.ColorIndex = 3
        End If
    Next
End Sub

 

[Erdinç FIRTINA]

Sayın Korhan AYHAN,
Her zaman olduğu gibi karşılıksız emeğinizi yine ortaya koydunuz. Çok teşekkür ederim. Bir başka konuda bilgi almak isteğim vardı ama sitenin kurallarını bildiğim ve de çok saygı duyduğum için yeniden konu açıp sormak durumundayım. Yardımlarınız için yüreğinize ve beyninize sağlık !!!