Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations Mike Lewis on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Search results for query: *

  1. tyantorno

    VBA code to find a string in a specific column and copy the entire row to row below

    Hello, I am looking to write a VBA program to search a column for a particular string "Jeff" and when that string is found to copy the entire row to the row below on the same worksheet and highlight the font in red. Thank you in advance.
  2. tyantorno

    Beginner to VBA looking to copy and paste row whenever ";" found in column B. Thank you

    Hi Skip, I actually do want two identical rows of data. I know it must not make sense but it is a file from an output source that is there is a semi colon in column B I need to make a copy of the line for importing into financial system. Thanks, sorry for the confusion.
  3. tyantorno

    Beginner to VBA looking to copy and paste row whenever ";" found in column B. Thank you

    Hi Skip, I need to keep all data intact. I just need to copy the entire row in the row below when a semi colon is in the search string on column B. Thanks
  4. tyantorno

    Beginner to VBA looking to copy and paste row whenever ";" found in column B. Thank you

    Hello Skip, Thank you for the advice. I am trying to write VBA code to determine if there is a ";" in column B of an Active worksheet, and if there is any cell with a semi colon ";" in column B to copy that cell to the row below. All of the information in that row would be copied. Thank you.
  5. tyantorno

    Beginner to VBA looking to copy and paste row whenever ";" found in column B. Thank you

    The code below does it for the first row found but does not look to any rows below that. I am assuming a loop? Thank you in advance Option Explicit Sub Macro2() Dim rngAddress As Range Dim rowToBeCopied As Integer Set rngAddress = Range("B:B").Find(";") If rngAddress Is Nothing Then...

Part and Inventory Search

Back
Top