| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Borders/Inserting Line
I have a couple of issues with my code:
1) Putting the borders in , my code to do this is asterisked below, doesnt run 2)Also need to insert a line btw each account in Changes.xls Thanks A Million I want to get from: Jobs.xls: Client Jan Feb Mar GATT 100 150 250 CHEV 99 200 400 Jobs2.xls: Client Jan Feb Mar GATT 200 250 350 CHEV 199 300 1000 i NEED TO GET TO: Changes.XLS Client Jan Feb Mar GATT 200 250 350 100 150 250 ------------------------------- 100 100 100 CHEV 199 300 1000 99 200 400 ------------------------------- 100 100 600 Sub des() Worksheets.Add.Name = "Changes" k = 2 For i = 1 To 20 For j = 1 To 20 If Worksheets("Jobs").Cells(i, j) < Worksheets("Jobs2").Cells(i, j) Then Worksheets("Jobs2").Cells(i, j).EntireRow.Copy _ Destination:=Worksheets("Changes").Cells(k, 1) Worksheets("Jobs").Cells(i, j).EntireRow.Copy _ Destination:=Worksheets("Changes").Cells(k + 1, 1) With Worksheets("Changes") .Cells(k + 1, 1).ClearContents For m = 2 To 20 .Cells(k + 2, m).Value = .Cells(k, m) - .Cells(k + 1, m) * .Cells(k + 2, m).borders (xlEdgeBottom) * .Cells(k + 2, m).LineStyle = xlContinuous * .Cells(k + 2, m).Weight = xlMedium * .Cells(k + 2, m).ColorIndex = xlAutomatic Next m End With k = k + 3 Exit For End If Next j Next i End Sub |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Borders Line Colors | Excel Discussion (Misc queries) | |||
| Changed grid line color, now cell borders don't show | Excel Discussion (Misc queries) | |||
| Borders Don't Line up with Cells. | Excel Discussion (Misc queries) | |||
| Borders/Inserting Lines | Excel Programming | |||
| Line styles for Cell Borders | Excel Discussion (Misc queries) | |||
Threaded Mode
