Results 1 to 2 of 2

Thread: Excel

Hybrid View

Previous Post Previous Post   Next Post Next Post
  1. #1
    Registered 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.

  2. #2
    's Avatar
    Join Date: Mar:2005
    Location:
    Posts: 379
    ,

    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
    , , , ,

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  

Copyright © 1999-2011 . .
iskamPC.com | mobility.BG | Bloody's Techblog | | 3D Vision Blog |