elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Únete al Grupo Steam elhacker.NET


+  Foro de elhacker.net
|-+  Foros Generales
| |-+  Dudas Generales (Moderador: engel lex)
| | |-+  [VBA]Error definido por la aplicación o definido por el objeto Al Usar Cells()
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: [VBA]Error definido por la aplicación o definido por el objeto Al Usar Cells()  (Leído 2,878 veces)
Mastodonte

Desconectado Desconectado

Mensajes: 18



Ver Perfil
[VBA]Error definido por la aplicación o definido por el objeto Al Usar Cells()
« en: 22 Octubre 2017, 22:56 pm »

Hola, estoy haciendo un registro de inventario en excel, pero cuando habró el formulario y lo lleno todo los campos al darle al boton guardar me lanza este error "Error definido por la aplicación o definido por el objeto" y no se que tengo mal, cuando le doy a depurar se para sobre la linea que dice

Código
  1.  
  2. If Cells(j, i) = " " Then
  3.  

Aqui esta mi codigo

Código
  1.  
  2. Private Sub guardar_Click()
  3.  
  4. Dim i, j As Integer
  5.  
  6. For i = 1 To 5
  7.  
  8.    For j = 0 To 1
  9.  
  10.        If Cells(j, i) = " " Then
  11.  
  12.            Cells(j, i) = title.Text
  13.            Cells(j, i + 1) = content.Text
  14.            Cells(j, i + 1) = dat.Text
  15.            Cells(j, i + 1) = fonts.Text
  16.  
  17.        End If
  18.  
  19.    Next j
  20.  
  21. Next i
  22.  
  23. End Sub
  24.  

ni idea de donde tengo el error :(  :-\ :-\


« Última modificación: 22 Octubre 2017, 22:58 pm por Mastodonte » En línea

Maduro Coñode tu madre mal nacido hijo de p**a mardito mamahuevo infeliz desgraciado chupalo coñoodemadreeee gusano excremento de gusano diarrea cronica de gusano gusano de mosca plaga, diarrea de parasito parasito mamachola trimardito muereteee
Serapis
Colaborador
***
Desconectado Desconectado

Mensajes: 3.351


Ver Perfil
Re: [VBA]Error definido por la aplicación o definido por el objeto Al Usar Cells()
« Respuesta #1 en: 23 Octubre 2017, 13:56 pm »

Seguro que esos rangos están dentro de los límites de la hoja?

Es decir tu le estás diciendo que tienes al menos 6 filas (0-5) de 2 columnas (0-1)... o son 2 filas (0-1) de 6 columnas(0-5)?

Aunque luego al poner i+1, exige que tengas una columa más, 7 ... (0-6)

Luego anecdóticamente veo inútil esto que pones, los valores que quedarán al final, son los que marco con OK, los previos se escriben para acto seguido ser sobrescritos. Con qué finalidad?

            Cells(j, i) = title.Text OK
            Cells(j, i + 1) = content.Text
            Cells(j, i + 1) = dat.Text
            Cells(j, i + 1) = fonts.Text OK

En cualquier caso este tma debería ir al hilo de VB... no aquí.


En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines