Posts by jonny

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

Table Number

A

1

B

4

C

1

D

1

E

3

F

4

G

2

H

2

[/TABLE]
[TABLE="border: 1, cellpadding: 1, width: 500"]

Table Number

1

2

3

4

Number of persons

?

?

?

?

[/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

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

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

Working great!
If I want to copy constantly the rows A1:A16, what's the correct syntax to do that?

Union(Range("A1:A16"), Range(RowCollection)).EntireRow.Copy

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

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?

Private Sub optPlastic_Click()
    RowCollection = RowCollection & "A26" & ","
End Sub
Private Sub optSemi_Click()
    RowCollection = RowCollection & "A26" & "," & "A33" & ","
End Sub

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

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..

How the below code could be replaced into one line where a row number is variable?

Rows("8").EntireRow.Select
    Rows("11").EntireRow.Select
    Rows("14").EntireRow.Select
    Rows("20").EntireRow.Select

Thanks

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

TLV3492AIDCNT

Polo

TPS2031DRG4

Bora

[/TABLE]

Re: Searching partial string

Thanks , but I'm looking for a general solution.
There are thousands rows in the file.