Posts by xlite

Re: Dual Axis Chart

hi,

i'd select B2:E9 range,
create chart icon, use the Line or X-Y scatter type,
once the chart is displayed, double-click on the Penetration line,
under Axis tab select secondary axis, OK.

Now select the Store Count line, right click it, select Chart type and
change it to bar type.

hope this helps

Re: Entire Row Selection While Pressing Down Arrow Key

hi,

not sure what you mean, if its keyboard shortcut you can use Shift+Spacebar to
select the entire row of active cell/selection

Re: Add Time (hh:mm)

hi,

if your data is in hh:mm format,
you can directly sum them up together.

if however yr data is in text format or in dd/mm/yy hh:mm format then
its another matter altogether

Re: Secondary Axis Creates Stacked Bar Chart

another option is to differentiate the width of the bars as shown
in Andy's chart example:

http://www.andypope.info/charts/stackedwidth.htm

Re: Secondary Axis Creates Stacked Bar Chart

hi,

when you added a secondary axis to the chart, the series actually overlaps the first one
therefore hiding the first series behind it.

one solution maybe to adjust the scale of the secondary axis.
i changed the max to 10 and both series are shown.

Re: Chart In Macro

i think you left out the aprostophees

With ActiveChart.SeriesCollection(1) 
    .XValues = Worksheets("datasheet").Range("F1", "F" & NextRow) 
    .YValues = Worksheets("datasheet").Range("G1", "G" & NextRow) 
End With 


'place in chartsheet
ActiveChart.Location Where:=xlLocationAsNewSheet

Re: Determining Whether A Graph Is Second Or Third `

Quote from shmee150

Well it would actually quite like to work with lots, but I mean simply 3D in display, not 3D in terms of points plotted, so bar charts mainly, but maybe Pie charts or similar.

hmmm, thats a lot of ground to cover,
but u can try running this code and take down which are 3D charts and do a select case based on that:

For i = ActiveSheet.ChartObjects.Count To 1 Step -1
MsgBox ActiveSheet.ChartObjects(i).Chart.ChartType
Next

Re: Determining Whether A Graph Is Second Or Third `

oops, i misunderstood.

could you specify which 3D chart type/s you're using?

Re: Determining Whether A Graph Is Second Or Third `

hi,

try this one:

For i = ActiveSheet.ChartObjects.Count To 1 Step -1
Select Case i = 3
Case True
    MsgBox ActiveSheet.ChartObjects(i).Name 'yr code here
End Select
Next

Re: Control Internet Explorer And Embedded Application

you can use this code to open:

Workbooks.Open Filename:="http://www.excelstation.com/wmp.xla"

Re: Control Internet Explorer And Embedded Application

hi Ian,

code for item #1 :

Sub ExplorerOpen()
Shell "C:\Program Files\Internet Explorer\IEXPLORE.exe"
End Sub

as for the rest, i haven't figured them out yet.
hope this will be a good start

Re: Replace Cell Text Leaving 1 Word

Quote from Krishnakumar

So you learned something today

yeap definitely something new, thx

Re: Replace Cell Text Leaving 1 Word

hi Kris,

i didn't know Ctrl + H calls the same function
Cool

Re: Replace Complete Line With Specific String In It

hi,

in yr sheet press Ctrl F,
in the Find what type deployment
in the replace with type Deployment

click on Replace All

Re: Delete Old Chart Before New Chart Is Made

anyway, if u really need the vba code,
maybe something like this will work:

For i = ActiveSheet.ChartObjects.Count To 1 Step -1
ActiveSheet.ChartObjects(i).Delete
Next

Re: Delete Old Chart Before New Chart Is Made

hi,

wont it be easier to use the old chart/s and update the data?

Re: Build Chart Time Tracking

hi crombes,

i'd go for yr solution 1 layout as obviously there are more rows than columns (unless you're using Vista).

also, you should enter the dates/times as time and not as text, ie. 16:00 and not 16h00

lastly, i think XY scatter should be a good choice for the overview.

Re: Control Entering E-mail Address

Quote from Dave Hawley

I would have them type the email address twice and compare the 2.

yeap, standard procedure for registering yr emails nowadays

Re: Comparing Length Of Dates & Put The Value To Other Colum

hi sinac,

welcome to Ozgrid.com

place this in col A:
=IF(($D4-MAX($B4:$C4))<=5,1,"")

and this in col B:
=IF(($D5-MAX($B5:$C5))>5,1,"")

pls take note that the formulas doesn't take into account if date1 and/or date2 is bigger than date3

Re: Limit Entry According To Data Type

A bit unorthordox, but it works:

Private Sub CommandButton1_Click()
    Sheet1.Range("G1").Value = dDate
    Sheet1.Range("G2").Value = dNumber
    Sheet1.Range("G3").Value = dText
End Sub
'DATE
'www.ozgrid.com/forum/showthread.php?t=27977
Private Sub TextBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
On Error GoTo dError
    If Mid(TextBox1.Value, 4, 2) > 12 Then
         MsgBox "Invalid date, please re-enter", vbCritical
        TextBox1.Value = vbNullString
        TextBox1.SetFocus
        Exit Sub
    End If
     
    dDate = DateSerial(Year(Date), Month(Date), Day(Date))
    TextBox1.Value = Format(TextBox1.Value, "dd/mm/yyyy")
    dDate = TextBox1.Value
Exit Sub
dError:
MsgBox "Invalid date, please re-enter", vbCritical
Me.TextBox1 = ""
End Sub


'TEXT
Private Sub TextBox2_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
On Error GoTo notNumber
Me.TextBox2.Value = Me.TextBox2.Value * 1
dNumber = Me.TextBox2.Value
Exit Sub
notNumber:
MsgBox "Invalid number, please re-enter", vbCritical
Me.TextBox2 = ""
End Sub
'NUMBER
Private Sub TextBox3_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
On Error GoTo myText
Me.TextBox3.Value = Me.TextBox3.Value * 1


MsgBox "Invalid text, please re-enter", vbCritical
Me.TextBox3 = ""
Exit Sub
myText:
dText = Me.TextBox3.Value
End Sub