Antoni

Me uno en todo a lo comentado por Juan. ¡¡¡ Feliz cumpleaños !!! Saludos. Antoni.

Hola: A raíz de esta consulta en el foro de "Excel general" fila activa siempre cen el centro de la pantalla se me ocurrio esta macro por si a alguien le pueda interesar: ' Dim Fila, Columna, x, y Private Sub Worksheet_SelectionChange(ByVal Target As Range) On Error Resume Next Application.ScreenUpdating = False ' Control de cambio de celda activa '---------------------------------- If Len(Fila) > 0 Then x = Target.Row - Fila If x < 0 Then x = x * -1 y = Target.Column - Columna If y < 0 Then y = y * -1 If x > 1 Or y > 1 Then Fila = Target.Row Columna = Target.Column Exit Sub End If Else Fila = Target.Row Columna = Target.Column Exit Sub End If ' Control scroll vertical '------------------------ If Target.Row > Fila Then ActiveWindow.ScrollRow = ActiveWindow.ScrollRow + 1 Fila = Target.Row ElseIf Target.Row < Fila Then ActiveWindow.ScrollRow = ActiveWindow.ScrollRow - 1 Fila = Target.Row End If ' Control scroll horizontal '-------------------------- If Target.Column > Columna Then ActiveWindow.SmallScroll ToRight:=1 Columna = Target.Column ElseIf Target.Column < Columna Then ActiveWindow.SmallScroll Toleft:=1 Columna = Target.Column End If End Sub [/CODE] Saludos. Antoni.

Cenquiu berimach.

Hola: ¡ Que largo y aburrido es el domingo por la tarde!. Y como me aburría he hecho esta UDF, que estoy convencido que se podría obtener lo mismo utilizando el "formato condicional", pero puede servir para ver como se manipulan objetos, en este caso "formas básicas". CompararValores.xls Salu2. Antoni.

Hola: Pues mira sailepaty, como soy muy olvidadizo y trabajo mucho con planificaciones que tienen totales de filas y columnas, decidí hacer esta UDF para asegurarme que si he incluido nuevas filas y columnas, no me haya olvidado de incluirlas en los totales. Saludos. Antoni.

Hola: Supongo que la mayoría ya lo sabeis, pero por si acaso: Forma de abrir un libro y que no se ejecuten las macros de inicio: Abrir Excel\Abrir Seleccionar el libro y Shift+Aceptar Salu2. Antoni PD: Este método no funciona abriendo el libro de ninguna otra manera.

Hola y gracias a todos: A ti Luis gracias además por la excelente fotografía del paseo fluvial de mi pueblo, Bertamiráns. Saludos. Antoni.

Hola: Solo darle de nuevo las gracias a chinpun por el excelente trabajo que está haciendo con el foro "Feeds de otras webs" Foro: Daily Dose of Excel Tema: https://www.ayudaexcel.com/foro/f14/showing-hidden-sheet-workbooks-dialog-vba-13336/ Cuadro de dialogo para ver las hojas que están ocultas Sub VerHojasOcultas() Application.Dialogs(xlDialogWorkbookUnhide).Show End Sub[/CODE] Para probar, ocultar algunas hojas de un libro, y ejecutar la macro. Saludos a todos.

Hola: A mi tampoco me lo descarga. Salu2. Antoni. ¡¡¡ Solucionado !!! Era un problema de inutilidad personal.

Hola Gerson: ¿ Has probado poniendo un punto de interrupción y seguir la UDF paso a paso ?

Gracias _ST y Gerson: Ya especifiqué Tambien se puede usar con Border y Borders, y otros no tan habituales. En la ayuda de VBA, está muy bien detallado. TintAndShade puede ser usado como propiedad (False/True). Como siempre, un saludo afectuoso. Antoni.

Hola: En el adjunto encontrareis una macro para que veais como se juega con la propiedad TintAndShade, que puede utilizarse con varios metodos, entre ellos, Interior y Font. Esta propiedad permite variar la intensidad del color aplicado a rellenos y textos. No estoy seguro que funcione en Excel2003. Degradar color.xls Saludos a todos. Antoni.

Hola Gerson: No consigo reproducir la situación que me expones, para mayor seguridad me he bajado el archivo que envíe, pero me funciona correctamente. Si puedes envía una imagen del problema. Saludos. Antoni

Hola: Ahí va el enlace: COMPROBAR.xls Un saludo. Antoni.

Hola: Nunca nadie ha escrito tanto sobre Excel y VBA en tan poco espacio. Por gentileza de Joaquín Caselles (¿?) Descargar pdf desde el post #2 Un saludo. Antoni.

Gracias _ST por tu colaboración. El aporte ya es mas tuyo que mio. Saludos cordiales. Antoni.

Hola de nuevo Juan: He reiniciado el ordenador, he borrado caché e historial y todo sigue igual. Animo, estamos contigo. Antoni.

Hola: Lo siento Juan. Mantengo todo lo dicho en mi último post. Un saludo. Antoni. Visualizador de archivos.zip

Hola Juan: He estado probando mas de dos horas, y he llegado a la misma conclusión que Abraham, solo se pueden subir archivos que ya habían sido subidos previamente. Pero, con una salvedad importante, si un archivo que sube perfectamente, porqué ya había subido previamente, vuelves a obteber un nuevo zip e intentas subirlo de nuevo, ya no sube mas. Error: [iOError Event Type=IOError Bubbles=false Cancelable=false EventPhase=2 TextError=2038 Yo uso Google Chrome. Un saludo. Antoni. ¿ Porqué intentaste arreglarlo si ya funcionaba ?, jajaja

Hola: Se explica por si solo. Function COMPROBAR(Rango As Range) As String '-------------------------------------------------------- 'Esta UDF, comprueba que los valores de las celdas de 'la última fila y última columna del rango, coincidan con 'el sumatorio de los valores de las celdas de sus respectivas 'filas y columnas del rango, en caso de diferencias, se añade 'un comentario con el valor calculado 'Ejemplo: ' ' Rango A3:D5, se comprueba que, ' ' A3+B3+C3=D3 ' A4+B4+C4=D4 ' A5+B6+C5=D5 ' A3+A4=A5 ' B3+B4=B5 ' C3+C4=C5 ' D3+D4=D5 ' '-------------------------------------------------------- Dim MAXROW As Double Dim MAXCOLUMN As Double Dim MINROW As Double Dim MINCOLUMN As Double Dim TOTAL As Double Dim x As Double, y As Double '-------------------------------------------------------- 'Inicializamos variables COMPROBAR = "" MAXROW = 0: MAXCOLUM = 0 MINROW = 999999: MINCOLUMN = 999999 '-------------------------------------------------------- 'Buscamos fila y columna de 1ª y última celda del rango On Error Resume Next For Each CELDA In Rango CELDA.ClearComments If CELDA.Row > MAXROW Then MAXROW = CELDA.Row If CELDA.Column > MAXCOLUMN Then MAXCOLUMN = CELDA.Column If CELDA.Row < MINROW Then MINROW = CELDA.Row If CELDA.Column < MINCOLUMN Then MINCOLUMN = CELDA.Column Next '-------------------------------------------------------- 'Si no hay rango, nos vamos If MAXROW = MINROW And MAXCOLUMN = MINCOLUMN Then Exit Function '-------------------------------------------------------- 'Cuadramos filas For x = MINROW To MAXROW TOTAL = 0 For y = MINCOLUMN To MAXCOLUMN - 1 TOTAL = TOTAL + ActiveSheet.Cells(x, y) Next y If TOTAL <> ActiveSheet.Cells(x, MAXCOLUMN) Then Beep With ActiveSheet.Cells(x, MAXCOLUMN) .AddComment .Comment.Text Text:="Sumado: " & FormatNumber(TOTAL) .Comment.Shape.Height = 20 .Comment.Shape.Width = Len(FormatNumber(TOTAL)) * 12 + 20 End With End If Next x '-------------------------------------------------------- 'Cuadramos columnas For y = MINCOLUMN To MAXCOLUMN TOTAL = 0 For x = MINROW To MAXROW - 1 TOTAL = TOTAL + ActiveSheet.Cells(x, y) Next x If TOTAL <> ActiveSheet.Cells(MAXROW, y) Then Beep With ActiveSheet.Cells(MAXROW, y) .AddComment .Comment.Text Text:="Sumado: " & FormatNumber(TOTAL) .Comment.Shape.Height = 20 'Alto .Comment.Shape.Width = Len(FormatNumber(TOTAL)) * 12 + 20 End With End If Next y End Function [/CODE] Probarla a ver que os parece. Quizás ya exista, si es así, se ruega eliminar el post. Saludos. Antoni.

Seguro que sirve. Saludos. Antoni PD: Y aunque solo exista una, también puede estar a la derecha(After) o a la izquierda(Before).

Hola _ST: Muchas gracias por tus consejos, los tendré en cuenta. Esto para que no se cansen tus dedos, jajaja Private Sub BorrarFormulario() Dim Formulario As Object Dim Boton As MSForms.CommandButton On Error Resume Next For x = __ To __ ActiveWorkbook.VBProject.VBComponents.Remove _ ActiveWorkbook.VBProject.VBComponents.Item("Userform" & x) Next x End Sub[/CODE] Saludos cordiales. Antoni.

Hola _ST: Ese es el problema, de cada tres veces, mas o menos, que ejecuto la macro con esa propiedad, dos me da el error descrito en mi último post. No sigue ninguna regla, igual funciona 5 veces seguidas que falla otras 7. Por eso opté por pasar del tema. No obstante, gracias por el interés. Hasta siempre. Antoni.

Hola Germán, me alegro que lo hayas conseguido. El valor añadido que creo que tiene este aporte es, por un lado, ver las posibilidades del objeto VBProject, y por otro lado te proporciona un formulario con una estructura creada y que se puede utilizar como formulario Menú, añadiéndole otros controles y adaptandolo a tu gusto y a y tus necesidades. Hasta otra. Salu2. Antoni.

Hola Agerman: Mirate los posts #8 y#9 que contesté a Luis. Salu2. Antoni.