jose urbaneja

Te doy dos formas de hacerlo sin ponerle ningún formato a la hoja: Supongamos que en la celda A1 colocas la fecha en la cual realizas tu informe, supongamos 8-10-2019, en la celda A2 colocaras la siguiente fórmula =(TEXTO(A1;"mmmm")) Esta fórmula...

El código de error que indicas hace referencia a falta de instalación de actualizaciones, algunas de ellas correspondientes a Windows. Asegurémonos que Office cuente con todas las actualizaciones. Te sugiero realizar las recomendaciones dadas en el...

Sub TranponerDatos() Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") h2.Cells.Clear ' For i = 2 To h1.Range("A" & Rows.Count).End(xlUp).Row Set b = h2.Rows(1).Find(h1.Cells(i, "A"), LookAt:=xlPart) If Not b Is Nothing Then col = b.Column u =...

Te dejo un archivo de ejemplo, una vez descargado pulsas ALT+F11 y en editor de VBA puedes realizar las modificaciones que necesites. Puedes consultar si lo crees necesarios, saludos ARCHIVO CON BASE DE DATOS

Evento Change Usaremos el evento Change asociado a una hoja, el cual nos ayudará a detectar cualquier celda modificada en la Hoja1. Para usar el evento, realizamos los siguientes pasos: Damos clic derecho sobre la etiqueta la Hoja1 > Ver código. Se...

Total vas a llevar un correlativo de todas y cada una de las transacciones, podrás llevar todo integrado en la misma tabla, a este ejemplo que te envío podrás anexarle filas y columnas según tu criterio, tan solo pincha "desproteger hoja" AQUI LA...

Sub Botón1_Haga_clic_en() ' Botón1_Haga_clic_en Macro Range("J14").Select ActiveCell.Formula = "AQUÍ DEBES COLOCAR TU FORMULA" Range("J14").Select End Sub

Supongamos que tu fecha 15-05-2006, la tiene en la celda A1 La formula te quedaría así: =NUM.DE.SEMANA(A1;21) Como veras, el resultado es 20, es decir, esa fecha corresponde a la semana 20 Ahora como ejercicio, cambia la fecha que tienes en A1 pon la...

Esta es la fórmula =SI(A1<=8;25;30)

Sub IMPRIMIR() Application.PrintCommunication = True ActiveSheet.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False Sheets("HOJA1"). PrintOut Sheets("HOJA2"). PrintOut Sheets("HOJA3"). PrintOut Sheets("HOJA4"). PrintOut End Sub Donde pondrás...