Respuesta
en
Visual Basic
a
Generar archivo Zip a partir de archivo Excel
http://www.recursosvisualbasic.com.ar/htm/menu-principal/buscar.htm?cx=006154211409403389812%3Arsvroqctr3c&cof=FORID%3A11&q=comprimir+archivo&sa=Buscar#1086
Respuesta
en
Visual Basic
a
Suma de texbox con resultado inmediato
Mmm. Bueno así como lo planteas de forma muy general, seria necesario utilizar el evento Change del text1 Private Sub TextBox1_Change() If Me.TextBox1 = Empty Then Exit Sub TextBox2 = TextBox1.Value + 1 End Sub En el ejemplo cada vez que cambias el...
Respuesta
en
Visual Basic
a
Validar lista de un libro cerrado y protegido
Para utilizar un libro portegido y con contraseña como origen de datos, la verdad no se si se puede, hice una prueba y caad vez que necesito modificar el rango de los datos que necesito extraer, me pide el password. Así que te sugiero optar por abrir...
Respuesta
en
Visual Basic
a
Búsqueda con un recordset
Acá un ejemplo dim sql as string dim desde as string dim hasta as string desde= inputbox(fecha) hasta=inputbox(hora) sql = "Select * From tutabla WHERE " & _ "campo_fecha Between " & _ "datevalue('" & desde & "') And datevalue('" & hasta & "')" &...
Respuesta
en
Visual Basic
a
Hola quien me puede ayudar con este problema
¿Qué error te da? Indica número y descripción
Respuesta
en
Visual Basic
a
Cargar datos al formulario al perder el foco
veo el sql, pero no veo en donde instancias el recordset rsProveedores set rsProveedores= New ADODB.Recordset ni donde lo abres rsProveedores.open sql segun yo deberia ser: set rsProveedores= New ADODB.Recordset sql = "select * from proveedores where...
Respuesta
en
Visual Basic
a
Fecha automático en textbox VBA
Prueba esto Private Sub ComboBox10_Change() Dim R As Variant If ComboBox10.Text = "BAJA" Then R = MsgBox("Deseas dar de baja ?", vbYesNo, "Pregunta") If R = 6 Then TextBox4 = Date Else TextBox4.SetFocus End If End If End Sub
Respuesta
en
Visual Basic
a
Visual Basic
Mmmm... prueba esto..., l = 4 For i = -40 To i = 40 Step 5 For j = 0.7 To 1.8 j = (j + 0.5) If j > 1.8 Then Exit For For k = 50 To 350 k = (k + 10) If k > 350 Then Exit For X = k * 1000 / 3600 y = 2 * (j - 9.81 * (i / 1000)) Z = X ^ 2 / y...
Respuesta
en
Visual Basic
a
Programas matemáticos desde visual basic
Puedes probar con SAGE Acá un articulo sobre el tema http://tenoch.scimexico.com/2007/12/14/sage-software-libre-alternativo-a-matlab-mathematica-maple/ aca la web de sage http://www.sagemath.org/
Respuesta
en
Visual Basic
a
Guardar libro de excel con macro visual basic
Utiliza Private Sub CommandButton1_Click() ActiveWorkbook. Sabe ActiveWorkbook. Close End Sub Grabas y luego cierras el libro era eso... ¿no?