Bir hücrede yazılı olan, verilen sütunda hangi hücrelerde var?

[Tevfik_Kursun]

Merhaba Arkadaşlar,
Ekli dosyada G6 hücresinde yazılı olanları C7:C24 arasındaki hücrelerde arıyorum. Bunu fonksiyonla hazırlayıp D sütununda gösterdim.
Aynı işlemi makro ile E sütununda göstermek istiyorum.
Saygılarımla
Hucrede_Var_mi

 

[çıtır]

Deneyiniz.

Sub Bul()
Dim s1 As Worksheet
Dim i As Integer
Set s1 = Sheets("Sayfa1")
s1.Range("E7:E24").ClearContents
aranan = s1.Range("G6")
For i = 7 To 24
Bak = Range("C" & i)
 son = InStr(1, Bak, aranan, 1)
 If son > 0 Then
 s1.Range("E" & i) = s1.Range("B" & i)
 End If
 Next i
End Sub

 

[Orion1]

İlgili sayfa modülüne aşağıdaki kodu giriniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [G6]) Is Nothing Then Exit Sub
Dim k As Range, adr As String
Range("D7:D24").ClearContents
sat = 7
Set k = Range("C7:C24").Find(Target.Value, , xlValues, xlPart)
If Not k Is Nothing Then
    adr = k.Address
    Do
        k.Offset(0, 1).Value = k.Offset(0, -1).Value
        Set k = Range("C7:C24").FindNext(k)
    Loop While Not k Is Nothing And adr <> k.Address
End If
MsgBox "bitti"
        
End Sub

 

[turist]

Alternatif dosyanız eklidir, deneyiniz.

 

[Tevfik_Kursun]

Sayın Hocalarım,
Hepinize çok teşekkür ederim.
Saygılarımla

 

[turist]

Sayın Hocalarım,
Hepinize çok teşekkür ederim.
Saygılarımla

Sağ olun, iyi çalışmalar.