eşittir

[meda58]

arkadaşlar ekteki dosyada görüldüğü üzere E-F hücrelerindeki sayılar eşit oldugu zaman B-C-D-E-F hücreleri sarı olabilirmi ben bunu koşullu biçimlendirme ile yaptım ama bana mutlaka MACRO ile yapılmış olması lazım ilginize şimdiden teşekkürler

 

[leumruk]

Merhaba,
Örneği deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
If Intersect(Target, Range("e1:f" & [a65536].End(3).Row)) Is Nothing Then Exit Sub
If Cells(Target.Row, "e") = Cells(Target.Row, "f") Then
Range(Cells(Target.Row, "b"), Cells(Target.Row, "f")).Interior.ColorIndex = 6
Else
Range(Cells(Target.Row, "b"), Cells(Target.Row, "f")).Interior.ColorIndex = xlNone
End If
Son:
End Sub

 

[meda58]

ben buraya bayılıyorum bukadar hızlı ve net çözümler nediyim harikasınız
çok güzel çalışıyor
hocam bir şey daha rica edebilirmiyim
A hücresindeki rakamlar temizlenince E-F hücresindeki rakamlarda otamatikman temizlenebilirmi

 

[leumruk]

ben buraya bayılıyorum bukadar hızlı ve net çözümler nediyim harikasınız
çok güzel çalışıyor
hocam bir şey daha rica edebilirmiyim
A hücresindeki rakamlar temizlenince E-F hücresindeki rakamlarda otamatikman temizlenebilirmi

Merhaba,
Aşağıdaki kodu kullanın:

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
Application.EnableEvents = False
If Not Intersect(Target, Range("e1:f" & [b65536].End(3).Row)) Is Nothing Then
If Target = "" Then Exit Sub
If Cells(Target.Row, "e") = Cells(Target.Row, "f") Then
Range(Cells(Target.Row, "b"), Cells(Target.Row, "f")).Interior.ColorIndex = 6
Else
Range(Cells(Target.Row, "b"), Cells(Target.Row, "f")).Interior.ColorIndex = xlNone
End If
End If
If Not Intersect(Target, Range("a1:a" & [b65536].End(3).Row)) Is Nothing Then
Range(Cells(Target.Row, "b"), Cells(Target.Row, "f")).Interior.ColorIndex = xlNone
Range(Cells(Target.Row, "e"), Cells(Target.Row, "f")).ClearContents
End If
Son:
If WorksheetFunction.CountA(Columns(1)) = 0 Then
Range("e" & Target.Row & ":f" & [b65536].End(3).Row).ClearContents
End If
Application.EnableEvents = True
End Sub

 

[meda58]

hocam dosyam büyüktü hergün aynı rutin işleri yapmaktan gına gelmişti beni bayağı büyük bir yükten kurtardınız
sonsuz teşekkürlerimi bildirir önünüzde saygıyla egilirim
bu siteden çok şey öğreniyorum