VBA Sum(VLOOKUP)

[FGaxha]

I have a macro to lookup between tow table.
How to I summarize Employee Table1 to Employee Table.

Code as below:

Sub ADDCLM()
On Error Resume Next
Dim Dept_Row As Long
Dim Dept_Clm As Long
Table1 = Sheet1.Range("A3:A13") ' Employee_ID Column from Employee table
Table2 = Sheet1.Range("H3:I13") ' Range of Employee Table 1
Dept_Row = Sheet1.Range("E3").Row ' Change E3 with the cell from where you need to start populating the Department
Dept_Clm = Sheet1.Range("E3").Column
For Each cl In Table1
Sheet1.Cells(Dept_Row, Dept_Clm) = Application.WorksheetFunction.VLookup(cl, Table2, 2, False)
Dept_Row = Dept_Row + 1
Next cl
MsgBox "Done"
End Sub

 

[rlv01]

Begin by explaining what "summarize" means to you. Better yet, post an example of what you mean:

Book1
	A	B	C	D	E	F	G	H
1
2	Employee Table1				Results			Employee Table1
3	algeria				?			miaotse
4	handelian				?			annelism
5	pinkroot				?			hillside
6	chou				?			tchi
7	lupis				?			silex
8	retaught				?			languish
9	undark				?			alids
10	rolando				?			betowered
11	gannet				?			mintweed
12	diplonema				?			clunked
13	eugenols				?			overslur
Sheet6

using this free tool .

Also, you have declared variables Dept_Row and Dept_Clm

Dim Dept_Row As Long
Dim Dept_Clm As Long

Why haven't you done the same thing for variables Table1, Table2, and cl?

One other thing, please try to use 'code tags' to format the code as I have done above

How to Post Your VBA Code

as it makes the code easier to read

 

[FGaxha]

H3:H13 to be summarized in E3 as per lookup id

 

[rlv01]

H3:H13 to be summarized in E3 as per lookup id

So your response to my post is just this one terse sentence that does not answer my question?

 

[FGaxha]

Sorry,

I want to summarize I3: I35 to to E3:E12.
Table1 is multiactivity.
Table2 is Lookup and Static.
Thanks again.