Aynı numaralardan birinde Z yazıyorsa diğerinede Z yazmak

[Gaffur]

Dosya içerisinde daha detaylıda açıkladım. İstediğim D sütünunda Z yazıyorsa bu Z nin olduğu satırdaki numaranın aynısı listede varsa bu numaranın olduğu satırın D sütununada Z yazdıracak bir kod

 

[asi_kral]

Merhaba
Boş bir module kopyalayın ve deneyin.

Option Explicit
Sub şartlı()
Dim BUL As Range, SBT As Variant, STR As Long
Application.ScreenUpdating = False
For STR = 2 To Cells(Rows.Count, "A").End(xlUp).Row
If Cells(STR, "D") = "Z" Then
Set BUL = Range("B:B").Find(Cells(STR, "B"), , , xlWhole)
If Not BUL Is Nothing Then
SBT = BUL.Address
Do
Cells(BUL.Row, "D") = "Z"
Set BUL = Range("B:B").FindNext(BUL)
Loop While Not BUL Is Nothing And BUL.Address <> SBT
End If: End If: Next
Application.ScreenUpdating = True
End Sub

 

[Gaffur]

Hocam çok teşekkür ederim, uzunca ve her gün yenilenen bir liste de işimi kolaylaştıracak bir çözüm oldu.
Sağolun

 

[asi_kral]

Hocam çok teşekkür ederim, uzunca ve her gün yenilenen bir liste de işimi kolaylaştıracak bir çözüm oldu.
Sağolun

Kolay Gelsin.