User Profile
Sameer_Kuppanath_Sultan
Brass Contributor
Joined 6 years ago
User Widgets
Recent Discussions
Excel Personal VBA to change to other Laptop
Hi All Please guide me on below. I have some set of Personal VBA using in Excel in My PC. I am going to change my PC, in which I need Same Macros available in my Excel as shown below, instead customizing the ribbon again in new PC excel. Can we create an Add Ins ? How to create it?Re: Need to Highlight the range of Dates (Week) where today date is fallen
NikolinoDE Please See below table, today date 13-05-2022, which is fallen between 10-05-2022 to 16-05-2022 range in week 2 (Circled). What I need is a conditional formatting (Green), whenever the date fallen between range of dates. (Weeks).Lead Letter to be come when typing (Searchable Drop Down List)
Hi Every One I have table A and Table B with me. Table B is master list of items with prices. In Table A I need to put input item name, for that it will be difficult to enter full name every time from Table B. So that I need to use a data validation trick to enter the data. What I need is, whenever we enter first letter, in searchable area, suggested list of items from Table should appear. The Data entry man can choose the item to proceed. Is there any VBA of formula for this????Downloading Attachment from outlook by using VBA in excel based on time of sent
Hi I have the below vba code for "downloading mail attachment based on sender name". Some time the sender will send multiple files in a day itslelf, but I want to download first file he sent to me using the vba. (Based on time of Sending) What changes to be done in the code in this case. Sub DATA() Dim ol As Object 'Outlook.Application Dim ns As Object 'Outlook.Namespace Dim fol As Object 'Outlook.Folder Dim i As Object Dim mi As Object 'Outlook.MailItem Dim at As Object 'Outlook.Attachment Dim fso As Object 'Scripting.FileSystemObject Dim dir As Object 'Scripting.Folder Dim dirName As String Dim oFSO As Object Dim oFolder As Object Dim oFile As Object Dim f As Integer ' change 1 Dim inboxFol As Object 'Outlook.Folder Dim subFol As Object 'Outlook.Folder 'Some Set Ups Set fso = CreateObject(Class:="Scripting.FileSystemObject") Set ol = CreateObject(Class:="Outlook.Application") Set ns = ol.GetNamespace("MAPI") ' change 2 Set inboxFol = ns.GetDefaultFolder(6) 'olFolderInbox Set subFol = inboxFol.Folders("Operation") 'Finding the search item from Oulook Inbox For Each i In inboxFol.Items If i.Class = 43 Then Set mi = i If mi.Attachments.Count > 0 And InStr(mi.SenderName, "Ahmed") Then dirName = "C:\Work Area" If fso.FolderExists(dirName) Then Set dir = fso.GetFolder(dirName) Else Set dir = fso.Createfolder(dirName) End If 'Saving Attachment to a folder For Each at In mi.Attachments If Right(at.Filename, 4) = "xlsm" Then at.SaveAsFile dir.Path & "\" & "Daily Work Data.xlsm" End If Next at ' change 4 mi.UnRead = False mi.Move subFol End If End If Next i 'Setting Folder Set oFSO = CreateObject("Scripting.FileSystemObject") Set oFolder = oFSO.GetFolder("C:\Work Area") CreateObject("shell.application").Open ("C:\Work Area\Daily Work data.xlsm") End Sub
