DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
=İNDİS(A1:A10;KAÇINCI("f";A1:A10;0)-1)
=İNDİS(A1:A10;KAÇINCI("f";A1:A10;0)+1)
=KAYDIR(İNDİS(H3:H4;KAÇINCI(B6;G3:G$4;0));[COLOR="red"][B]1[/B][/COLOR];[COLOR="red"][B]0[/B][/COLOR])
Sub Ns()
Dim bul
If WorksheetFunction.CountIf([COLOR="lime"]Sayfa1[/COLOR].Range("A1:B6"), "ali") > 0 Then
With Sayfa1.Range("A1:B6")
bul = .Find(What:="[COLOR="Red"]ali[/COLOR]", After:=.Cells(1, 1), _
LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False).Offset([COLOR="Blue"]1, 1[/COLOR])
End With
Range("C1") = bul
End If
End Sub