Arkadaşlar merhaba,
Sayfamda A sütununda sayılar bulunuyor. Burada 1280900 varsa bunun G sütunundaki karşılığına "1280900 kullanılamaz" yazmak istiyorum ama A sütununda 1280900 yoksa hata satırındaki next1'e gitmiyor çünkü D sütununda formül var ve formülün içeriğinde 1280900 kelimesi geçiyor. Bunu gördüğü için D sütunundaki karşılığını seçiyor.
Bunu engellemek için find işleminin sadece A sütununda yapılmasını sağlayabilir miyim veya yapmak istediğimi farklı bir yolla nasıl yapabilirim?
Sayfamda A sütununda sayılar bulunuyor. Burada 1280900 varsa bunun G sütunundaki karşılığına "1280900 kullanılamaz" yazmak istiyorum ama A sütununda 1280900 yoksa hata satırındaki next1'e gitmiyor çünkü D sütununda formül var ve formülün içeriğinde 1280900 kelimesi geçiyor. Bunu gördüğü için D sütunundaki karşılığını seçiyor.
Bunu engellemek için find işleminin sadece A sütununda yapılmasını sağlayabilir miyim veya yapmak istediğimi farklı bir yolla nasıl yapabilirim?
Kod:
Columns("A:A").Select
On Error GoTo next1:
Cells.Find(What:="1280900", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Select
ActiveCell.Offset(0, 0).Range("G1:G1") = "1280900 kullanılamaz"
next1:
********diğer kodlar