Buenas noches. necesitaría ayuda para poder terminar la macro que estoy haciendo, estoy aprendiendo a programar macros y estoy perdido.

La idea es cuando ejecute el UserForm, pinchar en uno de los OptionButton que hay, introducirá el dato correspondiente en la celda donde este el cursor y a continuación saldrá un mensaje preguntando el numero de veces que quiero que se repita la acción, copiando el valor en las celdas de la derecha según el número indicado.

lo he intentado con ActiveSheets.Columns pero no soy capaz.

Me gustaría que alguien me oriente como terminar esta macro.

Un saludo y gracias a todos de ante mano.

Bateria2.xls

Buenas, phoboslu.....

Desconozco a dónde querías llegar con "ActiveSheets.columns".......pero creo que podrías intentarlo a partir de un bucle que se repitiera el nº de veces que indicara la variable "Repe" de tu código.

Si lo combinas con Activecell.offset(0,1).Activate (que lo que hace es activar la casilla de la derecha de la anterior activa), creo que tendrás el resultado que buscas......

Inténtalo y si sigues con algún problema lo comentas........e intentamos ayudar......

Chao,

Tese

Gracias por tu ayuda Tese. Me pongo a mirarlo en un rato y te cuento

Gracias por tu ayuda nuevamenete Tese, lo he conseguido con la siguiente secuencia.

If BAT1.Value = True Then

ActiveCell = "BAT-1"

Mensaje = "introduzca el número de repeticiones"

Titulo = "Cuadro Repeticiones"

Estandar = 2

Repe = InputBox(Mensaje, Titulo, Estandar)

Do While i < Repe

ActiveCell.Offset(0, 1).Activate

ActiveCell = "BAT-1"

i = i + 1

Loop

MsgBox "Dato Añadido Correctamente"

REPARTIDOR.Hide

End If

Para terminar el tema, si quisiera que cuando encuentre una celda con el valor "C", la saltara a la siguente con un valor distinto de "C", que es lo que tendría que añadir a la secuencia. lo he intentado con otro Do While Cells (x,1)<>"C" pero no lo he conseguido.

Buenas, phoboslu

Intenta incluir el código en el formato que se detalla en las normas del foro.......tú mismo verás como es más fácil de seguir...

Por otro lado, lo que debes hacer es incluir la condición (<> "C") como un condicional justo después de

ActiveCell.Offset(0, 1).Activate

[/CODE]

ya que es en ese momento cuando debes comparar el valor de la celda.

En el propio condicional, "If ......Then.......Else" incluyes qué debe hacer en caso de cumplirse o no la condición.

Mira a ver si te ha servido de pista o te ha liado más.........jejejej

Chao,

Tese

Lo siento Tese. Llevo un buen rato intentandolo y no doy con ello. gracias por tu ayuda, seguro que es muy sencillo pero.....

No te preocupes........y vete a dormir.......jejeje

Prueba con algo como esto: (en azul lo que incluyo en tu código.........son 2 líneas)

Do While i < Repe

 [COLOR=#0000cd]busca:[/COLOR]

ActiveCell.Offset(0, 1).Activate

            [COLOR=#0000cd]If Activecell= "C" then[/COLOR][COLOR=#0000cd] goto busca:[/COLOR]

ActiveCell = "BAT-1"

            i = i + 1

        Loop

[/CODE]

Solo si la celda activa es diferente a "C" incluirá el valor.......

De todos modos, debes tener en cuenta otros valores ó limitaciones.......pero bueno, la idea, ya la tienes......confío en tu persistencia.....jejeje

Chao,

Tese

Nuevamente gracias Tese. Gracias a tu ayua ya lo he resuelto.

La verdad es que, te das cuenta que, con leer un libro de macros de excel no dominas el tema. Se aprende más en foros como este.

Al final he variado un poco la macro, para hacerla más simple, pero gracias a tu ayuda ya esta.

Seguiremos aprendiendo jejejeje.

Muchas gracias.

Tema solucionado.