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í.
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í.