Hi Everyone,
I am Kynthia Melissa, a very new member to this forum. I have a special interest in Computer software packages.My approach is to enable the visualisation of complex data in a simple way.I found this forum very informative and I am really very excited here to take part in discussions. Hope you will contribute your ideas and support me in my mission.
Thanks & Regards
Kynthia Melissa
Hi Everyone,
I am Kynthia Melissa, a very new member to this forum. I have a special interest in Computer software packages.My approach is to enable the visualisation of complex data in a simple way.I found this forum very informative and I am really very excited here to take part in discussions. Hope you will contribute your ideas and support me in my mission.
Thanks & Regards
Kynthia Melissa
I have a user who somehow managed to have excel display a box below the subject line labeled 'Introduction:'. This box is below subject and above the formula line. Does anyone know how to remove it? I am stumped
Hello Forum,
This is Krish, I am new to this forum.I am having some doubts in VBA. how to address those in this forum. can any one please help me ?
regards
Krish
Hello All!!!
You have put together a very nice forum here. Certainly the result of a good community.
So on behalf of all the wannabe VBA coders, THANKS!!!
I'm currently learning VBA. I'm good with basic code but now want to take it to the next level: Designing ROBUST (unbreakable) utilities for the engineers I work with.
So here I am!!!
Attached is the latest utility I created but it has a number of issues:
1) Placing "X" in plot row does not seem to be intuitive for most of the engineers, I'm planning on replacing it with check boxes or depress-able buttons.
2) To hold the plot format/layout; I have a white line so that when no data is plotted, the chart remains. Thus, starting the data at serriescollection(2). I would like to go to a cleaner solution where the macro generates the entire chart, on a new sheet (named according to chart title), with the format/layout as shown generated with code.
3) If you delete the chart key, it will crash the macro when run again...... should be solved with issue #2
4) I want to macro to consolidate key titles; if there are multiple insistence of the same legendentry() --> consolidate to one.
Any help or reference to examples would be greatly appreciated. I want to take on issue #2 first.
Feel free to clean up any sloppy or in-efficient code and post up your revision. Add lots of notes in the code for the beginners =-)
I hope to be a strong member of the forum and plan to contribute lots of examples code similar to this file ;-)
With the help of the experienced members on the forum, these can become very nice examples beginners can easily learn from.
Peace Out,
-Aaron
Searchability: plot data, color lines based on text color, plot data based on cell marker
I have decided it is about time I learnt to use VBA properly. Can anyone point to a good introductory guide? Either online, or a book.
Thanks
Bert
Hi all. I have a sub which pastes an xl selection to word and then calls an email dialog with the word doc as attachment. This is fine but I would like to code into this an introduction tp the email. Any ideas?
This is my code:
Option Explicit
Sub PasteToWord()
Dim AppWord As Word.Application
Set AppWord = CreateObject("Word.Application")
AppWord.Visible = False
Application.ScreenUpdating = False
Sheets("GOQ-R").Range("A1:I275").Copy
AppWord.Documents.Add
AppWord.Selection.Paste
Application.CutCopyMode = False
AppWord.ActiveDocument.SendMail
AppWord.ActiveDocument.Close SaveChanges:=False
Application.ScreenUpdating = True
Exit Sub
Set AppWord = Nothing
End Sub
Greetings All:
Any suggestions / links where I could find some basic to maybe intermediate tutorials for Pivot tables? It is a weakness in my Excel repertoire I would like to improve.
THANK YOU.
Hi,
I've made an Introduction to SQL tutorial aimed at Excel users.
I would love to hear feedback on how to improve the tutorial, especially
if you are an Excel user without much existing SQL knowledge.
http://www.querycell.com/SQLIntro.html
Cheers
Sam H
I am currently using Ron de Bruin's email function with great success. I will post the code below I am referencing. I am using this to send an email to every email address listed in the worksheet. I was hoping that someone could take a look at this and figure out how and where to add an "Introduction" to the email that gets sent. I have tried multiple tips on his website, but none seem to work. I may just not be seeing where to add the Intro. Even if it's not like Word's Introduction when you send an email from Word, it will be okay if the Intro created here is just added above the range of cells in the email. I hope this makes sense. Thanks!
Sub Send_Row()
' Don't forget to copy the function RangetoHTML in the module.
' Working in Office 2000-2007
Dim OutApp As Object
Dim OutMail As Object
Dim cell As Range
Dim rng As Range
Dim Ash As Worksheet
Set Ash = ActiveSheet
On Error GoTo cleanup
Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
With Application
.EnableEvents = False
.ScreenUpdating = False
End With
For Each cell In Ash.Columns("B").Cells.SpecialCells(xlCellTypeConstants)
If cell.Value Like "?*@?*.?*" And LCase(cell.Offset(0, 1).Value) = "yes" Then
Ash.Range("A1:J100").AutoFilter Field:=2, Criteria1:=cell.Value
With Ash.AutoFilter.Range
On Error Resume Next
Set rng = .SpecialCells(xlCellTypeVisible)
On Error GoTo 0
End With
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
.To = cell.Value
.Subject = "Grades Aug"
.HTMLBody = RangetoHTML(rng)
.Send 'Or use Display
End With
On Error GoTo 0
Set OutMail = Nothing
Ash.AutoFilterMode = False
End If
Next cell
cleanup:
Set OutApp = Nothing
With Application
.EnableEvents = True
.ScreenUpdating = True
End With
End Sub
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
