Posts by Lectric

Re: spinButton problem

Problem solved.
Found the following code on MrExcel

Private Sub SpinButton1_SpinDown()
If TextBox1 = vbNullString Then
    TextBox1 = "00:00"
Else
    TextBox1.Value = Format(DateAdd("n", -1, TextBox1.Value), "hh:mm")
End If
End Sub




Private Sub SpinButton1_SpinUp()
If TextBox1 = vbNullString Then
    TextBox1 = "00:00"
Else
    TextBox1.Value = Format(DateAdd("n", 1, TextBox1.Value), "hh:mm")
End If
End Sub

Can anyone shed some light on what I might be doing wrong. I have a user form with several fields and I'm trying to use spin buttons where possible to alleviate too much validation. With the code posted below the Date SpinButton works fine but I can't get either of the Time ones to work.

Private Sub SpinButton1_Change()
txtWhen.Value = Format(Date + SpinButton1.Value, "dd-mmm-yy")
End Sub


Private Sub SpinButton2_Change()
txtStart.Value = Format(Time + SpinButton2.Value, "hh:mm")
End Sub


Private Sub SpinButton3_Change()
txtFinish.Value = Format(Time + SpinButton3.Value, "hh:mm")
End Sub


Private Sub UserForm_Initialize()
txtWhen.Value = Format(Date, "dd-mmm-yy")
txtStart.Value = Format(Time, "hh:mm")
txtFinish.Value = Format(Time, "hh:mm")
End Sub

Re: filter with criteria

Legend!
Thank you so much, it works perfectly now.

Re: filter with criteria

Quote from MrRedli;766808

how are copying? is there a VBA code?

It's a workbook I downloaded from Ozgrid modded to use data I already had.
I've included the workbook for you to have a look at.
[ATTACH=CONFIG]68509[/ATTACH]

Evening all,
I have downloaded the workbook with advanced filter with criteria but I'm stuck with one modification.
I have got it to do look ups on my own database in excel but for some reason I can't seem to get it to show
all the relevant rows. I have changed the number of rows it copies from 100 to 500 but it refuses to copy more than 20 records.
Any enlightenment would be much appreciated as apart from this it does everything I need.