Poli Plos

Cuando un campo depende de otro(s) según una relación conocida no es conveniente guardar los dos, porque obliga a tener que actualizar uno cuando cambia el otro. Es mejor usar un campo calculado en la propia tabla o en una consulta. Por otra parte, 1...

No nos ha indicado el error que obtiene, pero ¿y si lo deja simplemente con este código? Function InputBoxDK(Prompt, Title) As String InputBoxDK = InputBox(Prompt, Title) End Function De hecho, ni siquiera necesita la función InputBoxDK. Ahí donde...

Pruebe con: IZQUIERDA(A1;ENCONTRAR(",";A1)+2)

Vincule esas tablas en la base de datos donde quiera realizar la consulta. Cuando las vincule, funcionarán como si estuvieran en la propia base de datos. Para vincularlas, debe ir a: - Datos externos - Nuevo origen de datos - De una base de datos -...

Fíjese que no está construyendo bien la cadena con la sentencia SQL. Ha dejado la parte "AND Autoproteccion = True" fuera de la cadena (de las comillas). Debería ser: "select Nombre from Centros where Nombre like '*" & Me.Centro.Text & "*' And...

Pruebe con una sentencia como la siguiente: Select Fecha, N1, N2, N3, N4, N5, Case when N1 % 2 = 0 then '0' else '1' end + Case when N2 % 2 = 0 then '0' else '1' end + Case when N3 % 2 = 0 then '0' else '1' end + Case when N4 % 2 = 0 then '0' else...

Después de "rellenar" el marcador, vuelva a crearlo. Algo así como: Dim oMarcador As Object Dim oRange As Object Set oMarcador = ThisDocument.Bookmarks("ElMarcador") oRange = oMarcador.Range oRange.Text = "El valor" ORange. Bookmarks. Add("ElMarcador")

Excel es una hoja de cálculo, no una base de datos. Tratar de usar como base de datos lo único que hace es complicar innecesariamente las cosas. Si quiere una base de datos, pruebe con Access.

En la columna D, use la función BUSCARV, como le muestro (en la imagen está el valor para la celda D5, pero la puede copiar a D6 y D7):

Yo verificaría el valor de la celda de la columna C a cada paso. Algo así como: Private Sub Numerar() Dim iFila As Integer iFila = 1 While Worksheets("RESUMEN").Range("C" & iFila).Value <> "" Worksheets("RESUMEN").Range("A" & iFila).Value = iFila...