Raul Hernandez

El pequeño error que tienes es que cada vez que vas a colocar el valor en la celda especificada, llamas a la función a(), te muestro una pequeña modificación para que puedas hacer lo que quieres: Dim UserConst as String Public Function a() As String...

El código que te dejo Elsa Matilde en su respuesta, hace todo lo que solicitaste, de hecho la línea siguiente en ese código hace exactamente lo que me estas comentando, solo hazle los ajuste necesarios donde te lo indico Elsa Matilde. Range("D3")....

Es muy fácil, coloca tu código donde te indico en la siguiente macro: While ActiveCell.Value <> "" 'TU CODIGO AQUI ActiveCell.Offset(1, 0).Select Wend Utilizamos un ciclo while, con la condición de que la celda activa no este vacía, luego coloca tu...

Envíamelo a [email protected] para revisarlo, pues así no puedo visualizarlo muy bien

Para ir hacia abajo al momento de terminar de escribir debes usar la siguiente instrucción: APP. Activecell. offset(0,1). Select, donde 0 es el numero de filas y 1 el numero de columnas a desplazarse, como esta escrito es para que baje una celda...

Disculpa la tardanza, pero estoy ocupado con la oficina; para responder tu pregunta, debes colocar un frame y dentro de este, colocar los optionbutton en forma de matriz de controles (es decir, colocas uno, lo copias y lo pegas, en ese momento el...

Disculpa la tardanza, pero estoy acupado con la oficina, aquí te dejo el código, tres textbox, donde el tercero muestra el resultado de multiplicar el primero por el segundo, al momento de presionar ENTER en el segundo textbox: Private Sub...

¿Por qué trabajas con Access 2000 y no SQL?, las conexiones y consultas a SQL son vía código (es un poco tedioso) pero en contraparte la velocidad de respuesta es alta, quizás te sirva eso, avisame para continuar ayudándote

Este es el código que necesitas: Private Sub Form_Load() Combo1. AddItem "Monitor" Combo1. AddItem "Teclado" End Sub Private Sub Combo1_Click() Select Case Combo1.ListIndex Case 0 Text1.Text = "10%" Case 1 Text1.Text = "20%" End Select End Sub

Con respecto a la primera pregunta, aquí te dejo el código: Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = Asc(Chr(13)) Then If Len(Text1.Text) < 8 Then MsgBox "La cedula debe tener 8 Digitos" End If End If End Sub Con respecto a la...