Buldugu degeri silme

[Yusuf128]

Arkadaşlar merhaba.

Bir dosyam var ve bunun m kolununda aşağıdaki değerler var. Yapmak istediğim ilk satırdaki deneme1 ara. Eğer bulursan n ye ok yaz. Deneme 2 ara aşağıda bulursan ok yaz. Eslestirdiklerini bir daha alamaması gerekiyor. Yani aşağıdaki ornekde sadece deneme1 ok olmayan olarak kalması gerekiyor.

Bu konuda yardımcı olanilirmisiniz

Deneme1
Deneme2
Deneme3
Deneme2
Deneme3
Deneme1

 

[AdemCan]

Merhaba dener misiniz?
Örnek olarak Sayfa1 kullanıldı, Set s1 = Sayfa1 kısmındaki Sayfa1 i değiştirebilirsiniz.

Sub test()
Application.ScreenUpdating = False
Dim s1 As Worksheet
Set s1 = Sayfa1
s1.Range("N:N").Clear
son = s1.Cells(Rows.Count, 13).End(3).Row
For i = 1 To son
    Set bul = s1.Range("M" & i + 1 & ":M" & son + 1).Find(s1.Cells(i, 13))
    If Not bul Is Nothing Then
        s1.Cells(i, 14) = "Ok"
    End If
Next i
Application.ScreenUpdating = True
End Sub

 

[Yusuf128]

Merhaba dener misiniz?
Örnek olarak Sayfa1 kullanıldı, Set s1 = Sayfa1 kısmındaki Sayfa1 i değiştirebilirsiniz.

Sub test()
Application.ScreenUpdating = False
Dim s1 As Worksheet
Set s1 = Sayfa1
s1.Range("N:N").Clear
son = s1.Cells(Rows.Count, 13).End(3).Row
For i = 1 To son
    Set bul = s1.Range("M" & i + 1 & ":M" & son + 1).Find(s1.Cells(i, 13))
    If Not bul Is Nothing Then
        s1.Cells(i, 14) = "Ok"
    End If
Next i
Application.ScreenUpdating = True
End Sub

Çok tesekkurler çalıştı. Bir ekleme daha rica edebilirmiyim. Ayrıca O sütununda e ve c harfleri var. Kontrol ederken mesela deneme 1 e ise aşağıda ararken deneme c yi arasın bulursa Ok yazsin. Deneme1 c ise deneme e yi arasın

Mümkündür?

Deneme1 E
Deneme2 e
Deneme3 c
Deneme2 c
Deneme3 e
Deneme1 c
Deneme1 e

 

[Yusuf128]

Kısaca istediğim aşağıdaki gibi

Deneme1	e	ok	Deneme1-e yi aramaya başladı. Deneme1-c bulursa ikisinede ok yazacak.
Deneme2	c	ok	Deneme2-c yi aramaya başladı. Deneme2-e bulursa ikisinede ok yazacak.
Deneme1	c	ok	Bir üstte bunu bulduğu için artık bunu bir daha aramayacak.
Deneme2	e	ok	Bir üstte bunu bulduğu için artık bunu bir daha aramayacak.
Deneme2	C	Yok	Deneme2-c bulamayacak aşağıda ve no yazacak
Deneme1	E	Yok	Deneme1-e bulamayacak aşağıda ve no yazacak
Deneme1	E	Yok	Deneme1-e bulamayacak aşağıda ve no yazacak
Deneme1	E	Yok	Deneme1-e bulamayacak aşağıda ve no yazacak

 

[Yusuf128]

Selamlar.

Bu şekilde bir macro yazma şansımız varmi?