Buenas tardes estoy iniciando con la programacion en excel si me pudiesen colaborar con el siguiente problema: Estoy programando el boton de Ultimo, anterior, siguiente, y ultimo registro y me muestre en un label el numero de registro con un contador, para esto estoy utilizando los siguientes comandos Private Sub CmdPrimero_Click() Sheets("Alumno").Select Range("A2").Select TxtRegistro.Text = 1 TxtAlumno.Text = ActiveCell TxtNombres.Text = ActiveCell.Offset(0, 1) TxtApellidos.Text = ActiveCell.Offset(0, 2) TxtDireccion.Text = ActiveCell.Offset(0, 3) TxtTelefono.Text = ActiveCell.Offset(0, 4) CbEps.Text = ActiveCell.Offset(0, 5) Cbcarrera.Text = ActiveCell.Offset(0, 6) Cbdia.Text = ActiveCell.Offset(0, 7) Cbmes.Text = ActiveCell.Offset(0, 7) Cbaño.Text = ActiveCell.Offset(0, 7) If ActiveCell.Offset(0, 8) = "Femenino" Then OpFemenino = True End If If ActiveCell.Offset(0, 8) = "Masculino" Then OpMasculino = True End If End Sub Private Sub CmdUltimo_Click() Sheets("Alumno").Select cont = 1 Range("A2").Select While (ActiveCell <> Empty) ActiveCell.Offset(1, 0).Select cont = cont + 1 Wend ActiveCell.Offset(-1, 0).Select TxtRegistro.Text = cont + 1 TxtAlumno.Text = ActiveCell TxtNombres.Text = ActiveCell.Offset(0, 1) TxtApellidos.Text = ActiveCell.Offset(0, 2) TxtDireccion.Text = ActiveCell.Offset(0, 3) TxtTelefono.Text = ActiveCell.Offset(0, 4) CbEps.Text = ActiveCell.Offset(0, 5) Cbcarrera.Text = ActiveCell.Offset(0, 6) Cbdia.Text = ActiveCell.Offset(0, 7) Cbmes.Text = ActiveCell.Offset(0, 7) Cbaño.Text = ActiveCell.Offset(0, 7) If ActiveCell.Offset(0, 8) = "Femenino" Then OpFemenino = True End If If ActiveCell.Offset(0, 8) = "Masculino" Then OpMasculino = True End If End Sub Private Sub CmdSiguiente_Click() Sheets("alumno").Select r = Val(TxtRegistro.Text) While (r > 1) ActiveCell.Offset(1, 0).Select r = r - 1 Wend ActiveCell.Offset(1, 0).Select TxtRegistro.Text = r TxtAlumno.Text = ActiveCell TxtNombres.Text = ActiveCell.Offset(0, 1) TxtApellidos.Text = ActiveCell.Offset(0, 2) TxtDireccion.Text = ActiveCell.Offset(0, 3) TxtTelefono.Text = ActiveCell.Offset(0, 4) CbEps.Text = ActiveCell.Offset(0, 5) Cbcarrera.Text = ActiveCell.Offset(0, 6) Cbdia.Text = ActiveCell.Offset(0, 7) Cbmes.Text = ActiveCell.Offset(0, 7) Cbaño.Text = ActiveCell.Offset(0, 7) If ActiveCell.Offset(0, 8) = "Femenino" Then OpFemenino = True End If If ActiveCell.Offset(0, 8) = "Masculino" Then OpMasculino = True End If End Sub Me gustaria me colaboraran para el anterior y el siguiente que no me estan funcionando bien, gracias si me guian con esto!!!

Bienvenido a la mayor comunidad de usuarios EXCEL

Regístrate gratis ahora para ver contenidos y descargas sin restricciones!

Regístrate gratis Ingresar

JavaScript está desactivado. Para una mejor experiencia, por favor active JavaScript en su navegador antes de continuar.

botones Siguiente Anterior

Autor del tema Maleck
Fecha de inicio 1 Dic 2010

Maleck

New member

1 Dic 2010

Buenas tardes estoy iniciando con la programacion en excel si me pudiesen colaborar con el siguiente problema:
Estoy programando el boton de Ultimo, anterior, siguiente, y ultimo registro y me...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

Iniciar sesión o registrarme para responder aquí.

Temas similares

Pregunta

PROGRAMAR BOTONES SIGUIENTE Y ANTERIOR EN UN FORMULARIO

Respuestas: 1

1 Dic 2013

Victor Luis

Pregunta

FILAS FILTRADAS Y BOTONES SIGUIENTE Y ATRÁS EN UN FORMULARIO

Respuestas: 1

4 Feb 2020

Oramla

Resuelto

No funcionan botones de comando eliminar uno - eliminar dos

Respuestas: 19

10 Abr 2026

Luisaco

Resuelto

MsgBox "Si No" como poder definir correctamente los botones

Respuestas: 2

19 Feb 2025

jcvelez

Resuelto

Ocultar Botones Selectivamente

Respuestas: 3

9 Nov 2024

Leopoldo Blancas

Resuelto

Ayuda - Botones Guardar

Respuestas: 6

21 Mar 2024

DarkTails

Resuelto

Botones para ocultar determinadas columnas

Respuestas: 4

27 Feb 2024

Paco CarMich

Resuelto

Reemplazar con botones de macros

Respuestas: 14

20 Nov 2023

jarja33

Pregunta

Ayuda botones macro

Respuestas: 2

7 Jun 2023

JasallBcn

Resuelto

cambiar posicion de botones

Respuestas: 2

29 Mar 2023

flobm

Facebook X Bluesky LinkedIn Reddit Pinterest Tumblr WhatsApp Correo electrónico Enlace

Bienvenido a nuestro foro Excel 👋

Tenemos 135.000 usuarios registrados,
y 240.000 preguntas y respuestas Excel.

Primero 👉 regístrate gratis aquí 👈
para ver contenidos y descargas
sin restricciones!

Este sitio usa cookies para ayudar a personalizar el contenido, adaptar su experiencia y mantenerlo conectado si se registra.
Al continuar usando este sitio, usted está consintiendo nuestro uso de cookies.

Aceptar Saber más…

Volver

Arriba