Excel Vba Programming

Hi!
i have two workbooks. form one work book column 22 to import another work book column 12 depending upon the company name in work book 2.
here is the code. it does not work. could you correct the code .
my email address is [email protected]


ub MoveSupporttoInv()
Application.ScreenUpdating = False
Dim i As Long
Dim mycompany
Dim contracttype
Dim CONTRACTTYPE1
Dim ORIGINALEXPIRATION
Dim TERMTYPE
Dim NOTICEPERIOD
Dim RENEWALINTERVAL
Dim IMPLEMENTAIONEXCEPTION
Dim CIBCLegalEntity
Dim Contractmanager
Dim businessunit
Dim contractgroup

Windows("License___Support___09_29_05 2 .xls").Activate ''Change to new workbk name
'Sheets("License & support").Activate
For i = Range("a65536").End(xlUp).Row To 5 Step -1

mycompany = Cells(i, 1).Text
contracttype = Cells(i, 6).Text
CIBCLegalEntity = Cells(i, 5).Text
CONTRACTTYPE1 = Cells(i, 7).Text
ORIGINALEXPIRATION = Cells(i, 12).Text
TERMTYPE = Cells(i, 13).Text
NOTICEPERIOD = Cells(i, 14).Text
RENEWALINTERVAL = Cells(i, 15).Text
IMPLEMENTAIONEXCEPTION = Cells(i, 17).Text
Contractmanager = Cells(i, 21).Text
businessunit = Cells(i, 20).Text
Windows("MASTER.xls").Activate ''CHANGE THIS TO NEW WKBOOK
On Error Resume Next
Range("A:A").Cells.Find(What:=mycompany, LookIn:=xlValues, LookAt:=xlWhole).Select
If Err = 91 Then
Windows("License___Support___09_29_05 2 .xls").Activate ''Change to new workbk name
ElseIf mycompany <> "" Then
ActiveCell.Offset(, 12).Value = contractgroup
'ActiveCell.Offset(, 6).Value = CONTRACTTYPE1
'If ActiveCell.Offset(, 8).Text <> CIBCLegalEntity Then
' ActiveCell.Offset(, 8).Value = CIBCLegalEntity
' Else
' ActiveCell.Offset(, 8).Value = CIBCLegalEntity
End If
'ActiveCell.Offset(, 14).Value = ORIGINALEXPIRATION
'ActiveCell.Offset(, 15).Value = TERMTYPE
'ActiveCell.Offset(, 16).Value = NOTICEPERIOD
'ActiveCell.Offset(, 17).Value = RENEWALINTERVAL
' ActiveCell.Offset(, 20).Value = IMPLEMENTAIONEXCEPTION
'ActiveCell.Offset(, 39).Value = Contractmanager
'ActiveCell.Offset(, 40).Value = businessunit
Windows("License & support - 8.17.05").Activate ''Change to new workbk name
'End If
Windows("License___Support___09_29_05 2 .xls").Activate ''Change to new workbk name
Next
End Sub

Why did you start a new post? Your last post about this same problem was just an hour ago and you were getting help from a very
knowledgeable person. Please keep your post for the same issue in the same post until it has been reasonably exhausted. This is kind
of an insult to Bob by just dismissing his attempt to help you and reposting an hour later. If you can't wait your turn then you
should figure out your own answer. Bob was trying to help you, and others might have also if you would have just replied that the
code he gave didn't work. We can't just snap our fingers and solve your problems immediately. Be considerate of those who try to
help you in these forums.

Thank you for your future considerate behavior.
--
RMC,CPA


"kamakshi" <[email protected]> wrote in message
news:[email protected]...

Hi!
i have two workbooks. form one work book column 22 to import another
work book column 12 depending upon the company name in work book 2.
here is the code. it does not work. could you correct the code .
my email address is [email protected]


ub MoveSupporttoInv()
Application.ScreenUpdating = False
Dim i As Long
Dim mycompany
Dim contracttype
Dim CONTRACTTYPE1
Dim ORIGINALEXPIRATION
Dim TERMTYPE
Dim NOTICEPERIOD
Dim RENEWALINTERVAL
Dim IMPLEMENTAIONEXCEPTION
Dim CIBCLegalEntity
Dim Contractmanager
Dim businessunit
Dim contractgroup

Windows("License___Support___09_29_05 2 .xls").Activate ''Change to
new workbk name
'Sheets("License & support").Activate
For i = Range("a65536").End(xlUp).Row To 5 Step -1

mycompany = Cells(i, 1).Text
contracttype = Cells(i, 6).Text
CIBCLegalEntity = Cells(i, 5).Text
CONTRACTTYPE1 = Cells(i, 7).Text
ORIGINALEXPIRATION = Cells(i, 12).Text
TERMTYPE = Cells(i, 13).Text
NOTICEPERIOD = Cells(i, 14).Text
RENEWALINTERVAL = Cells(i, 15).Text
IMPLEMENTAIONEXCEPTION = Cells(i, 17).Text
Contractmanager = Cells(i, 21).Text
businessunit = Cells(i, 20).Text
Windows("MASTER.xls").Activate ''CHANGE THIS TO NEW WKBOOK
On Error Resume Next
Range("A:A").Cells.Find(What:=mycompany, LookIn:=xlValues,
LookAt:=xlWhole).Select
If Err = 91 Then
Windows("License___Support___09_29_05 2 .xls").Activate
''Change to new workbk name
ElseIf mycompany <> "" Then
ActiveCell.Offset(, 12).Value = contractgroup
'ActiveCell.Offset(, 6).Value = CONTRACTTYPE1
'If ActiveCell.Offset(, 8).Text <> CIBCLegalEntity Then
' ActiveCell.Offset(, 8).Value = CIBCLegalEntity
' Else
' ActiveCell.Offset(, 8).Value = CIBCLegalEntity
End If
'ActiveCell.Offset(, 14).Value = ORIGINALEXPIRATION
'ActiveCell.Offset(, 15).Value = TERMTYPE
'ActiveCell.Offset(, 16).Value = NOTICEPERIOD
'ActiveCell.Offset(, 17).Value = RENEWALINTERVAL
' ActiveCell.Offset(, 20).Value = IMPLEMENTAIONEXCEPTION
'ActiveCell.Offset(, 39).Value = Contractmanager
'ActiveCell.Offset(, 40).Value = businessunit
Windows("License & support - 8.17.05").Activate ''Change to
new workbk name
'End If
Windows("License___Support___09_29_05 2 .xls").Activate
''Change to new workbk name
Next
End Sub


--
kamakshi
------------------------------------------------------------------------
kamakshi's Profile: http://www.excelforum.com/member.php...o&userid=27714
View this thread: http://www.excelforum.com/showthread...hreadid=472305