Posts by Garth Lean

    Hi Guys and Gals.


    Attached is an excel spreadsheet showing the following

    Col A - Week No

    Col B - Date

    Col C - Payment

    Col D - Every nth Weeks

    Col F - Fixed Payment

    So what I'm looking for is a formula in Col C, Where I receive a fixed payment of $20 (Col F) the day following 12 Weeks (Col D) up to just before the following payment. Then The next payment run starts a day after week 24 (accumulative) and so on. Hope I explained this OK. But I have manually filled in the required numbers to show what is required.

    Thanks in advance.

    Hi people,


    Just a simple question if you can.


    I'm looking for a line of command that checks column A for a certain value and inserts another value in column B


    I.E If cells in Col A > "1" and < "2" then put "100" in corresponding cells in Col B


    Thanks in advance

    Hi all,

    I have attached a spreadsheet with a bill of quantities for 4 bridges. If I edit BR01, (I've inserted a new item in Row 9) I need these changes to take effect in the remaining 3 bridges. I.E. Change BR01, insert changes to BR02, BR03 & BR04. The Descriptions in Col D are identical for all bridges except for bridge no, item no and section no which I can change after editing. Can I delete BR02, Copy BR01 and paste BR01 in the same position BR02 was? And then do the same for the remaining bridges.


    TYIA!

    Thanks AliGW

    It works up to a point where the level of the items changes from one portion of the job to another. I have attache a sample of the Bill Of Quantities. All the rows with filled color are headings, and the rows without color fill are the actual items. If you can solve this for me amd send back, I'll be able to figure it out with the rest of the workbook i have which has thousands of line items. thanking you in advance.


    Garth

    Hi

    Can someone please assist in showing me what formula I can use in cell A3 to A8 in order to increase the item above that by 1. I.E Cell A3 should read 320.1.1.2, A3 should read 320.1.1.3 and so on. Thank you in advance.

    320.1.1 Heading
    320.1.1.1 Item description 1

    Item description 2

    Item description 3

    Item description 4

    Item description 5

    Item description 7

    Removal and disposal of water/Sewer

    Another option

    =IF(A3="","",SUMIF($A$1:$H$1,"QTY",A3:H3))

    or with code

    Code
    Sub GarthLean()
        With Range("A2", Range("A" & Rows.Count).End(xlUp))
            .SpecialCells(xlConstants).Offset(, 8).Formula = "=SUMIF($A$1:$H$1,""QTY"",A3:H3)"
        End With
    End Sub

    Thanks, works like a charm:thumbup:

    Hi guys,


    I'm still brand new to this form of programming and require some assistance with a VBA code to sum alternate cells in a row placing the answer in the last column. For eg. in the spreadsheet below, add cell D3, F3 & H3 and place answer in I3. This must be applicable for the current worksheet.


    Thanking you in advance.:)


    A

    B

    C

    D

    E

    F

    G

    H

    I

    1

    ITEM

    UNIT

    ITEM NO

    QTY

    ITEM NO

    QTY

    ITEM NO

    QTY

    TOTAL

    2

    3

    A

    m

    1.1

    210

    2.1

    333

    3.1

    1255

    1798

    4

    5

    AB

    m

    1.2

    111

    2.2

    269

    3.2

    36

    416

    6

    7

    AC

    kg

    1.3

    265

    2.3

    666

    3.3

    365

    1296

    8

    9

    AD

    kg

    1.4

    962

    2.4

    247

    3.4

    7

    1216

    10

    11

    AE

    Ton

    1.5

    23

    2.5

    110

    3.5

    227

    360

    12

    13

    AF

    Kg

    1.6

    12

    2.6

    12

    3.6

    369

    393

    14

    15

    AG

    Lb

    1.7

    58

    2.7

    159

    3.7

    990

    1207

    16

    17

    AH

    m

    1.8

    147

    2.8

    963

    3.8

    1236

    2346

    18

    19

    AI

    kg

    1.9

    166

    2.9

    325

    3.9

    1000

    1491

    20

    Hi

    Struggling to keep destination format using the following command. Any sugestions?


    Thanks


    Dim rng1 As Range

    Dim n As Long

    n = Sheet1.Range("A2").Value

    Set rng1 = Sheets("EW-RDS-DR").Cells(Rows.Count, 2).End(xlUp).Offset(4, 0)

    Sheets("320").Range("N9:Q" & n).Copy Destination:=rng1

    Hi

    I have a VBA Sub below which jumps between two worksheets, namely "320" the source ws, and "EW-RDS-DR" which is the destination worksheet.

    Please have a look at my VBA and let me know how I can manipulate the VBA to keep all destination formatting.


    Many thanks.