santiagomf

En el código VBa de "ThisWorkbook" pon el siguiente: Option Explicit Dim antCelda As String Dim snAuto As Boolean Private Sub Workbook_Open() antCelda = ActiveCell.Address snAuto = False End Sub Private Sub Workbook_SheetSelectionChange(ByVal Sh As...

Podrías poner algo así if sheets(nombrePagina).range("G1")=sheets(nombrePagina).range("G3") then sheets(nombrePagina).range("E3")="" sheets(nombrePagina).range("F3")="" sheets(nombrePagina).range("G3")="" end if

Entiendo que quieres poner como conciliados los registros de 2 tablas que tienen el mismo 'doc' y 'monto'. Yo añadiría: que no estén conciliados anteriormente. Yo usaría este código: Sub conciliarBancoSistema() Dim rsB As Recordset Dim rsS As...

En el origen del control puedes poner una condición. Sería: =iif(nz(<nombre del campo>;"")= ";";null;<nombre del campo>) En caso de tener el carácter ";" pondrá el valor null, en otro caso dejará lo que tenga el campo.

Prueba con este código: Sub buscar() Dim valBuscar As Variant Dim aux As Variant Dim snAlgunOk As Boolean snAlgunOk = False valBuscar = Reporte.Range("B2") On Error Resume Next aux = Application.WorksheetFunction.VLookup(valBuscar,...

Prueba este código. Espero haber sido claro con las explicaciones. Private Sub UserForm_Initialize() Dim aux As String Dim txt As String Dim nomHoja As String Dim nCol As Integer Dim nLin As Long Dim i As Integer ' Leemos el origen del control aux =...

El primer problema que veo en el código es que tienes abierto un "sub" en la primera línea, que no se cierra: Private Sub UserForm_Click() Por otro lado, la definición de las funciones externas (Private Declare Function) debe ponerse delante de...

Tendrías que ejecutar una instrucción SQL para añadir el nuevo campo. El código sería algo así: Docmd. Runsql "alter table <nombreDeLaTabla> add <nombreDeCampo> <tipoDatos>"

La fórmula de la celda C2, suponiendo que los días de fiesta están en la columna "A" de la "Hoja2", sería: =CONTAR.SI(Hoja2!A:A;"<=" &B2)-CONTAR.SI(Hoja2!A:A;"<" &A2) Lo que hace es contar el número de días festivos que se encuentra hasta la fecha...

Yo incluiría un procedimiento como el siguiente para dar la vuelta a las líneas (al final te pongo una forma de llamarlo). Option Explicit Sub invertirDatosDeUnRango(ByRef rangoDatos As Range) Dim numLin As Long Dim numCol As Integer Dim i As Long...