Eduard Caballero

Hazlo así Sub CalculadoraPrestamos() If Not IsDate(Range("B3")) Then MsgBox ("Fecha incorrecta. Inténtelo de nuevo"), vbCritical Cancel = True Exit Sub End If End Sub

Acá tienes un macro que borra registros repetidos. Antes de aplicarlo recomiendo hacer una copia del archivo y trabajar sobre este. Ademas debes colocarte en la columna donde se repiten los datos Sub FixDuplicateRows() Dim RowNdx As Long Dim ColNum...

¿Siempre borraras los datos en ese rango? De ser así puedes utilizar lo siguiente Range("K4:I28"). ClearContents ¿El folio en D3 sera sustituido cada vez que se imprima? De ser así entonces para aumentarlo haría lo siguiente fin = Len(Range("D3"))...

Las podrías mostrar es textbox diferentes para que se vea mejor pero podrías colocar lo siguiente si quieres que se vean los 3 datos Sheets("Hoja1").Select TextBox1.Text = Range("A1") & " " & Range("A2") & " " & Range("A3") Allí muestra los 3 datos

Tomando en cuenta lo que planteas ( y lo que entendí) debes colocarle un condicional de la siguiente forma =SI(SI(ESBLANCO(C44);"";SI(ESNUMERO(C44);E44/C44;""))>=100;100;E44/C44)

Comenzare por lo ultimo. Puedes concatenar el resultado con la palabra. ¿Cuándo te refieres a AEx quien es? ¿Esto no debería ser el valor de la fórmula? O es por elejmplo ¿Valor de AE8 entonces colocar el valor en AF8 y así consecutivamente?

Prueba así Private Sub TextBox1_Change() 'aqui se ingresan los datos a buscar' Set resp = Cells.Find(What:=textbox1, After:=ActiveCell, LookIn:=xlFormulas, _ LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False,...

No es necesario colocar un botón para cada nombre. Para eso podemos hacer referencia a la celda activa. Enviame bien detallado lo que quieres hacer a mi correo.

¿Invisibles? Para simular este efecto coloca la fuente del mismo color que el fondo. Ahora si no quieres que se haya texto deja la celda en blanco

Prueba esto. Tomara el mes que coloque en la celda A1 Sub td() ' ' td Macro ' ' m=Range("A1") ActiveSheet.PivotTables("Tabla dinámica1").PivotCache.Refresh ActiveSheet.PivotTables("Tabla dinámica1").PivotFields("MES").CurrentPage = _ "(All)" With...