пои�к одной �чейки в диапазоне �чеек
 

Как �делать автоматиче�кий пои�к одной �чейки в диапазоне других �чеек?

Суть в том что бы и�кало в ма�иве �толбца A, каждую �цейку �толбца В, а
результат выдавало как ЛОЖЬ или ИСТИ�� в �толбце C

ÐÏÉÓË ÏÄÎÏÊ ÑÞÅÊËÉ × ÄÉÁÐÁÚÏÎÅ ÑÞÅÅË
 

On Apr 5, 9:06 am, viki wrote:

ëÁË ÓÄÅÌÁÔØ Á×ÔÏÍÁÔÉÞÅÓËÉÊ ÐÏÉÓË ÏÄÎÏÊ ÑÞÅÊËÉ × ÄÉÁÐÁÚÏÎÅ ÄÒÕÇÉÈ ÑÞÅÅË?

óÕÔØ × ÔÏÍ ÞÔÏ ÂÙ ÉÓËÁÌÏ × ÍÁÓÉ×Å ÓÔÏÌÂÃÁ A, ËÁÖÄÕÀ ÑÃÅÊËÕ ÓÔÏÌÂÃÁ ÷, Á
ÒÅÚÕÌØÔÁÔ ×ÙÄÁ×ÁÌÏ ËÁË ìïöø ÉÌÉ éóôéîá × ÓÔÏÌÂÃÅ C


Can you ask that in English for the rest of us, please?

Chris

????? ????? ?????? ? ????????? ?????
 

"viki" wrote in message
...
??? ??????? ?????????????? ????? ????? ?????? ? ????????? ?????? ??????

???? ? ??? ??? ?? ?????? ? ?????? ??????? A, ?????? ?????? ??????? ?, ?
????????? ???????? ??? ???? ??? ?????? ? ??????? C

BabelFish says:

The search for one cell in the range of the cells

How to make an automatic search for one cell in the range of other cells?
Essence in the fact that would search for into masive of column A, each
yatseyku of column v, and result it issued as LIE or TRUTH in column C

I wonder what "yatseyku" means?

Public Sub search()
Dim i As Integer
Dim a As Range

With Sheet1
Set a = .Range("A1:A" & .Range("A1").End(xlDown).Row)
For i = 1 To .Range("B1").End(xlDown).Row
.Range("C" & i) = Not a.Find(.Range("B" & i), , xlValues, xlWhole) Is
Nothing
Next
End With

End Sub


--
roger

????? ????? ?????? ? ????????? ?????
 

On Apr 6, 4:27 am, "roger" wrote:
"viki" wrote in message

...

??? ??????? ?????????????? ????? ????? ?????? ? ????????? ?????? ??????

???? ? ??? ??? ?? ?????? ? ?????? ??????? A, ?????? ?????? ??????? ?, ?
????????? ???????? ??? ???? ??? ?????? ? ??????? C

BabelFish says:

The search for one cell in the range of the cells

How to make an automatic search for one cell in the range of other cells?
Essence in the fact that would search for into masive of column A, each
yatseyku of column v, and result it issued as LIE or TRUTH in column C

I wonder what "yatseyku" means?

Public Sub search()
Dim i As Integer
Dim a As Range

With Sheet1
Set a = .Range("A1:A" & .Range("A1").End(xlDown).Row)
For i = 1 To .Range("B1").End(xlDown).Row
.Range("C" & i) = Not a.Find(.Range("B" & i), , xlValues, xlWhole) Is
Nothing
Next
End With

End Sub

--
roger

Wow, that's freakishly dedicated answering :)

C