Richard Alejandro Villarroel Gonzalez

Puedes Usar este código: Sub BuscarDato() Dim x As String Dim Found As Boolean ' Establecer un valor de búsqueda variable. x = "test" ' Establecer la variable booleana "found" en False. Found = False For Filas = 1 To 53 ' For Columnas = 6 To 58 If...

Puedes ocultar la carpetas desde el explorador haciendo: Clic derecho; luegoPropiedadesEn la ficha General. Activa la casilla OcultoEn la ficha Seguridad: En el botón Editar para cambiar los permisos de control de la carpeta como: Mostrar contenido...

Otra vez José Antonio, al trabajar con Recordset, el programa cree que ya hay registros, al usar tbl. MoveFirst, se le dice: "Muévete al primer registros", al no tener se sale justamente en la línea del tbl. MoveFirst. En el error pasado te alerté de...

En la ventana de propiedades del formulario coloca en al propiedad WindowState: Maximized, en vez, de Normal

José Antonio. Esta bien ilustrado tu caso, pero sería bueno que dijeras el error, el el numero del error de la línea donde se detiene el programa. Pero viéndolo bien, creo que te falta establecer la ruta a la base de datos. Algo como esto: Dim...

Ok. Mira hay varios métodos para esto. Pero te voy a enseñar uno usando un formulario para que selecciones el RANGO a sumar y luego separar ese rango por filas para sumarlo en una columna más adelnate. Te explico debes crear un formulario en VBA con...

Para importar un archivo de Microsoft Excel en Microsoft Access 2.0Guarde el archivo en Microsoft Excel utilizando el formato de base de datos estándar enumerados anteriormente. Cierre el archivo.Inicie Microsoft Access 2.0 y abra la base de datos en...

Sólo tienes que añadir 3 botones de comandos y a cada uno le colocas el siguiente código: Private Sub CommandButton1_Click() Application.SendKeys "%" + "{F4}", True ' Cerrar la ventana activa End Sub Private Sub CommandButton2_Click()...

El error te da por causa de que escribes hoja1 en minúscula debes cambiar a mayúscula, que es el nombre real de la hoja: Sub ocultarhojas() Dim hoja As Worksheet For Each hoja In Worksheets If hoja.CodeName <> "Hoja1" Then hoja.Visible =...

Pobré es código de Dante y no me funciono, pero probé mi código y si funciona: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 10 Then If Range("j1") = "" Then MsgBox " Se te olvida la Hora base", vbOKOnly + vbExclamation,...