Un favor

23/10/2008 - 13:40 por Luis | Informe spam

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

Siga el debate

4 respuestas

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

Leer las respuestas

#1 Héctor Miguel

24/10/2008 - 02:54 | Informe spam

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

Responder a este mensaje

#2 Luis

24/10/2008 - 22:48 | Informe spam

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

"Héctor Miguel" escribió:

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

Responder a este mensaje

#3 Héctor Miguel

25/10/2008 - 00:23 | Informe spam

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 ?

Responder a este mensaje

#4 Luis

28/10/2008 - 10:29 | Informe spam

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

"Héctor Miguel" escribió:

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 ?

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida