Posts by stevehorton09

    sorry i was supposed to attach that too!

    Private Function GetAttach() As String
    Dim strFileFullPath As String

    strFileFullPath = Application.GetOpenFilename("Xl Files (*.xls), *.xls")
    If strFileFullPath = "False" Then Exit Function
    GetAttach = strFileFullPath

    End Function


    Hi everyone,

    I have a form that attaches files to emails out of a specific folder.

    My problem is i can only select one file from the folder and i need to attach more than one.

    Does a0nyone know how to allow multiple attachments, i have tried "ctrl" and clicking on more than one but no joy and "shift" and the arrow keys.

    Any ideas on this?

    Here is my code

    Hi there,

    I am running excel 2003 and i tried to run this code on excel 97 and it would not work. Does anyone know why? The compiler highlights Range and Replace.

    Any ideas???

    ActiveWorkbook.SaveAs Filename:="C:\sch\" & Range("b10") & "_" & Range("b11") & "_" & Replace(Date, "/", "-") & "_" & Replace(Format(Time, "HH:MM AM/PM"), ":", "-") & ".xls", FileFormat:=xlNormal, _
    Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _

    Think im getting worse at this......

    I want to be able to write in a cell 1min 30sec i.e i would enter 1.3. and it would understand that was 1min 30secs.

    Is this a format option ( i doubt it) or as i expect a formula!

    Help would be greeeeaaaat

    thanks for that, do you know how to hide the letters

    so for example i enter 1m and it should just show the 1 with the colour.

    i.e o = yellow, so i enter 1o, it changes the cell to yellow but the o disappears(changes to yellow, maybe thats what it should do?) so the final outcome is the cell shows 1 and is yellow!

    Hi Everyone,

    Someone yesterday kindly helped with a scenario where if i entered 1 in a cell it would turn yellow.

    Is there a way that if i entered 1m for example it would turn yellow?
    My current code is this:

    Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.Count = 1 Then
    Select Case Target
    Case 1
    Target.Interior.ColorIndex = 6
    Case 2
    Target.Interior.ColorIndex = 41
    Case Else
    Target.Interior.ColorIndex = xlNone
    End Select
    End If
    End Sub

    Hi everyone,

    Is it possible in a vba form to limit what type of character can be inputed in a combo box.

    I want it to limited to just numbers

    I have looked through the properties but seem to be blind!!

    Thanks in advance


    OK i have got this working but i have to enter the full path, is it not possible to put part of the file name in?

    i.e file location is c:\sch\test1_tue.xls

    If i was to make this look in this folder c:\sch\

    is it possible if i just typed in test1 that it would return the excel sheet test1_tue??

    Hi Roy,

    Is it possible to use the code to look in a specific cell for part of the saved worksheet name when i have defined what directory to look in?

    Im not sure if im understanding the code properly but this is what im trying to get to.

    Example:- file im looking for in directory C:\sch is called 5555.

    On the find spreadsheet i want it to look in cell a1 (for example), in which i have typed that file name 5555 and then by a click of a button it opens that spreadsheet?