Ayuda por favor

[XYON126]

Hola erbuson!

Ahora he visto lo que comentas, es cierto siempre me da el mismo valor, lo he cambiado por "ReDim Preserve CSemanas(1, UBound(CSemanas, 2) + 1)" y aqui como minimo me aumenta la matriz pero ahora pasa de un inicio CSemanas(1, 1) a otra temporal de CSemanas(1, 4) y el problema se mantiene en lo de no grabar nada y si cambio estas lineas .:

ReDim Preserve CSemanas(1, UBound(CSemanas, 2) + 1)
CSemanas(0, UBound(CSemanas, 1) + 1) = NRegistro
CSemanas(1, UBound(CSemanas, 1) + 1) = Horas.semana


por estas .:

MsgBox UBound(CSemanas, 2) + 1
MsgBox CSemanas(0, M) & " ; " & CSemanas(1, M)
MsgBox NRegistro & " ; " & Horas.semana
ReDim Preserve CSemanas(1, UBound(CSemanas, 2) + 1)
CSemanas(0, M) = NRegistro
CSemanas(1, M) = Horas.semana
Control = Horas.semana
M = M + 1

entonces el error desaparece, las celdas aumentan ya me guarda pero me genera un ultimo registro en blanco voy haber si lo soluciono.

Por cierto en el codigo que te he pasado veras que hay varios botones que aunque tienen codigo no hacen nada, ya lo tengo en cuenta pues estoy en ello incluso funciones como la FunsemanaActual, etc. pero si lo ejecutas cuando ya se visualice el formulario creo que entonces me entederas y que es lo que quiero hacer.Encontraras mucha paja inutil que he de limpiar.

Un saludo