Error de ejecución 13 Incompatibilidad de tipo
Resuelto
grace
-
pijaku Mensajes publicados 13513 Fecha de registro Estado Modérateur Última intervención -
pijaku Mensajes publicados 13513 Fecha de registro Estado Modérateur Última intervención -
Hola,
No entiendo por qué tengo un error de ejecución 13: incompatible de tipo, ya que mi código funcionaba muy bien antes... Resalto en negrita la línea donde está el error
Lo que es extraño es que el código funciona correctamente ya que todas las líneas pertinentes se copian y pegan en el resumen! Debe haber un error al final del bucle...(¡creo!)
Gracias de antemano si pueden ayudarme... ¡mi PC terminará por la ventana!!!!
Configuración: Windows 2003 / Internet Explorer 7.0
No entiendo por qué tengo un error de ejecución 13: incompatible de tipo, ya que mi código funcionaba muy bien antes... Resalto en negrita la línea donde está el error
'visualización de las hojas pertinentes y verificación de los campos Sheets("Recap").Visible = True If Cathégories = "" Then MsgBox "Seleccione una categoría de defectos en la lista desplegable" ElseIf défauts = "" Then MsgBox "Seleccione un defecto de calidad en la lista desplegable" Exit Sub End If Dim i As Integer Dim n As Integer n = 3 i = 2 MsgBox "Por favor, espere durante el procesamiento..." Application.Cursor = xlWait 'mostrar el cursor de espera 'Eliminación de datos del resumen Worksheets("Recap").Range("A3:Z1500").ClearContents 'búsqueda de las líneas donde hay defecto y la/s máquina/s elegida 'copiar las líneas y pegarlas en el resumen If défauts <> "" Then n = 3 i = 2 Do While Cells(i, 1) <> "" <bold>If Cells(i, 3) = défauts Then</bold> j = 1 Do While Sheets("Machines").Cells(j, 1) <> "" If Cells(i, 1) = Sheets("Machines").Cells(j, 1) Then Worksheets("2011 (2)").Select Worksheets("2011 (2)").Rows(i).Select Worksheets("2011 (2)").Rows(i).Copy Worksheets("Recap").Select Worksheets("Recap").Rows(n).Select ActiveSheet.Paste n = n + 1 Worksheets("2011 (2)").Select End If j = j + 1 Loop End If i = i + 1 Loop Sheets("Machines").Visible = False 'Ordenar los datos por máquina Worksheets("Recap").Select Range("A2:Z1500").Select Application.CutCopyMode = False Selection.Sort Key1:=Range("A3"), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal End If Application.Cursor = xlDefault 'restablecer el cursor a predeterminado Else Exit Sub End If End Sub Lo que es extraño es que el código funciona correctamente ya que todas las líneas pertinentes se copian y pegan en el resumen! Debe haber un error al final del bucle...(¡creo!)
Gracias de antemano si pueden ayudarme... ¡mi PC terminará por la ventana!!!!
Configuración: Windows 2003 / Internet Explorer 7.0
2 réponses
Hola,
En general, error de ejecución 13: incompatibilidad de tipo se debe a una mala declaración de variable o a un uso incorrecto de esa variable.
Ejemplo:
El código que nos has comunicado más arriba está incompleto.
- ¿Podrías dárnoslo en su totalidad, de Sub Machin() a End Sub?
- ¿Dónde está ubicado? ¿Módulo estándar, Módulo de hoja...?
- ¿Has activado Option Explicit (obligación de declaración de variables)?
--
Atentamente,
Franck P
En general, error de ejecución 13: incompatibilidad de tipo se debe a una mala declaración de variable o a un uso incorrecto de esa variable.
Ejemplo:
Dim MaVar As String MaVar = "Texto" MsgBox CDbl(MaVar)devolverá el error de ejecución 13 mencionado anteriormente.
El código que nos has comunicado más arriba está incompleto.
- ¿Podrías dárnoslo en su totalidad, de Sub Machin() a End Sub?
- ¿Dónde está ubicado? ¿Módulo estándar, Módulo de hoja...?
- ¿Has activado Option Explicit (obligación de declaración de variables)?
--
Atentamente,
Franck P
Gracias por tu comentario...
En realidad, al final encontré la solución yo misma. Resulta que mis celdas tenían un formato estándar mientras que en mi programa las trataba como texto. Así que las cambié todas al formato de celda texto... ¡y ya no hay más errores!
De todas formas, gracias por haberme dado una respuesta.
Grace
¿Puede ayudarme por favor?
Public Sub Essai() Dim i As Integer, DerniereLigne As Integer With Worksheets("Situation 092014 à 012015") DerniereLigne = .Range("A65536").End(xlUp).Row For i = DerniereLigne To 1 Step -1 If .Cells(i, 2) = "" And _ .Cells(i, 3) = "" And _ .Cells(i, 4) = "" And _ .Cells(i, 5) = "" And _ .Cells(i, 6) = "" And _ .Cells(i, 1) <> "Absence" And _ .Cells(i, 1) <> "actividad sindical fuera del lugar de trabajo" And _ .Cells(i, 1) <> "Delegación" And _ .Cells(i, 1) <> "Delegación HC" And _ .Cells(i, 1) <> "otras ausencias " And _ .Cells(i, 1) <> "otras actividades" And _ .Cells(i, 1) <> "Presencia actividad sindical" And _ .Cells(i, 1) <> "" And _ .Cells(i, 1) <> "subtotal" Then .Rows(i).Delete End If 'si una fila del libro no tiene valores en estas columnas será eliminada .. 'Ausencias, presencia de actividad sindical, otras actividades, otras ausencias, los subtotales, y los totales no serán eliminados Next i End With End SubEste mensaje es un duplicado.
Por lo tanto, te responderé en la discusión original.
La continuación aquí: https://forums.commentcamarche.net/forum/affich-31586037-help-erreur-13-incompatibilite-type