There are several helpful bits of code for this. Place your cursor in a merged cell and ask these questions in the Immidiate Window: Is the activecell a merged cell? ? Activecell.Mergecells True How many cells are merged? ? Activecell.MergeArea.Cells.Count 2 How many columns are merged? ? Activecell.MergeArea.Columns.Count 2 How many rows are merged? ? … Read more
This is my Save Attachments script. You select all the messages that you want the attachments saved from, and it will save a copy there. It also adds text to the message body indicating where the attachment is saved. You could easily change the folder name to include the date, but you would need to … Read more
As you are dealing with a string array, have you considered Join? If Len(Join(FileNamesList)) > 0 Then
My comments on Renaud Bompuis’s answer messed up. Actually, you can use late binding, and the reference to the 11.0 object library is not required. The following code will work without any references: Dim f As Object Set f = Application.FileDialog(3) f.AllowMultiSelect = True f.Show MsgBox “file choosen = ” & f.SelectedItems.Count Note that the … Read more
1.) Check here. Basically do this: Function FileExists(ByVal FileToTest As String) As Boolean FileExists = (Dir(FileToTest) <> “”) End Function I’ll leave it to you to figure out the various error handling needed but these are among the error handling things I’d be considering: Check for an empty string being passed. Check for a string … Read more
here is good link Moves Outlook Mail items to a Sub folder by Email address Option Explicit Public Sub Move_Items() ‘ // Declare your Variables Dim Inbox As Outlook.MAPIFolder Dim SubFolder As Outlook.MAPIFolder Dim olNs As Outlook.NameSpace Dim Item As Object Dim Items As Outlook.Items Dim lngCount As Long On Error GoTo MsgErr ‘ Set … Read more
A parameter like [Forms]![SurveyRegister_frm]![SurveyID] doesn’t get evaluated automatically if you open a recordset in VBA. Use this function: Public Sub Eval_Params(QD As DAO.QueryDef) On Error GoTo Eval_Params_Err Dim par As DAO.Parameter For Each par In QD.Parameters ‘ This is the key line: Eval “evaluates” the form field and gets the value par.Value = Eval(par.Name) Next … Read more
Dim rng As Range Set rng = Selection.Find(What:=email, After:=ActiveCell, LookIn:=xlFormulas, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ False, SearchFormat:=False) If Not rng Is Nothing Then ‘when rng <> nothing means found something’ rng.Activate End IF
VBA editor is not Unicode. In order to have Unicode characters in it, you need to use ChrW$, e.g. Dim Rupee As String Rupee = ChrW$(&h20A8&) Also see Unicode string literals in VBA.
A few tips: Avoid .Select and .Activate as much as possible. Recording macros is a good start to VBA, but the first big step is leaving the “comfort zone” provided by these properties. In the beginning, they’re good, but they’re bound to create problems in the long run. Read up on the following “basic” procedures: … Read more