Posts by Brian Walters

  • Copy Rows To Worksheet If Cross Match & Another If No Match

    Re: Copy Row To One Of Two Worksheets Based On Match Condition


    Here is a clunky way to do it using a macro.


    HTH


    Sorry, I forgot you had 4 columns of data.

  • Add X Months To Date

    Re: Adding 3 Months To Date In Column


    Try

    Code
    .Cells(line, 8).Value = "FORCE-MATCH CANDIDATE < $5K ICDP, " & Format(DateSerial(Year(.Cells(line, 17).Value),Month(.Cells(line, 17).Value)+3,Day(.Cells(line, 17).Value)),"m/d/yyyy")

  • Delete Entire Row If Cell Contains String

    Re: Macro To Delete Entire Row Based On Specific Word In Cell With Multiple Words


    Based on a post by Bill Rockenbach, I think this will work


    I think you can use this to modify the macro in your other post where you want to highlight certain cells.
    HTH

  • Highlight Cells Containing String From User Input

    Re: Macro To Highlight Cell With Specific Word And Then Repeat Itself For Entire Column


    Try this


    HTH

  • Join Time & Date & Retain Formatting

    Re: Date Formats In Visual Basic


    I downloaded the WinRAR software and extracted the file. This worked for me

    Code
    With Obj1.ActiveWorkbook.ActiveSheet
        .Range(.Cells(2, 15), .Cells(2, 5).End(-4121).End(-4161).Offset(0, 2)).FormulaR1C1 = "=RC[-10]+RC[-9]"
        .Range(.Cells(2, 15), .Cells(2, 5).End(-4121).End(-4161).Offset(0, 2)).NumberFormat = "m/d/yyyy h:mm"  '*** This line was added ***
        .Range(.Cells(2, 16), .Cells(2, 15).End(-4121).Offset(0, 1)).FormulaR1C1 = "=RC[-7]"
        a = .Range(.Cells(2, 15), .Cells(2, 16).End(-4121))
    End With

  • Join Time & Date & Retain Formatting

    Re: Date Formats In Visual Basic


    Could you do something like

    Code
    .Cells(2, 2) = Obj1.ActiveWorkbook.ActiveSheet.Cells(2, 1) & "_" & Obj1.ActiveWorkbook.ActiveSheet.Cells(2, 2) & "_" & Str1 
.Cells(2,2).NumberFormat = "m/d/yyyy h:mm"
Str2 = .Cells(2, 2)

    ?

  • Transform Vertical Data To Horizontal And Add Spacing

    Re: Transformin And Pasting


    Try this macro

    [hr]*[/hr] Auto Merged Post;[dl]*[/dl]I have added a button to run the macro as well as the ability to loop through all the sheets in the workbook and paste the results into their own line on the "Paste_In" sheet. As far as starting at a different place on each "Paste_From" sheet, the macro will start 1 row down from the last row that has something in Column A. So if you want to start at row 12 on a particular sheet, then just type something in cell A11 and make sure that all cells in column A below row 11 are blank.
    More Updates

  • Copy PDF Files Matching List Into Different Folder

    Re: Copy PDF Files Matching List Into Different Folder


    I got this to work for me

  • Hide Rows Across All Sheets Where Row Sums To Zero

    Re: Hide Rows Across All Sheets Where Row Sums To Zero


    How about capturing the starting sheet's name at the beginning of the code and then using that at the end to return to the starting sheet? Something like