Abraham Valencia

[Hola Si antaño usabas VB 6.0, creo que el ideal es que comiences con Visual Basic Net. Sugiero descargues Microsoft Visual Studio 2017 que lo incluye y además, es gratuito. Si bien hay diferencias con VB 6.0, con ello tienes la base para entender el...

[Hola Suponiendo que todas las celdas tiene realmente nueve caracteres y que solo se cambia el último por un número cinco, entonces esto te será útil: Sub Cambiar() Dim Celda As Range For Each Celda In Range("A1:A30") Celda.Value = Left(Celda, 8) & 5...

[Hola En la macro que guarda seguramente tienes alguna línea que borra y/o deja en blanco a Txt_cantidad1, al hacer eso activas su evento "Change" y como posiblemente has hecho lo mismo con Txt_Venta1, ocasiona un error en la operación en donde te...

[Hola Para que en un "UserForm" funcione el tener botones de maximizar/minimizar tanto en Office de 32 bits como en Office de 64 bits, se debe colocar lo siguiente en el módulo del "UserForm: #If VBA7 Then Private Declare PtrSafe Function FindWindow...

[Hola Pues necesariamente tienes que usar VBA. Tal como pones en tu "asunto" (macro), pero tampoco es que sea tan simple. Dale una leída a estos enlaces como para que te vayas dando idea:...

[Hola Prueba así: Range("D6") = Date + TimeValue("06:00") Comentas Abraham Valencia

[Hola ¿Cómo intentas imprimir el Userform? ¿Mediante "Printform? De ser ese el caso, no podrás cambiar el formarto con el método "PrintForm" pues no tiene propiedades, para lograrlo una forma sería recurrir a las funciones de la API de Windows,...

[Hola Por ejemplo, para conectarme a SQLExpress (sin clave), yo hago esto (Access 2013 64 bits): Private Sub Form_Open(Cancel As Integer) Dim cn As ADODB.Connection Dim rst As ADODB.Recordset Dim sql As String Set cn = New ADODB.Connection cn.Open...

[Hola Prueba esto, solo debes copiarlo y pegarlo en el módulo de la hoja en donde requieres el efecto solicitado: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$C$12" Then Range("F9").Value = Range("F9").Value + 1 End If...

[Hola ¿Qué hay en "LIMPIARCHECKBOX"? ¿qué son "W" y "H"? ¿En qué celda de cada hoja debería insertarse la imagen? Además de las seis hojas que mencionas ¿cuántas hojas más hay y cómo se llaman? Abraham Valencia