Kayit Kontrol

[dogan081]

Sayın Hocalarım,
Lazım olan bir formulde değişiklik yapamadım. lazım gelen bir sütun aralığındaki değerlerin başka bir sütun aralığında var olup olmadığının kontrolünün yapılmasıydı. üzeride çalıştığım formül


Private Sub KONTROL()

Dim satır1 As Long

satır = Sayfa1.Range("D2").Value

For Index = 4 To 4500
If satır = Sayfa1.Cells(Index, 8).Value Then

Sayfa1.Cells(Index, 9) = "VAR"

End If
Next Index

End Sub



----> burada Aranan değer D2 olup bunu D sütunu olarak nasıl değiştirebilirim.


Yardımlarınız için şimdiden çok teşekkür ederim.

 

[kulomer46]

Aşağıdaki kodu deneyin..
Private Sub KONTROL()
Dim satır1 As Long
'satır = Sayfa1.Range("D2").Value
For Index = 4 To 4500
If Sayfa1.cells(Index,4).value = Sayfa1.Cells(Index, 8).Value Then
Sayfa1.Cells(Index, 9) = "VAR"
End If
Next Index
End Sub

 

[dogan081]

hocam ilginize teşekkür ederim.

Yalnız yine olmadı. Satırda mevcut 4. sütun ile 8. sütun değerleri aynı olup birbirine eşit ise Var değeri veriyor. 4.sütundaki değer 8. sutünda başka yerde olduğundan bunu nasıl yapabiliriz hocam.

Teşekkür ederim

 

[dogan081]

Aşağıdaki kodu deneyin..
Private Sub KONTROL()
Dim satır1 As Long
'satır = Sayfa1.Range("D2").Value
For Index = 4 To 4500
If Sayfa1.cells(Index,4).value = Sayfa1.Cells(Index, 8).Value Then
Sayfa1.Cells(Index, 9) = "VAR"
End If
Next Index
End Sub

hocam bir örnek gönderdim