Results 1 to 2 of 2
Thread: Excel
Hybrid View
-
20th May 2013 10:35 #1Registered User
Join Date: May:2013
Location: Radnevo
Posts: 1
Excel
3 :
, :
http://prikachi.com/images/563/6128563g.png
http://prikachi.com/images/564/6128564J.png
Sheet " 2013 " :
1 . . Y271 271 272
2 . " "
3. Sheet "" . / . 5 C2 i D2 /
4. Y271 , 271 272
- Y271 , 271 272 Sheet " 2013" .
.
UserForm .
.Last edited by mehanika; 20th May 2013 at 18:32.
-
21st May 2013 02:19 #2
,
3, -. , . , , .
',
look_for = 5 ' Y271
tel1 = 088888888 ' 271
tel2 = 05555555 ' 272
Worksheets("").Activate
Columns("B:B").Select
If Selection.Find(what:=look_for, LookIn:=xlFormulas, lookat:=xlWhole) Is Nothing Then
' "" -
result = Selection.End(xlDown).Value + 1
Else
' -
result = Selection.Find(what:=look_for, After:=ActiveCell, LookIn:=xlFormulas, lookat _
:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Row
End If
Cells(result, "C") = tel1
Cells(result, "D") = tel2, , , ,




Reply With Quote
Lenovo ThinkPad 15 IdeaPad 15
5th May 2023, 22:16 in