Oh come on dude. As per Bosco post
Posts by Garth Lean


Nevermind. Sorted it out. Thanks a lot. It works

Hi Bosco
Thanks. But the formula inserts 4, 8, 12, & 16 instead of the dollar values 20, 40, 60 & 80. Any idea what to do?

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 n^{th} 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.

Thanks Alan
I'll give it a try and see. Will this command have to be repeated everywhere where column B value changes. I have 72.
Cheers

Hi Alan,
Sorry, forgot to mention, I need VBA code for this. Also, if A1 is something else, leave B1 as is and not blank. Is this possible?
TY

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

Sorry, I forgot to mention that the criteria to use is in Col B.
Thanks

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 Bosco, also works

Carim,
You are a star, Works great, Thank you for finding the time to assist me. This sample I gave you actually has 10577 lines of data.
Great job.

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

I see now that it wont work because the row numbers dont always correspond with the item numbers

Many thanks Carim. Works like a charm.

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 
Thanks, works like a charm

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("EWRDSDR").Cells(Rows.Count, 2).End(xlUp).Offset(4, 0)
Sheets("320").Range("N9:Q" & n).Copy Destination:=rng1

Hi
Anybody that can assist me with a code to automatically group data based on values in a column. I've tried a few with no luck, I have attache d a sample excel worksheet of what I want grouped.
Thanks

Hi
I have a VBA Sub below which jumps between two worksheets, namely "320" the source ws, and "EWRDSDR" 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.
Code
Display MoreOption Explicit Sub UpdateEWRDSDR() Worksheets("EWRDSDR").Select ' CLEAR EXISTING DATA IN EWRDSDR Range("a6:k1000").ClearContents ' COPY UPDATED DATA IN 320 AND PASTE IN EWRDSDR Dim rng1 As Range Dim n As Long n = Sheet1.Range("A1").Value Set rng1 = Sheets("EWRDSDR").Cells(Rows.Count, 2).End(xlUp).Offset(5, 0) Sheets("320").Range("N9:Q" & n).Copy Destination:=rng1 ' COPY COLUMN C & PASTE IN COLUMNS F,H & J Range("C6:C1000").Copy Range("f6:f1000") Range("C6:C1000").Copy Range("h6:h1000") Range("C6:C1000").Copy Range("j6:j1000") ' CHANGE RELEVANT SECTION NUMBERS Range("H6:H1000").Replace What:="320", Replacement:="330" Range("J6:J1000").Replace What:="320", Replacement:="340" ' VLOOKUP QTYS IN 320 & PASTE IN EWRDSDR USING VLOOKUP Dim ws1 As Worksheet, ws2 As Worksheet Dim lr As Long Dim rng As Range Set ws1 = Sheets("EWRDSDR") Set ws2 = Sheets("320") lr = ws1.Cells(Rows.Count, "F").End(xlUp).Row Set rng = ws2.Range("O11:R3000") 'This line will place the value in EWRDSDR in the range "G6:H" & lr where lr is the last row with data in col. F ws1.Range("G6:G" & lr).Formula = "=IFERROR(VLOOKUP(F6," & ws2.Name & "!" & rng.Address & ",4,FALSE),"""")" ' COPY COLUMN G & PASTE IN COLUMNS I & K Range("G8:G1000").Copy Range("I8:I1000") Range("G8:G1000").Copy Range("K8:K1000") ' CHANGE RELEVANT SECTION NUMBERS Range("I8:I1000").Replace What:="320", Replacement:="330" Range("K8:K1000").Replace What:="320", Replacement:="340" End Sub