Ayuda Macro

14/10/2008 - 19:16 por Luis | Informe spam
Hola Foro:
Necesito vuestra ayuda, tengo un macro copiada que me falla y no se porque?
el fallo me lo da en Do While Partida<>"" (Porque ?)
Sub Domino()

Dim Partida As Integer
Dim Pareja As Integer
Dim Tantos As Integer
Worksheets("Domino").Activate
ActiveSheet.Range("A4").Activate

Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Activate
Loop
Partida = Val(InputBox("(Return para finalizar:)", "Entra el Nº. de la
Partida"))

Do While Partida <> ""
Pareja = Val(InputBox("Entre el numero de la pareja:", "Entra el Nº. de la
Pareja"))
Tantos = Val(InputBox("Entre el numero de tantos obtenido:", "Tantos
Obtenidos"))
With ActiveCell
.Value = Partida
.Offset(0, 1).Value = Pareja
.Offset(0, 2).Value = Tantos

End With
ActiveCell.Offset(1, 0).Activate
Partida = InputBox("Entre el numero de Partida(Return para finalizar):",
"Partida")
Loop
End Sub
Gracias por vuestra atencion

Luis
 

Leer las respuestas

#1 Emilio
14/10/2008 - 19:57 | Informe spam
¡Importante!: Colabora con el grupo.Contesta a este mensaje y dinos si te
sirvió o no la respuesta dada. Muchas gracias
Hola!
por que has declarado Partida como entero, luego tendrás que compararla con
cero, no con una cadena vacía.

Do While Partida<>0

Saludos a
Emilio [MS-MVP Access 2006/8]
miliuco56 ALGARROBA hotmail.com
http://www.mvp-access.com/foro
http://www.mvp-access.es/emilio

"Luis" escribió en el mensaje de noticias
news:
Hola Foro:
Necesito vuestra ayuda, tengo un macro copiada que me falla y no se
porque?
el fallo me lo da en Do While Partida<>"" (Porque ?)
Sub Domino()

Dim Partida As Integer
Dim Pareja As Integer
Dim Tantos As Integer
Worksheets("Domino").Activate
ActiveSheet.Range("A4").Activate

Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Activate
Loop
Partida = Val(InputBox("(Return para finalizar:)", "Entra el Nº. de la
Partida"))

Do While Partida <> ""
Pareja = Val(InputBox("Entre el numero de la pareja:", "Entra el Nº. de la
Pareja"))
Tantos = Val(InputBox("Entre el numero de tantos obtenido:", "Tantos
Obtenidos"))
With ActiveCell
.Value = Partida
.Offset(0, 1).Value = Pareja
.Offset(0, 2).Value = Tantos

End With
ActiveCell.Offset(1, 0).Activate
Partida = InputBox("Entre el numero de Partida(Return para finalizar):",
"Partida")
Loop
End Sub
Gracias por vuestra atencion

Luis

Preguntas similares