Un favor

La macro que os presento, me funciona bien, pero la podria poner con un userform

Sub Juego_Domino()
Dim Mas_Datos As Integer
Dim Partida As Integer
Dim Pareja As Integer
Dim Tantos As Integer
'Activar hoja
Worksheets("Hoja1").Activate
'activar celda 2
ActiveSheet.Range("A4").Activate
'Buscar la primera celda vacia par continuar con la bd
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Activate
Loop
'Partida = InputBox("Introduce el Nº. Partida, (Enter para terminar):", "Partida")
'mientras la varable nombre sea diferente a cadena vacia
Mas_Datos = vbYes
Do While Mas_Datos = vbYes
Partida = Val(InputBox("introduce Numero", "Partida"))
Pareja = Val(InputBox("Introduce Nº. de Pareja", "Nº. de Pareja"))
Tantos = Val(InputBox("Introduce Los Tantos Obtenidos", "Tantos"))
'Copiar los datos en las casillas correspondientes
With ActiveCell
.Value = Partida
.Offset(0, 1).Value = Pareja
.Offset(0, 2).Value = Tantos
End With
'Hacer activa la celda siguiente a la actual
ActiveCell.Offset(1, 0).Activate
Mas_Datos = MsgBox("Otro registro ?", vbYesNo + vbQuestion, "Entrada de Datos")
'Partida = InputBox("Entre el Nº. de Partida(Return para Terminar):", "Partida")
Loop
End Sub

hola, Luis !

si ya cuentas con un listado donde tienes los registros y necesitas actualizarlo/...
-> podrias administrar el listado desde (menu) datos / formulario
que te muestra un dialogo bastante amigable desde el cual podras administrar/consultar/modificar/... la base de datos
(y tambien lo puedes mostrar por codigo aun si se trata de una hoja distinta de la hoja activa)

en la version 2007, el comando formulario del (ex)menu de datos es necesario agregarlo a la barra de acceso rapido desde...
-> (boton) office / (boton) opciones de excel / (ficha) personalizar
-> muestras los comandos disponibles en: -> todos los comandos
-> (por orden alfabetico) seleccionas Formulario...(DataFormExcel)
-> y pulsas en el boton Agregar >>

otra alternativa seria (siguiendo tu idea original de) un formulario de usuario
(luego de haber definido el diseno de los controles necesarios, su tipo, y objetivo de uso)...
puedes consultar paginas con ejemplos y descargas para el uso de formularios...
(desde basico en adelante) en...
http://j-walk.com/ss/excel/tips/userformtips.htm
http://www.erlandsendata.no/english...vbadialogs
http://www.cpearson.com/excel/FormPosition.htm
http://www.bmsltd.co.uk/DLCount/DLC...ormFun.zip

si cualquier duda (o requieres ayuda mas "precisa" y con informacion adicional)... comentas ?
saludos,
hector.

__ OP __
> La macro que os presento, me funciona bien, pero la podria poner con un userform
>
> Sub Juego_Domino()
> Dim Mas_Datos As Integer
> Dim Partida As Integer
> Dim Pareja As Integer
> Dim Tantos As Integer
> 'Activar hoja
> Worksheets("Hoja1").Activate
> 'activar celda 2
> ActiveSheet.Range("A4").Activate
> 'Buscar la primera celda vacia par continuar con la bd
> Do While Not IsEmpty(ActiveCell)
> ActiveCell.Offset(1, 0).Activate
> Loop
> 'Partida = InputBox("Introduce el Nº. Partida, (Enter para terminar):", "Partida")
> 'mientras la varable nombre sea diferente a cadena vacia
> Mas_Datos = vbYes
> Do While Mas_Datos = vbYes
> Partida = Val(InputBox("introduce Numero", "Partida"))
> Pareja = Val(InputBox("Introduce Nº. de Pareja", "Nº. de Pareja"))
> Tantos = Val(InputBox("Introduce Los Tantos Obtenidos", "Tantos"))
> 'Copiar los datos en las casillas correspondientes
> With ActiveCell
> .Value = Partida
> .Offset(0, 1).Value = Pareja
> .Offset(0, 2).Value = Tantos
> End With
> 'Hacer activa la celda siguiente a la actual
> ActiveCell.Offset(1, 0).Activate
> Mas_Datos = MsgBox("Otro registro ?", vbYesNo + vbQuestion, "Entrada de Datos")
> 'Partida = InputBox("Entre el Nº. de Partida(Return para Terminar):", "Partida")
> Loop
> End Sub

... de momento no he encontrado lo que busco pero seguire intentandolo ...

si ya cuentas con un listado donde tienes los registros y necesitas actualizarlo/...
-> podrias administrar el listado desde (menu) datos / formulario
que te muestra un dialogo bastante amigable desde el cual podras administrar/consultar/modificar/... la base de datos
(y tambien lo puedes mostrar por codigo aun si se trata de una hoja distinta de la hoja activa)

en la version 2007, el comando formulario del (ex)menu de datos es necesario agregarlo a la barra de acceso rapido desde...
-> (boton) office / (boton) opciones de excel / (ficha) personalizar
-> muestras los comandos disponibles en: -> todos los comandos
-> (por orden alfabetico) seleccionas Formulario...(DataFormExcel)
-> y pulsas en el boton Agregar >>

otra alternativa seria (siguiendo tu idea original de) un formulario de usuario
(luego de haber definido el diseno de los controles necesarios, su tipo, y objetivo de uso)...
puedes consultar paginas con ejemplos y descargas para el uso de formularios...
(desde basico en adelante) en...
http://j-walk.com/ss/excel/tips/userformtips.htm
http://www.erlandsendata.no/english...vbadialogs
http://www.cpearson.com/excel/FormPosition.htm
http://www.bmsltd.co.uk/DLCount/DLC...ormFun.zip

si cualquier duda (o requieres ayuda mas "precisa" y con informacion adicional)... comentas ?

hola, Luis !

> ... de momento no he encontrado lo que busco pero seguire intentandolo ...

por el codigo que expones (aparentemente) solo necesitas ingresar 3 registros por fila/vez/...
aunque no comentas si le tuviste "flojerilla" a los ejercicios y ejemplos de las paginas sugeridas -?-
o si el caso es que no te has iniciado en el uso de los formularios ? (por eso sugeria lo del DataForm)

para formularios creo que bastara con 3 TextBoxes (en sustitucion de los InpurBoxes) y 1 o 2 CommandButtons

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

__ OP __
>> si ya cuentas con un listado donde tienes los registros y necesitas actualizarlo/...
>> -> podrias administrar el listado desde (menu) datos / formulario
>> que te muestra un dialogo bastante amigable desde el cual podras administrar/consultar/modificar/... la base de datos
>> (y tambien lo puedes mostrar por codigo aun si se trata de una hoja distinta de la hoja activa)
>>
>> en la version 2007, el comando formulario del (ex)menu de datos es necesario agregarlo a la barra de acceso rapido desde...
>> -> (boton) office / (boton) opciones de excel / (ficha) personalizar
>> -> muestras los comandos disponibles en: -> todos los comandos
>> -> (por orden alfabetico) seleccionas Formulario...(DataFormExcel)
>> -> y pulsas en el boton Agregar >>
>>
>> otra alternativa seria (siguiendo tu idea original de) un formulario de usuario
>> (luego de haber definido el diseno de los controles necesarios, su tipo, y objetivo de uso)...
>> puedes consultar paginas con ejemplos y descargas para el uso de formularios...
>> (desde basico en adelante) en...
>> http://j-walk.com/ss/excel/tips/userformtips.htm
>> http://www.erlandsendata.no/english...vbadialogs
>> http://www.cpearson.com/excel/FormPosition.htm
>> http://www.bmsltd.co.uk/DLCount/DLC...ormFun.zip
>>
>> si cualquier duda (o requieres ayuda mas "precisa" y con informacion adicional)... comentas ?