santiagomf

Suponiendo que pones el nombre de la página en la celda A1 de la hoja "comprobador", la macro sería: sub irAUnaPagina() on error resume next ' por si acaso la hoja no existe sheets(sheets("comprobador").Range("A1")).select if err<>0 then msgbox "La...

Supongamos que en la celda A1 de la hoja2 tienes el número de fila del que quieres traer los datos de la hoja1 (en principio valor 1). En la hoja2, en la celda que quieres que tenga el valor de A1 de la hoja1 pondrás: =INDIRECTO("hoja1!A"&hoja2!A1)...

Prueba este código: SELECT TOP 1 tabla.campo1, tabla.campo2, tabla.campo3, tabla.campo4, Count(*) AS numeroRepeticiones FROM tabla GROUP BY tabla.campo1, tabla.campo2, tabla.campo3, tabla.campo4 ORDER BY Count(tabla.campo4) DESC; Creo que es el que...

Al principio del "SUB" comprobaría que ha cambiado una de las 2 celdas de las que depende "K20". Si ha cambiado otra... hasta luego. Sería poner esta línea: If Target.AddressLocal <> "$B$20" And Target.AddressLocal <> "$K$7" Then Exit Sub

Para lo que quieres tienes que unir los dos campos en uno dentro de la consulta. Sería algo así: select articulos.codigoArticulo & " - " & articulos.nombreArticulo as detalleArticulo,* from detalleventa inner join articulos on...

Dos detalles muy importantes: 1) Al cortar las líneas en varias para que se lea mejor (como haces en la construcción del SQL) hay que tener cuidado con los blancos. Procura que siempre queden los blancos al final de las líneas para asegurarte que no...

Prueba con esto: Dim cn As New ADODB.Connection Dim sqlInsert As String sqlInsert = "insert into venta (CODIGO,PRODUCTO,CANTIDAD,VALORVENTA,VALORTOT,FECHAVENTA) " & _ "Values (" & CODIGO.Text & "," & PRODUCTO.Text & "," & CANTIDAD.Text & "," & _...

Prueba con este código: Function buscar_alumno(tabla As Recordset, entrada As String, opcion As Integer) As Recordset ' declaracion de variables Dim datos As Database Dim tabla As Recordset Dim eleccion As String buscar_alumno = "" ' Valor por...

Tendrías que hacerlo con 2 consultas: una de actualización y otra para añadir los nuevos registros. Los SQL de las dos consultas serían algo así: UPDATE usuarios1 AS a INNER JOIN usuarios2 AS b on a.claveUsuario=b.claveUsuario SET b.campo1=a.campo1,...

Yo trabajo con VB6 pero no creo que varíe mucho. Lo que yo haría es tener todos los Label como no visibles y los iría presentando según pulsen el botón 'btnPresentaNuevoLabel'. El código sería: Private Sub btnPresentaNuevoLabel_Click() If Not...