carruina

Podrías hacer algo del estilo: Dim Libro1 As Workbook Dim Libro2 As Workbook Set Libro1 = ActiveWorkbook Set Libro2 = Workbooks.Open("c:\todoexpertos\INV.xls") Libro2. Worksheets(1). Range("A1:A10"). Copy Libro1. ActiveSheet. Range("A10:A20")

No he entendido muy bien la pregunta. Me imagino que puedes modificar la consulta del cuadro combinado para que no visualice los registros que no quieras aplicando una condición

Creo que el método ShowAll no existe para el objeto Range. Deberías de utilizar el método ShowAllData del Objeto Worksheet o Sheet Por ejemplo: ThisWorkbook. Sheets("Hoja1"). ShowAllData

También se pueden crear formaularios en Excel Para ello debes de abrir el editor de Visual Basic (Puedes hacerlos desde la barra de menu Visual Basic) Ya en el editor selecciona menús Insertar-> UserForm.

Me temo que eso no es posible Si la base de datos en uso contiene código de Microsoft Visual Basic para aplicaciones (VBA) (Visual Basic para Aplicaciones (VBA): versión del lenguaje de macros-de Microsoft Visual Basic que se utiliza para programar...

Prueba con los objetos ActiveSheet o ActiveWorkbook Por ejemplo MsgBox Application.ActiveSheet.Name MsgBox Application.ActiveWorkbook.Name

En cuadro combinado de marcas debería de tener com origen de datos una consulta donde se filtre de la siguiente Hola En el cuadro combinado de Modelos la propiedad "Origen de la fila" pon la siguiente sentencia SQL SELECT Modelo FROM Tabla_Modelos...

La manera más sencilla es utilizar lectores que emulan teclado. Se conectan al mismo puerto del teclado y no tienes que programar nada.

Podrías utilizar el siguiente truco. Cambia la consulta e incluye un campo que sea la union de los tres campo SELECT [AreaProceso] & " | " & [SG] & " | " & [SP] AS Expr1 FROM TBL...; Indica que solo tiene una columna y ya está. Si necesitas vincular...

Prueba a insertar la fecha en formato aaaa/mm/dd StrSql = "UPDATE usuarios SET usufecac='" & Format(FechaInst, "aaaa/mm/dd") & "', usunumac='" & MedInst & "', Sello='" & Sello & "', usufabac=" & IdMarca & ", usudiaac=" & Diametro & " WHERE usucuent =...