Un favor

[Luis]

Agradezco vuestra ayuda, tanto si lo resolvemos como si no, Gracias
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

Muchisimas Gracias

[Héctor Miguel]

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/index.php?t=envbadialogs
http://www.cpearson.com/excel/FormPosition.htm
http://www.bmsltd.co.uk/DLCount/DLCount.asp?file=FormFun.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

[Luis]

hola Hector:
Y sabes que soy un gran admirador tuyo, porque sabes un monton, te doy las
gracias por responder a mi favor. de momento no he encontrado lo que busco
pero seguire intentandolo
Gracias hasta la proxima
Luis

Post by Héctor Miguel
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/index.php?t=envbadialogs
http://www.cpearson.com/excel/FormPosition.htm
http://www.bmsltd.co.uk/DLCount/DLCount.asp?file=FormFun.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

[Héctor Miguel]

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 __

Post by Héctor Miguel
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/index.php?t=envbadialogs
http://www.cpearson.com/excel/FormPosition.htm
http://www.bmsltd.co.uk/DLCount/DLCount.asp?file=FormFun.zip
si cualquier duda (o requieres ayuda mas "precisa" y con informacion adicional)... comentas ?

[Luis]

Hola Hector:
Estuve en las páginas que me aconsejaste, estaban en Ingles , y no es mi
fuerte el Ingles (Lo justo), de lo que pude deducir de ellas, era que no se
adaptaban a lo que pretendo.
Me encanta la informatica desde mi jubilacion, (He llegado un poco tarde a
la Informatica) me dedico a leer estudiar aprender todo lo relacionado con la
misma, hay conceptos que aún no domino ejem: textbox no se como utilizarlo.
te estoy muy agradecido, de tus comentarios en el foro, he aprendido un
monton es decir, casi todo lo que se (Considero Bastante) lo he recopilado,
aprendido a traves del foro
Gracias de nuevo, hector

Luis

Post by Héctor Miguel
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 __

Post by Héctor Miguel
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/index.php?t=envbadialogs
http://www.cpearson.com/excel/FormPosition.htm
http://www.bmsltd.co.uk/DLCount/DLCount.asp?file=FormFun.zip
si cualquier duda (o requieres ayuda mas "precisa" y con informacion adicional)... comentas ?