+ Reply to Thread
Results 1 to 8 of 8

loop macro

  1. #1
    Registered User
    Join Date
    07-02-2005
    Posts
    7

    loop macro

    Hi, i'm new in this forum and Looking for some help...

    I need a macro to make a list of the fiber color code, starting by the color in the selected cell and keep repeating in a row as many times is specified in another cell (A2).

    The color code is

    Blue
    Orange
    Green
    Brown
    Grey
    White
    Red
    Black
    Yellow
    Violet
    Rose
    Aqua

    This is the fiber color code, and after aqua start over whit blue again.
    there is any way to do this.

    thank you

  2. #2
    Toppers
    Guest

    RE: loop macro

    Hi,
    Is the selected cell always in the same column? And can you give an
    example of the sequence i.e can it start with any colour: is the following
    valid?

    Violet, Rose,Aqua, Blue, ...Yellow,Violet ...

    "cacique" wrote:

    >
    > Hi, i'm new in this forum and Looking for some help...
    >
    > I need a macro to make a list of the fiber color code, starting by the
    > color in the selected cell and keep repeating in a row as many times is
    > specified in another cell (A2).
    >
    > The color code is
    >
    > Blue
    > Orange
    > Green
    > Brown
    > Grey
    > White
    > Red
    > Black
    > Yellow
    > Violet
    > Rose
    > Aqua
    >
    > This is the fiber color code, and after aqua start over whit blue
    > again.
    > there is any way to do this.
    >
    > thank you
    >
    >
    > --
    > cacique
    > ------------------------------------------------------------------------
    > cacique's Profile: http://www.excelforum.com/member.php...o&userid=24861
    > View this thread: http://www.excelforum.com/showthread...hreadid=384058
    >
    >


  3. #3
    Registered User
    Join Date
    07-02-2005
    Posts
    7
    hi and thanks for the help,

    yes and yes.

    the selected cell is allways the same and the sequence can start with any color..

  4. #4
    Mike Fogleman
    Guest

    Re: loop macro

    Is this what you are saying? You will enter a number in Cell A2 that
    represents the number of fibers to list per row. At the beginning of that
    row you have already entered a starting color. So if you select A12 which
    has Grey in it and there is a 4 in A2, you want the next 4 colors in B12 to
    E12? White through Yellow. That would be 5 fibers in that row. Do you also
    want to indicate the Tube color, Bundle color, etc.? Because when you use up
    the first 12 fibers the Tube color changes to Orange, and when you have used
    12 Tubes (144 fibers) then the Bundle changes to Orange. Or do you not care
    about which Tube, Bundle the fiber is in, you just want the fiber colors to
    loop from a starting point on each row.

    Mike F
    Cable Guy

    "cacique" <cacique.1rj8ub_1120291504.1938@excelforum-nospam.com> wrote in
    message news:cacique.1rj8ub_1120291504.1938@excelforum-nospam.com...
    >
    > Hi, i'm new in this forum and Looking for some help...
    >
    > I need a macro to make a list of the fiber color code, starting by the
    > color in the selected cell and keep repeating in a row as many times is
    > specified in another cell (A2).
    >
    > The color code is
    >
    > Blue
    > Orange
    > Green
    > Brown
    > Grey
    > White
    > Red
    > Black
    > Yellow
    > Violet
    > Rose
    > Aqua
    >
    > This is the fiber color code, and after aqua start over whit blue
    > again.
    > there is any way to do this.
    >
    > thank you
    >
    >
    > --
    > cacique
    > ------------------------------------------------------------------------
    > cacique's Profile:
    > http://www.excelforum.com/member.php...o&userid=24861
    > View this thread: http://www.excelforum.com/showthread...hreadid=384058
    >




  5. #5
    Registered User
    Join Date
    07-02-2005
    Posts
    7
    hi, Mike


    yes that's what I want.

    the Tube or ribbon color change, will be using the same formula but with different number source from different cell.

    I think, I can figure out after i have the macro to loop the colors

  6. #6
    Registered User
    Join Date
    07-02-2005
    Posts
    7
    Any One that can help me!!
    thanks!!!

  7. #7
    Mike Fogleman
    Guest

    Re: loop macro

    OK, this macro uses Excels Auto_Fill from a list feature, so you will need
    to create a Custom List of the fiber colors. You do that in
    Tools/Options/Custom Lists. Once you have that, put this code in a general
    module. Assign it to a worksheet button if you wish for ease of use.

    Sub Paste_fibers()

    Dim fromhere As String
    Dim tohere As String
    Dim fibcnt As Long

    fibcnt = Range("A2").Value
    fromhere = ActiveCell.Address
    tohere = ActiveCell.Offset(0, fibcnt).Address
    Selection.AutoFill Destination:=Range(fromhere & ":" & tohere)

    End Sub

    Mike F
    "cacique" <cacique.1rkbqd_1120341903.8703@excelforum-nospam.com> wrote in
    message news:cacique.1rkbqd_1120341903.8703@excelforum-nospam.com...
    >
    > Any One that can help me!!
    > thanks!!!
    >
    >
    > --
    > cacique
    > ------------------------------------------------------------------------
    > cacique's Profile:
    > http://www.excelforum.com/member.php...o&userid=24861
    > View this thread: http://www.excelforum.com/showthread...hreadid=384058
    >




  8. #8
    Mike Fogleman
    Guest

    Re: loop macro

    I would think that you would want to include the starting fiber in the fiber
    count for the row. In other words, if you have a 6 in A2 you would want only
    6 fibers in that row, which would include the starting fiber, so the macro
    should only add 5 more for a total of 6. If so, modify one line like this:

    fibcnt = Range("A2").Value - 1

    That will make "tohere" one column shorter.

    Mike F

    "Mike Fogleman" <mikefogleman@insightbb.com> wrote in message
    news:uGglpK9fFHA.1048@tk2msftngp13.phx.gbl...
    > OK, this macro uses Excels Auto_Fill from a list feature, so you will need
    > to create a Custom List of the fiber colors. You do that in
    > Tools/Options/Custom Lists. Once you have that, put this code in a general
    > module. Assign it to a worksheet button if you wish for ease of use.
    >
    > Sub Paste_fibers()
    >
    > Dim fromhere As String
    > Dim tohere As String
    > Dim fibcnt As Long
    >
    > fibcnt = Range("A2").Value
    > fromhere = ActiveCell.Address
    > tohere = ActiveCell.Offset(0, fibcnt).Address
    > Selection.AutoFill Destination:=Range(fromhere & ":" & tohere)
    >
    > End Sub
    >
    > Mike F
    > "cacique" <cacique.1rkbqd_1120341903.8703@excelforum-nospam.com> wrote in
    > message news:cacique.1rkbqd_1120341903.8703@excelforum-nospam.com...
    >>
    >> Any One that can help me!!
    >> thanks!!!
    >>
    >>
    >> --
    >> cacique
    >> ------------------------------------------------------------------------
    >> cacique's Profile:
    >> http://www.excelforum.com/member.php...o&userid=24861
    >> View this thread:
    >> http://www.excelforum.com/showthread...hreadid=384058
    >>

    >
    >




+ Reply to Thread

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Bookmarks

Posting Permissions

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

Search Engine Friendly URLs by vBSEO 3.6.0 RC 1