Excel formula

Pajoooo · Jul 1, 2009, 02:39 PM

Quote:

Originally Posted by Pajoooo

Download Attachment, first.

I need:

-If B14=empty, then A and D colones both empty

-If only B14=selected, then A14=TREZOR, D14=1, D15=1, bold underline between C14-L14 and C15-L15, others A and D empty

-If B14=selected and B15=selected, then A14=TREZOR, A15=-II-, D14=1, D15=1, D16=2, bold underline between C15-L15 and C16-L16, others A and D empty

-If B14=selected and B15=selected and B16=selected, then A14=TREZOR, A15=-II-, A16=-II-, D14=1, D15=1, D16=1, D17=3, bold underline between C16-L16 and C17-L17, others A and D empty

...and so troughout
Thanks

Here are what's shall

JBeaucaire · Jul 1, 2009, 03:07 PM

The formula in D14 is different from the rest of the formulas in D15 down, so don't mix them up.

D15: =IF(B15<>0,1,IF(B14<>0,SUM($D$14:D14),""))

The BOLD LINE thing is being handled with conditional formatting.

Pajoooo · Jul 2, 2009, 05:09 PM

Quote:

Originally Posted by JBeaucaire

The formula in D14 is different from the rest of the formulas in D15 down, so don't mix them up.

D15: =IF(B15<>0,1,IF(B14<>0,SUM($D$1414),""))

The BOLD LINE thing is being handled with conditional formatting.

Thanks,JBeaucaire. That is it... BUT!

SEE PICTURES ABOVE, AGAIN

Can You set conditional formatting WITHOUT red line, AND black line extend to columns K and L.

Thanks in advance!

JBeaucaire · Jul 2, 2009, 07:23 PM

Here you go...

Pajoooo · Jul 12, 2009, 03:59 AM

Hello,
Business trip, sorry

See picture

I can't set red line to black border.
Row 48 MUST BE intact.

Anything else OK.

JBeaucaire · Jul 12, 2009, 07:15 AM

Here you go:

Pajoooo · Jul 15, 2009, 02:20 PM

FOR JBeaucaire, primarily

I now that is to much from me, but I'm enforced to complet this app.

1. Black border between C and L columns in transition between first and second page

2. VBA script for printing. Requirement:

When B14 selected, then print pages 1,2
When B14,B15 selected, then print pages 1,2
When B14,B15,B16 selected, then print pages 1,2,3
When B14,B15,B16,B17 selected, then print pages 1,2,3
When B14,B15,B16,B17,B18 selected, then print pages 1,2,3,4
When B14,B15,B16,B17,B18,B19 selected, then print pages 1,2,3,4
When B14,B15,B16,B17,B18,B19,B20 selected, then print pages 1,2,3,4,5
When B14,B15,B16,B17,B18,B19,B20,B21 selected, then print pages 1,2,3,4,5
When B14,B15,B16,B17,B18,B19,B20,B21,B22 selected, then print pages 1,2,3,4,5,6
When B14,B15,B16,B17,B18,B19,B20,B21,B22,B23 selected, then print pages 1,2,3,4,5,6
When B14,B15,B16,B17,B18,B19,B20,B21,B22,B23,B24 selected, then print pages 1,2,3,4,5,6,7
When B14,B15,B16,B17,B18,B19,B20,B21,B22,B23,B24,B25 selected, then print pages 1,2,3,4,5,6,7

Trigger for print: Print button (Standard Toolbars)

Thanks in advance.

JBeaucaire · Jul 15, 2009, 06:12 PM

Rather than fiddle with cell selection, this will simply ask you how many sheets you want to print.

Code:

Sub PrintMacro()
Dim Cnt As Long

Cnt = Application.InputBox("Print how many sheets? (1-7)", Title:="Print Sheets", Type:=2)
If Cnt = False Or Cnt > 7 Then Exit Sub
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=Cnt, Copies:=1, Collate:=True
End Sub

How to use the macro:

1. Open up your workbook
2. Get into VB Editor (Press Alt+F11)
3. Insert a new module (Insert > Module)
4. Copy and Paste in your code (given above)
5. Get out of VBA (Press Alt+Q)
6. Save your sheet

The macro is installed and ready to use. Press Alt-F8 and select it from the macro list.

Or, insert a Forms Button from the Forms Toolbar, once on the sheet it will popup a list of the macros in your sheet, select the print macro above.

Pajoooo · Jul 16, 2009, 12:14 AM

Thanks, JBeaucaire, this macro is useful for me, but what about "Black border between C and L columns in transition between first and second page"?

Excel formula

Add your answer here.

Check out some similar questions!