Luego de presionar botón, me aparece "no coiciden los tipos"

hola, ???

... un formulario con combobox... se llenan dependiendo de la informacion... en un rango de celdas
... en excel 2003 de otras maquinas, al momento que presionan el boton
... su objetivo es buscar informacion... de esta bd y traspasarla en la misma hoja pero a otro lugar.
Los datos que se traspasan a otro lugar son formulas pero solo se pasa el valor.
Lo he probado en excel 97, 2000, xp 2002, excel 2003 en mi maquina y en las de mi oficina y no me ocurre el error.
Pero se los envio por correo a quienes me lo solicitaron y les aparece el error. "no coiciden los tipos"...

puedes solicitarles que te informen [+/- exactamente] que dice la linea de codigo donde se origina el error ?
o si en el proyecto de macros [vba] en 'sus' maquinas, en el menu herramientas / referencias...
-> aparece alguna que diga: FALTA: o... MISSING: -?-

saludos,
hector.

Gracias por responder,
Lo que me envian ellos es "Se ha producido el error '13' en tiempo de
ejecución" "no coiciden los tipos".
Es lo único que aparece en la pantalla.
En todo caso estoy tratando de ir donde esta gente y ver en terreno el
error, ya que con esta información poco y nada se me ocurre hacer.
Te envío parte del código

Rem Sub a10generadocto()
Rem '
Rem '
Rem
Rem '
Rem clave = 0
Rem archivo = ActiveWorkbook.Name
Rem Desprotege
Rem Sheets("Cotizador Netsecure").Select
Rem Sheets("Cotizador Netsecure").Copy
Rem ActiveWindow.FreezePanes = False
Rem Windows(archivo).Activate
Rem Range("a24:h90").Select
Rem Selection.Copy
Rem Windows(archivo).ActivateNext
Rem Range("a24").Select
Rem ActiveSheet.Paste
Rem Rows("1:3").Select
Rem Selection.Delete Shift:=xlUp
Rem Columns("I:IV").Select
Rem Selection.Delete Shift:=xlToLeft
Rem Range("d23").Select
Rem cuenta = 0
Rem Do While cuenta < 3
Rem If Mid(ActiveCell.Text, 1, 13) = "Valores Netos" Then
Rem Select Case cuenta
Rem Case 0
Rem ActiveCell.Offset(-2, -3).Select
Rem inicial = ActiveCell.Address
Rem ActiveCell.Offset(1, 7).Select
Rem final = ActiveCell.Address
Rem Range(inicial & ":" & final).Select
Rem Selection.Delete Shift:=xlUp
Rem ActiveCell.Offset(0, 3).Select
Rem cuenta = cuenta + 1
Rem Case 1
Rem ActiveCell.Offset(-2, -3).Select
Rem inicial = ActiveCell.Address
Rem ActiveCell.Offset(1, 7).Select
Rem final = ActiveCell.Address
Rem Range(inicial & ":" & final).Select
Rem Selection.Delete Shift:=xlUp
Rem ActiveCell.Offset(0, 3).Select
Rem cuenta = cuenta + 1
Rem Case 2
Rem ActiveCell.Offset(-2, -3).Select
Rem inicial = ActiveCell.Address
Rem ActiveCell.Offset(1, 7).Select
Rem final = ActiveCell.Address
Rem Range(inicial & ":" & final).Select
Rem Selection.Delete Shift:=xlUp
Rem ActiveCell.Offset(0, 3).Select
Rem cuenta = cuenta + 1
Rem End Select
Rem End If
Rem ActiveCell.Offset(1, 0).Select
Rem Loop
Rem Rows("24:90").EntireRow.AutoFit
Rem Range("A1").Select
Rem ActiveSheet.Name = "Cotización"
Rem Windows(archivo).Activate
Rem Range("a4").Select
Rem Protege
Rem Windows(archivo).ActivateNext
Rem End Sub
Rem

Héctor Miguel wrote:

hola, ???

> ... un formulario con combobox... se llenan dependiendo de la informacion... en un rango de celdas
> ... en excel 2003 de otras maquinas, al momento que presionan el boton
> ... su objetivo es buscar informacion... de esta bd y traspasarla en la misma hoja pero a otro lugar.
> Los datos que se traspasan a otro lugar son formulas pero solo se pasa el valor.
> Lo he probado en excel 97, 2000, xp 2002, excel 2003 en mi maquina y en las de mi oficina y no me ocurre el error.
> Pero se los envio por correo a quienes me lo solicitaron y les aparece el error. "no coiciden los tipos"...

puedes solicitarles que te informen [+/- exactamente] que dice la linea de codigo donde se origina el error ?
o si en el proyecto de macros [vba] en 'sus' maquinas, en el menu herramientas / referencias...
-> aparece alguna que diga: FALTA: o... MISSING: -?-

saludos,
hector.

Mil disculpas por meterme, pero, tu codigo esta asi con esos REM
delante?

Abraham

Lo que pasa es que en la oficina no tengo excel 2003, y por eso tuve
que abrirlo con openoffice para ver el código ya que esta con
contraseña y este lo dejó con Rem al inicio... todo lo que dice rem
en realidad esta sin él.
tks
Abraham wrote:

Mil disculpas por meterme, pero, tu codigo esta asi con esos REM
delante?

Abraham