Are there any good websites that discuss good color schemes to use for
spreadsheets?
This board has been very helpful to me...I'm new to coding but have learned a lot by going through the postings
I have looked on this site and many other sources, but I can not find an answer to my question.
My question is...
I have a form that when a check box is true it inverts the screen from a white background with black lettering to a black background with white lettering.
The form would look nicer if I can change the "top ribbon" (where the icons are at) to black instead of the default of blue. I can change the setting manually but I would like form to do it automatically when the box is checked.
The form will have users on Excel 2003,2007,2010.
I would be okay if it only worked on 2007 and 2010 excel
Basically, Check box = true then ribbon color black
Check box = false then ribbon color blue or default
Is this possible using VBA? If, so how would I do it?
Hi.
Im making a excel doc where i can make track of my working hours, and that my sallary is correct.
I want to fill in when i startet at work, and when i ended, and need a function that find how many hours i worked that day. Problem is that when i fill inn:
Start: End Break
0800 1600 0030
Its get messed up by the cell format and stuff, any tips?
Secound problem, i have a tax table, so when my scheme has found out how much i make BEFORE tax, i want it to auto find how much tax i need to pay.. the tax table is type:
If u make 10 000, u have to pay 1300 tax, if u make 11 000, u have to pay 1500 and so on....
Anyone?
I am working with a large workbook (about 20 sheets in all). All sheets have charts (probably 25+ charts in all). For some reason the color scheme has changed. For example, when I click on the font colors, the normal primary colors don't show up. The colors have changed to pastels and various shades of grey. Could I have hit some keys that would make the color scheme change like this? It has messed up all of the colors in my charts and I don't want to go back and manually change the colors in each one.
Is there a way to keep my cells from changing colors as I cut and paste to them? I don't want to have to cut-paste special each time. is there a locking feature?
thanks in advance!
im currently using excel 2003 at work. when you format the charts, you can only select colors from the list. Is there anyway of using other colors other than the one that are preset? im trying to get the charts to look like excel 2007 charts...the colors are so much nicer.
thx!
I'm using a autoformat and the color of the line is too dark. How do I change the colors when I use autoformat?
Thanks
Hi,
I am using the following RangeToHTML mail function (see website, using same code!).
This function basically copies a visible/filtered range to a new sheet then puts it in a mail draft.
My custom colour scheme is lost though, so the email appears hideous. How to fix???
The following code is in the command button :
Private Sub CommandButton1_Click()
' Don't forget to copy the function RangetoHTML in the module.
' Working in Office 2000-2007
Dim rng As Range
Dim OutApp As Object
Dim OutMail As Object
Set rng = Nothing
On Error Resume Next
'Only the visible cells in the selection
Set rng = Sheets("Bond Reconciliation").Range("A1:M" & Application.ActiveSheet.UsedRange.Rows.Count).SpecialCells(xlCellTypeVisible)
Application.StatusBar = Application.ActiveSheet.UsedRange.Rows.Count & " Rows counted"
'You can also use a range if you want
'Set rng = Sheets("Bond Reconciliation").Range("A1:X50").SpecialCells(xlCellTypeVisible)
On Error GoTo 0
If rng Is Nothing Then
MsgBox "The selection is not a range or the sheet is protected" & _
vbNewLine & "please correct and try again.", vbOKOnly
Exit Sub
End If
With Application
.EnableEvents = False
.ScreenUpdating = False
End With
Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
.To = "lmartin@maninvestments.com"
.CC = ""
.BCC = ""
.Subject = "This is the Subject line"
.HTMLBody = RangetoHTML(rng)
.Display 'or use .Send
End With
On Error GoTo 0
With Application
.EnableEvents = True
.ScreenUpdating = True
End With
Set OutMail = Nothing
Set OutApp = Nothing
End Sub
Which then calls this Function
Function RangetoHTML(rng As Range)
' Changed by Ron de Bruin 28-Oct-2006
' Working in Office 2000-2007
Dim FSO As Object
Dim ts As Object
Dim TempFile As String
Dim TempWB As Workbook
TempFile = Environ$("temp") & "/" & Format(Now, "dd-mm-yy h-mm-ss") & ".htm"
'Copy the range and create a new workbook to past the data in
rng.Copy
Set TempWB = Workbooks.Add(1)
With TempWB.Sheets(1)
.Cells(1).PasteSpecial Paste:=8
.Cells(1).PasteSpecial xlPasteValues, , False, False
.Cells(1).PasteSpecial xlPasteFormats, , False, False
.Cells(1).Select
Application.CutCopyMode = False
On Error Resume Next
.DrawingObjects.Visible = True
.DrawingObjects.Delete
On Error GoTo 0
End With
'Publish the sheet to a htm file
With TempWB.PublishObjects.Add( _
SourceType:=xlSourceRange, _
Filename:=TempFile, _
Sheet:=TempWB.Sheets(1).Name, _
Source:=TempWB.Sheets(1).UsedRange.Address, _
HtmlType:=xlHtmlStatic)
.Publish (True)
End With
'Read all data from the htm file into RangetoHTML
Set FSO = CreateObject("Scripting.FileSystemObject")
Set ts = FSO.GetFile(TempFile).OpenAsTextStream(1, -2)
RangetoHTML = ts.ReadAll
ts.Close
RangetoHTML = Replace(RangetoHTML, "align=center x:publishsource=", _
"align=left x:publishsource=")
'Close TempWB
TempWB.Close SaveChanges:=False
'Delete the htm file we used in this function
Kill TempFile
Set ts = Nothing
Set FSO = Nothing
Set TempWB = Nothing
End Function
Hi
I have a pillar diagram whit 6 different values. Value names a
A-MUX, A-MUX(kk), B-MUX, B-MUX(kk)..and so on
I'am trying to do that A-MUX and A-MUX(kk) pillars are closed together. And after that is a little space and B-MUX and B-MUX(kk) pillars are together and so on.
How this should be make?
Hope you understand what I mean=)
