William Kennedy

Este error podría producirse por varias razones. Habría que ver que la estructura de las tablas sea la misma, aunque es extraño porque el sql corre bien con RunSQL.

No se si esta solución te sirve. Podrías llamar la segunda macro desde el código de la primera de la siguiente forma: call ConfHoja

Intenta cambiando esto: TimeValue("00:00:01") por esto: en todas las líneas donde se encuentre dicho código. TimeValue("00:01:00")

Lo que necesitas lo puedes hacer de la siguiente manera: 1. Llenar los datos en una hoja de Excel 2. Creando un plantilla en Word 3. Agregando el código VBA para reemplazar los campos de word con los que estén en Excel. Te dejo un video que encontré...

Puedes hacer lo siguiente: TxtAño = "AÑO20" & Mid(txtResultado, 5, 2) ... ahora bien, si en el textbox ingresas la fecha de esta manera "27/06/2016" puedes hacer lo siguiente que es mucho más sencillo: txtAño = "AÑO" & format([nombre del textbox],"yyyy")

Si se puede hace lo que dices, lo unico es de que no se encuentra incluido en la suite de office. Puedes seguir las instrucciones de este link para poder instalar dicho control. Es necesario que descargues la version del archivo que vaya acorde a la...

Prueba cambiando el siguiente código... Range("AA3:AA" & Range("I" & Rows.Count).End(xlUp).Row).Select por este... Range("AA" & Range("I" & Rows.Count).End(xlUp).Row).Select

Puedes intentar lo siguiente: coloca este código dentro de tu macro if workbooks("Cuentas por Cobrar").sheets("TKT").Range("S2")="Negativo" then exit sub end if

Prueba utilizando este código, tienes que colocarlo en la hoja donde están los datos: Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim Hoja As String On Error Resume Next If Intersect(ActiveCell, Range("S1:S100")) Is Nothing Then Exit...

Prueba realizando la siguiente modificación al código que ya tienes: Private Sub Worksheet_Change(ByVal Target As Range) 'x Elsamatilde 'seleccionando varias celdas (para borrarlas) no ejecuta If Target.Count > 1 Then Exit Sub If Not...