To create new colors put the codes in Columns (A),(B), and (C) then click the make colors button. For example, put in 0,0,0 and run and it will make the cell black
Posts by johndrew982
-
-
I am wanting to place a blank row every other row in the color chart attached and make them white with a width of 15. I tried to inserted rows but the program converts the blanks and makes the cell color black.OZGRID MAKE COLOR CHART.xlsm
-
I need to insert Columns every other Column starting with Column " F" and go to Column "O" (ten columns) Need the column width to be 2.
-
Thanks Roy. Obviously you are light years ahead of everyone with your vast knowledge of Excel and VBA. Your Website is awesome!
-
It works but when I add to active x control it adds
Private Sub CommandButton1_Click()
End Sub
to the macro and will not work with the control button. I can go back and run the macro by itself and it works. How do I keep it from adding the Private Sub CommandButton?
-
I am wanting to have columns "A", "B" and "C" (RGB) values converted into hex codes and fill "E" with the associated color of the hex code. Therefore when I change the RGB numbers I can see what color it is. This will allow me to print a color chart of the ones the cheerleaders use or would like to use. This would be for 20 rows....OZGRID COLORS.xlsx on their shirts. rows.
-
The stock data I have comes in row format. I need a Macro to transpose it so it is in Column format. The data always starts at A3 and I take the next 11 rows. Then I transpose it to Sheet 2 starting on Row 2. Row 1 are the Headings. Then I need the macro to return to Sheet 1, add 13 to the last row number used and repeat: copy and transpose to the next row in Sheet 2. Continue until it reaches a blank in column A. Ozgrid Transpose Stock Data.xlsx
-
Here is the code I used. I changed the To: addy to [email protected]. When I dubug it has .SEND hilighted in yellow.
Code
Display MoreSub CDO_Mail_Small_Text() Dim iMsg As Object Dim iConf As Object Dim strbody As String Dim Flds As Variant Set iMsg = CreateObject("CDO.Message") Set iConf = CreateObject("CDO.Configuration") ' iConf.Load -1 ' CDO Source Defaults ' Set Flds = iConf.Fields ' With Flds ' .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 ' .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "Fill in your SMTP server here" ' .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 ' .Update ' End With strbody = "Hi there" & vbNewLine & vbNewLine & _ "This is line 1" & vbNewLine & _ "This is line 2" & vbNewLine & _ "This is line 3" & vbNewLine & _ "This is line 4" With iMsg Set .Configuration = iConf .To = "[email protected]" .CC = "" .BCC = "" .From = [attach='1232706'][/attach][attach='1232706'][/attach][attach='1232706'][/attach][attach='1232706'][/attach][attach='1232706'][/attach] .Subject = "Important message" .TextBody = strbody .Send End With Set iMsg = Nothing Set iConf = Nothing Set Flds = Nothing End Sub -
I only changed the email address to mine. Now I get send using configuration value is invalid. It highlights .send in yellow.
Code
Display MoreSub CDO_Mail_Small_Text() Dim iMsg As Object Dim iConf As Object Dim strbody As String Dim Flds As Variant Set iMsg = CreateObject("CDO.Message") Set iConf = CreateObject("CDO.Configuration") ' iConf.Load -1 ' CDO Source Defaults ' Set Flds = iConf.Fields ' With Flds ' .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 ' .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "Fill in your SMTP server here" ' .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 ' .Update ' End With strbody = "Hi there" & vbNewLine & vbNewLine & _ "This is line 1" & vbNewLine & _ "This is line 2" & vbNewLine & _ "This is line 3" & vbNewLine & _ "This is line 4" With iMsg Set .Configuration = iConf .To = "[email protected]" .CC = "" .BCC = "" .From = """John"" <[email='[email protected]'][/email]>" .Subject = "Important message" .TextBody = strbody .Send End With Set iMsg = Nothing Set iConf = Nothing Set Flds = Nothing End Sub -
I am wanting to send Excel sheet 1 by Email (Gmail) . Address is in A1, Copy Address is in A2, Subject is A3. I am using Excel 2016. Thanks.