Posts by xlite

Re: Formula Entry Into Chart Title

Quote from rdkalinowsky

by creating the string in a cell first, then referencing it in the chart title...hmmm.

thats what i always do as the chart refers to a static cell which in turn refers to(concatenate to) another cell that is variable

Re: Default Addin Location?

Quote from mtlay

No (not the .xla). Should I be able to see it? I still have the .xls, but the addin (.xla) should be off in the background somewhere, without the .xls being open, correct?

no menu in the add-in?
then how do you access the macro?

Re: Default Addin Location?

does your add in have any reference to itself?
that means does it refer to a cell within its sheets?

maybe if you elaborat on how the add in works or for what purpose we'd find more clues:p

Re: Formula Entry Into Chart Title

Quote from rdkalinowsky

to allow the user to enter a new value in Sheet1!A5 and have all of the charts update dynamically without re-executing the macro.

hi,

do you need a macro in the first place?
coz you don't need a macro to link a chart title to a cel

simply select chart title, click formula bar and type "=" and select the cell
you want the title to reflect to.

anytime the cell change, so does the title.

you should do the concatenating in the cell first

hope this helps

Re: Place Data By Two Corresponding Cells

hi Nathan,

try to adapt the attached file to yr code.

hope this helps

Re: Selecting Range Based On Date

try this:

Sub getWeek()
Dim oDate, sDate As Date, eDate As Date
Dim cell As Range, sFound As Range, eFound As Range


On Error GoTo None
oDate = ThisWorkbook.Sheets(1).Range("A2")
sDate = oDate + (2 - Weekday(oDate))
eDate = oDate + (8 - Weekday(oDate))


ThisWorkbook.Sheets(2).Activate


For Each cell In ThisWorkbook.Sheets(2).Range("A2", Range("A65536").End(xlUp))
If cell = sDate Then
Set sFound = cell
End If
If cell = eDate Then
Set eFound = cell
End If
Next


Range(sFound, eFound).Select
Exit Sub
None:
MsgBox "Date not found"
End Sub

hope this helps

Re: Stock Chart With Trend Line

hi mike,

if by trendline you mean a whole new set of data then try:

1. create stock chart as normal.
2. create a line/xy scatter chart.

now we have 2 different charts.

3. select stock chart, copy and paste into the line chart.

the line chart becomes stock chart.

4. right click the line data series (that was converted into stock), choose Chart Type and convert it into line again.

hope this helps

Re: Automatically Run Macro When A Sheet Becomes Active

hi CDT,

right click the sheet tab at the bottom, choose view code
and place this macro :

Private Sub Worksheet_Activate()
MsgBox "Hello" 'place macro here
End Sub

hope this helps

Re: Coloring Macro

have you tried conditional formatting?

Re: Userform_initialize - Reseting A Form

hi,

have you tried something like:

frmCheckTwinSku.lbTwinSku.clear

to reset?

and if you need the list back just use additem again

Re: Multiple Format For Single Cell

i must be missing something here,
couldnt you just use the custom format: #,##0.00 ?

Re: Get Exclamation Mark Icon And Sound For A Userform

i forgot about this solution i posted on my own website :p

In any sheet , Go to Insert > Object > Create from file and Browse the sound file, OK.

In the Userform initialize
module place the following code:

Private Sub UserForm_Initialize()
Sheets(1).Shapes("Object 1").Select
Selection.Verb Verb:=xlPrimary
End Sub

Re: Sheet1 And Sheet2 Has The Same Delete/insert Behavior

the easiest code i can think of would be to place this in the sheet1 module:

Private Sub Worksheet_Activate()
Sheets(Array("Sheet1", "Sheet2")).Select
End Sub

hope this helps

Re: Sheet1 And Sheet2 Has The Same Delete/insert Behavior

press Shift while selecting the sheet tabs,
delete the cells.

also works for filling in cells

hope this helps

Re: Retain Text Settings In Csv Format

convert from excel to csv (comma delimited)?

when you convert into a txt file only the very basic formatting is retained,

therefore other rich formats are lost.

here's some infor from the help file:
[SIZE="1"]The CSV (*.csv) file format saves only the text and values as they are displayed in cells of the active worksheet. All rows and all characters in each cell are saved. Columns of data are separated by commas, and each row of data ends in a carriage return. If a cell contains a comma, the cell contents are enclosed in double quotation marks.

If cells display formulas instead of formula values, the formulas are converted as text. [COLOR="Blue"]All formatting, graphics, objects, and other worksheet contents are lost.[/COLOR] The euro symbol will be converted to a question mark.

Note If your workbook contains special font characters such as a copyright symbol (©), and you will be using the converted text file on a computer with a different operating system, save the workbook in the text file format appropriate for that system. For example, if you are using Windows and want to use the text file on a Macintosh computer, save the file in the CSV (Macintosh) format. If you are using a Macintosh computer and want to use the text file on a system running Windows or Windows NT, save the file in the CSV (Windows) format.[/SIZE]

Re: No Macro But Dialog Still Appear

could it be there's some macro in the sheets module?
or in thisworkbook module?

Re: Get Exclamation Mark Icon And Sound For A Userform

ok, for sound,

you can check out this solution by JWalk:
http://www.j-walk.com/ss/excel/tips/tip59.htm

as for the icon on the userform,
you can use the image control and browse the Picture under the Image Properties.

if you need the exact picture from the built-in msgbox,
simply PrinScreen the msgbox and save the picture using an image editor.

Re: Get Exclamation Mark Icon And Sound For A Userform

hi Richard,

for the exclamation icon:

MsgBox "Hello", vbExclamation, "ABC"

as for the beep sound, you can change that in the Control Panel, Sounds and Audio Properties.
I'd turn the sounds off and use speech instead:

Application.Speech.Speak "ding"

Re: Hot To Load Text In Userform

hi patrik,

try this:

Private Sub CommandButton1_Click()
Me.Label1.Caption = ThisWorkbook.Sheets(1).Range("A1")
End Sub

hope this helps

Re: Run Macro For Specific Workbook In Background

hi tgit,

do you mean you are working on other workbooks while at the same time
running a macro to update another workbook?

if so i believe there will be a conflict:confused: