jerryeagle

jerryeagle

 108K puntos  Jalisco, México @jerryeagle desde - visto
Preguntar

Respuestas

Respuesta en a

¿Por qué el código se ejecuta en todos los libros y no en uno solo?

Debes volver a Habilitarlos al Cerrar el libro, en el evento close de ThisWorkBook

Recetario en excel

Tan Fácil como poner todas las cantidades en gramos o mililitros, y en la celda del Total, lo divides entre 1000
Respuesta en a

Póliza necesito guardar datos de una hoja a otra en excel 2007 mediante un botón

Usa un For Next o un Do Loop algo asi: Dim Celda As String For r=1 To 5 Celda = Hoja1.Range("A" & r).Value Hoja2.Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Value Next
Respuesta en y en 1 temas más a

SQL = (no arroja resultado deseado, al pasarle una variable)

sSQL="SELECT * FROM control_cdc WHERE " & vcampobd & " like '%"&" vpclave " &"%' "
Respuesta en a

Usuario y Contraseña validar desde un .txt En Visual Basic 2008:

Yo mejor lo pondría en un Archivo XML, es mas fácil leer y actualizar: 'Para Crearlo Public Sub CrearXMLusuarios() Dim xDoc as XDocument = <?xml version="1.0" encoding="utf-8"> <Usuarios> <Usuarios> xDoc.Save("NombreDeArchivo.xml") End Sub 'Para...
Respuesta en y en 1 temas más a

¿Visual studio 2010 tiene un motor de base de datos? ¿Y cuál es?

Pues VS 2010 si tiene motor de Bases de Datos, pero Excel no es una Base de Datos, y para migrarla a, por ejm, SQL Server, podrías descargar el SQL Server Management Studio tiene un "Asistente" para hacerlo.
Respuesta en a

Insertar automáticamente un text box en un userform

Suponiendo que tienes un TextBox1 y un Button1: En el evento Click del Button1: Dim T, i As Integer T = TextBox1.Top For i = 1 To CInt(TextBox1.Text) Dim txt As New TextBox With {.Top = T, .Left = Button1.Left + Button1.Width + 10}...
Respuesta en a

En Textbox solo minúsculas

El TextBox tiene una propiedad llamada CharacterCasing, ponla en LowCase
Respuesta en a

¿Cómo hago para que al ingresar un valor en una celda automáticamente salte a otra?

En el mismo evento : If Target .Address = Range("X" & NumeroDeFila).Address Then Range("P" & NumeroDeFila).Select

Suscríbete RSS