Posts by rollis13

To save the file in a specific folder (B13=custname) change the line that saves it to:

.SaveAs Filename:=path & custname & "\" & fname, FileFormat:=52

Ps. the custname folder must already exist.

That's what I said, you just have to adapt my suggestion to your data (cell reference).

When you save normally it would be:

Save PathName & FileName

It could be:

PathName is: "C:\Invoices\"

FileName is: "Invoice"(B3), "900"(F5), "Business Name"(B13(merged)C13)

Becomes something like:

Save "C:\Invoices\" & "Business Name"(B13(merged)C13) & "\" & "Invoice"(B3), "900"(F5), "Business Name"(B13(merged)C13)

I would like to point out that this is a completely different problem than the title of this thread.

In these cases, to have even a minimum of visibility in the Forum, I suggest starting a new discussion with a new appropriate title.

Add this line of code, it should be enough to avoid "error 13". If more than one cell is selected, it exits the macro. It also helps if you delete more than one cell at a time.

If Target.CountLarge > 1 Then Exit Sub        '<- added
If Not Intersect(Target, Range("C:C")) Is Nothing Then
'...

Click "Forum" in the menu bar on the top of this page or click "Forum" in the menu bar just under the OzGrid logo.

Thanks for the feedback, glad having been of some help.

Thanks for the positive feedback, glad having been of some help.

Try this in your cell H5 (not sure about international number formats).

=LEFT(Table_0[@Column5],LEN(Table_0[@Column5])-4)*1

or this:

=MID(Table_0[@Column5],1,SEARCH(" ",Table_0[@Column5])-1)*1

Thanks for the positive feedback, glad having been of some help.

Maybe I didn't understand the request, you said: "Message box appears twice using VBA Case" and I got rid of the second message.

You need to add Event Enable = False elsewise your event BeforeClose macro will trigger again when it hits ActiveWorkbook.Close .

ActiveWorkbook.Save 
Application.EnableEvents = False      '<- added 
ActiveWorkbook.Close

Use this instead (note the extra double-quotes that wrap the double-quotes presente inside the original formula code):

Range("K2").Formula = "=IF(ISNUMBER(MATCH(I2,'C1'!$I$2:I$66,0)),"""",""Not Found"")"

Instead of Sheets("Nov2007") use ActiveSheet .

Glad we were able to help.

This would be the syntax for cell C2 in a macro:

Range("C2").NumberFormat = "\""dd/mm/yyyy\"""

but it would be quicker if you manually select the entire column and apply \"gg/mm/aaaa\" as Custom Format to the cells.

Apply this Custom Format \"gg/mm/aaaa\" to your column of dates; could it be a solution for you ?

Logit, at least we gave the same answer (me first ) HERE

Sorry, not for me, one thread one question.

So that means that you need a static range for pasting. No need to use variable 'lr2':

Option Explicit
Sub Filter_Copy_Paste()
    Dim lr1    As Long
    'Dim lr2    As Long
    With Sheets("Market Data")
        lr1 = .Cells(Rows.Count, 1).End(xlUp).Row 'last used row in sheet Market Data
        .AutoFilterMode = False
        .Range("A3:Y" & lr1).AutoFilter Field:=3, Criteria1:="ALBANIA" 'filter range on ALBANIA
        'lr2 = Sheets("Template Data").Cells(Rows.Count, 1).End(xlUp).Row + 1 'first unused row in sheet Template Data
        '.Range("E4:Y" & lr1).SpecialCells(xlCellTypeVisible).Copy Sheets("Template Data").Range("A" & lr2) 'Copy/Paste
        .Range("E4:Y" & lr1).SpecialCells(xlCellTypeVisible).Copy Sheets("Template Data").Range("A20") 'Copy/Paste      '<- changed
        .AutoFilterMode = False
    End With
    Application.CutCopyMode = False
End Sub