The following code is giving me a type mismatch error. CL is defined i
DBimportfrm when it is run. The way this works is the Get_click bring
up the listbox and the selection is taken from a row (cl) and transpose
into 3 different columns. i wan't to copy those 3 columns after the
have been modified and paste them back to the row (cl) it came from.

Thanks for looking
JoeH

Public Sub Get_Click()
DBimportfrm.Show

End Sub


Public Sub Save_Click()
'Dim cl As Integer
Beep
MsgBox "This will over write the current information!"
vbExclamation, ""

------- Type mismatch occurs here -------

Wit
Workbooks("TestCalcs_rev22.xls").Worksheets("initi al_information")
.Cells("E30:E88").Copy

Workbooks("bondsdb.xls").Worksheets("sheet1").Colu mns("AB").Rows(cl)
_
PasteSpecial xlPasteAll, Transpose:=True
.Cells("F30:F88").Copy

Workbooks("bondsdb.xls").Worksheets("sheet1").Colu mns("CJ").Rows(cl)
_
PasteSpecial xlPasteAll, Transpose:=True
.Cells("H30:H88").Copy

Workbooks("bondsdb.xls").Worksheets("sheet1").Colu mns("ER").Rows(cl)
_
PasteSpecial xlPasteAll, Transpose:=True
End With

End Su

--
Joe
-----------------------------------------------------------------------
JoeH's Profile: http://www.excelforum.com/member.php...fo&userid=1413
View this thread: http://www.excelforum.com/showthread.php?threadid=26346

Change CELLS to RANGE

--
Regards,
Tom Ogilvy

"JoeH" wrote in message
...

The following code is giving me a type mismatch error. CL is defined in
DBimportfrm when it is run. The way this works is the Get_click brings
up the listbox and the selection is taken from a row (cl) and transposed
into 3 different columns. i wan't to copy those 3 columns after they
have been modified and paste them back to the row (cl) it came from.

Thanks for looking
JoeH

Public Sub Get_Click()
DBimportfrm.Show

End Sub


Public Sub Save_Click()
'Dim cl As Integer
Beep
MsgBox "This will over write the current information!",
vbExclamation, ""

------- Type mismatch occurs here -------

With
Workbooks("TestCalcs_rev22.xls").Worksheets("initi al_information")
Cells("E30:E88").Copy

Workbooks("bondsdb.xls").Worksheets("sheet1").Colu mns("AB").Rows(cl).
_
PasteSpecial xlPasteAll, Transpose:=True
Cells("F30:F88").Copy

Workbooks("bondsdb.xls").Worksheets("sheet1").Colu mns("CJ").Rows(cl).
_
PasteSpecial xlPasteAll, Transpose:=True
Cells("H30:H88").Copy

Workbooks("bondsdb.xls").Worksheets("sheet1").Colu mns("ER").Rows(cl).
_
PasteSpecial xlPasteAll, Transpose:=True
End With

End Sub


--
JoeH
------------------------------------------------------------------------
JoeH's Profile:
http://www.excelforum.com/member.php...o&userid=14138
View this thread: http://www.excelforum.com/showthread...hreadid=263468