İki farklı safadaki veriyi karşılaştırma (makro)?

[alpmk1]

Sub listele()
For a = 3 To [b65536].End(3).Row
eski = Cells(a, "b")
yeni = Cells(a, "e")

If WorksheetFunction.CountIf([b:b], yeni) = 0 Then Cells(a, "e").Interior.ColorIndex = 36

Next
End Sub


Merhaba, yukarıdaki makro b sütünu ile e sütünunu karşılaştırıp, e de olupta b sütünunda olmayanları renkli olarak belirtiyor.

Benim istediğim bu makroyu e sütünu farklı bir sayfada olduğunu düşünerek yapabilmek.

Yardımınız için şimdiden teşekkürler.

Not: Ekteki makra excel.web.tr de bir üstadın paylaşımından alınmıştır. Mesajın orjinalini bulamadım.

 

[green sight]

bir hücreye yazı yadığımda diğer hücrede başka birşey yazsın

selamlar

a1 hücresine 1 yazdığımda b1 hücresine otomatik olarak ali yazmasını istiyorum

bu konuda yardımıcı olabilirseniz sevinirim

 

[alpmk1]

green sight soru sormak için yeni başlayanlara girip oradan yeni soru oluşturu seçmeniz gerekiyor. Bu arada sorumu okuyan üstad yok galiba bugün ?

 

[ynmcan]

Syn. Alpmk1;Ekteki dosyayı inceleyin.
İstediğiniz bumu?

Sub listele()
For a = 3 To [b65536].End(3).Row
eski = [COLOR="Red"]Sayfa1.[/COLOR]Cells(a, "b")
yeni = [COLOR="red"]Sayfa2.[/COLOR]Cells(a, "e")

If WorksheetFunction.CountIf([b:b], yeni) = 0 Then [COLOR="red"]Sayfa2.[/COLOR]Cells(a, "e").Interior.ColorIndex = 38

Next
End Sub

 

[alpmk1]

üstadım; tam anlamıyla budur. çok teşekkürler.