Thanks,
This helps if comes one person only, however I'm managing a row of the entire family.
Instead of counting I wish to sum "number of persons" data that located in "C" column. What's the right syntax of that?
Something with "offset", I assume?
Thanks,
This helps if comes one person only, however I'm managing a row of the entire family.
Instead of counting I wish to sum "number of persons" data that located in "C" column. What's the right syntax of that?
Something with "offset", I assume?
Hi Guys,
I've upcoming event and the list of guests:
What I'm trying is to build a function that summarizing number of person per each table.. Please your kind help with that.
[TABLE="border: 1, cellpadding: 1, width: 500"]
Guest Name
[/td]Table Number
[/td]A
[/td]1
[/td]B
[/td]4
[/td]C
[/td]1
[/td]D
[/td]1
[/td]E
[/td]3
[/td]F
[/td]4
[/td]G
[/td]2
[/td]H
[/td]2
[/td]
[/TABLE]
[TABLE="border: 1, cellpadding: 1, width: 500"]
Table Number
[/td]1
[/td]2
[/td]3
[/td]4
[/td]Number of persons
[/td]?
[/td]?
[/td]?
[/td]?
[/td]
[/TABLE]
I have a code that moves one chart from Excel to Powerpoint. May someone help to modify it so that it will move all charts within the active worksheet to Powerpoint?
Private Sub MovingChartsFromExcelToPPT()
Dim PowerPointApp As Object
Dim myPresentation As Object
Dim mySlide As Object
Dim myShape As Object
If ActiveChart Is Nothing Then
MsgBox "Hey, please select a chart first."
Exit Sub
End If
If PowerPointApp Is Nothing Then _
Set PowerPointApp = CreateObject(Class:="PowerPoint.Application")
On Error GoTo 0
Application.ScreenUpdating = False
Set myPresentation = PowerPointApp.Presentations.Add
Set mySlide = myPresentation.Slides.Add(1, 11) '11 = ppLayoutTitleOnly
ActiveChart.ChartArea.Copy
mySlide.Shapes.Paste
Set myShape = mySlide.Shapes(mySlide.Shapes.count)
myShape.Left = 200
myShape.Top = 200
PowerPointApp.Visible = True
PowerPointApp.Activate
Application.CutCopyMode = False
End Sub
Display More
Thanks
The below code is creating an email with the list of tasks, the only issue i that each row is starting with task category.
Please your kind help to modify the code , so I can see the task category and below it the tasks.
Public Sub CreatingReportFromTasks()
Dim objTask As Outlook.TaskItem
Dim objTaskFolder As Outlook.MAPIFolder
Dim objTaskItems As Outlook.Items
Dim objNS As Outlook.NameSpace
Set objNS = Application.GetNamespace("MAPI")
Set objTaskFolder = objNS.GetDefaultFolder(olFolderTasks)
Set objTaskItems = objTaskFolder.Items
Dim strBody As String
MyCategory = ""
strBody = ""
strCategory = ""
For Each objTask In objTaskItems
If objTask.Status <> olTaskComplete And (objTask.Categories = "1" Or objTask.Categories = "2" Or objTask.Categories = "3" Or objTask.Categories = "4") Then
If objTask.Categories <> MyCategory Then
MyCategory = objTask.Categories
End If
strBody = strBody & " " & MyCategory & ":" & objTask.Subject & vbNewLine ' & strbody
End If
Next
Dim objMsg As MailItem
Set objMsg = Application.CreateItem(olMailItem)
With objMsg
.To = ""
.Body = strBody
'.Display
End With
Debug.Print strBody
Set objTask = Nothing
Set objTaskItems = Nothing
Set objTaskFolder = Nothing
Set objNS = Nothing
Set objMsg = Nothing
End Sub
Display More
Re: Creating Contacts From Incoming Emails (USD $20.00)
The only issue could be is to extract sender title, but I don't see a problem to extract the below :
1. Company name - could be extracted from the sender email.
2. Sender name first and last - could be extracted from the sender email.
3. Sender email - could be extracted from the sender email.
4. Phone number - could be extracted from the email body.
5. Company website - could be extracted from the email body.
Re: Creating Contacts From Incoming Emails (USD $20.00)
Unfortunately there no common pattern, the purpose is to have some code based on reg.exp. Something similar to algorithm of business card scanning applications.
Re: Creating Contacts From Incoming Emails (USD $2.00)
Guys - please offer your price for this project.
I want to have a code that scans incoming e-mails (and retroactively all inbox) and creates a contact from the auto signature.
See the screenshot as an example:
[ATTACH=CONFIG]69200[/ATTACH]
Re: Selecting multiple rows
The code is very simple, a user form with two option buttons. After both buttons are being pressed, two rows should be copied into a new workbook.
Global RowCollection As String
Private Sub optPlastic_Click()
RowCollection = RowCollection & "A26" & ","
End Sub
Private Sub optSemi_Click()
RowCollection = RowCollection & "A26" & "," & "A33" & ","
End Sub
RowCollection = Left(RowCollection, Len(RowCollection) - 1)
' Union(Range("A1:A16"), Range(RowCollection)).EntireRow.Copy - is that the correct syntax to append the rows A1:A16 to the copied rows?
Range(RowCollection).EntireRow.Copy
Workbooks.Add
ActiveSheet.Paste
Display More
Re: Selecting multiple rows
When I trying to copy a range , I'm getting an error : "That Command Cannot Be Used on Multiple Selections". How could be copied the unique rows only?
Re: Selecting multiple rows
Skywriter, you are BIG!!
Much appreciate your help, this works smoothly!
Thank you!
Re: Selecting multiple rows
1. I have a userform with the groups of OptionButtons
2. Pressing each OptionButton appends predefined row numbers into global variable, called : RowCollection
3. Once I press a button "Copy" the row numbers stored in RowCollection should be copies to the new workbook.
RowCollection = ""
Private Sub optTest_Click()
RowCollection = RowCollection & "|" & "2" & "|" & "3" & "|" & "4" & "|" & "5" & "|" & "6" & "|" & "14" & "|" & "27" & "|" & "29" & "|" & "30" & "|" & "31" & "|" & "34" & "|" & "35" & "|" & "36" & "|" & "37"
End Sub
Private Sub optTH_Click()
RowCollection = RowCollection & "|" & "25" & "|" & "29" & "|" & "34"
End Sub
Display More
As a delimiter I've set "|" , but it certainly could be changed (or entire concept could be changed).
Re: Selecting multiple rows
I'm actually have to run thru the RowCollection array, to append the rows into the range and then copy them into new workbook.
Here is a kind of psevdocode:
For Each MyStr In Split(RowCollection, "|")
If MyStr <> "" Then
RowsToCopy = rows(MyStr).EntireRow ==> New Workbook
End If
Next MyStr
Will much appreciate your help..
Re: Creating Contacts From Incoming Emails (USD $2.00)
I want to have a code that doing the mentioned task. All that for 20$ (2$ is 10% of the budget).
Required to scanning thousands of email in Outlook inbox and the subfolders. From each email to retrieve the sender details and add into the contact list (only out of corporate senders).
For those senders who have auto signature , need to extract the data as phone# , company , e.t.s into relevant contact fields. The purpose is to have a contact list with full contacts data.
Once all this done , the script should run in background for all new incoming emails.
I want to get a VB code as well.
Thanks
Re: Searching partial string
The string I want to search for may appears in different positions
Re: Searching partial string
Sorry for confusing, the logic as following:
Need to search full string from "Code" column within the column "PN". Once it's found, to get the associated "Model".
Thanks
Re: Searching partial string
Three rows given only for a reference. The original file is huge with a thousand of rows.
I would prefer to have a function , equivalent to VlookUp. So finally I will get :
[TABLE="width: 233"]
PN
Model
SN74LVC1G08DCKR
Golf
[/td]TLV3492AIDCNT
Polo
[/td]TPS2031DRG4
Bora
[/td]
[/TABLE]
Re: Searching partial string
Thanks , but I'm looking for a general solution.
There are thousands rows in the file.