Antoni

Jolín, que sentidos sois los "formulianos", os ofendeis enseguida, pero si en el fondo todos sabemos que os gustaría usar macros, ¡¡ Venga hombre !! animaros a usarlas, si es mucho mas sencillo de lo que parece, luego me lo agradecereis. ¡¡¡ Que nunca se pierda el sentido del humor !!! Saludoooooooooos a todoooooooooooos. Macro Antonio.

Gracias catracho, comentarios como los tuyos te hacen engordar 10 kilos, jajaja Un saludo enorme. Antoni.

Hola: Siguiendo mi misión de evangelización por territorios "formulianos", os dejo una mini macro que sustituye a vuestras mas de 200 fórmulas. Sub SepararTexto() On Error Resume Next Application.ScreenUpdating = False If Selection.Columns.Count <> 1 Then Exit Sub If Selection.Column <> 1 Then Exit Sub For x = 1 To Selection.Rows.Count celdas = Split(Cells(x, 1), Cells(x, 2)) y = 4 For c = 0 To 14 If celdas(c) = "" Then Cells(x, y) = Cells(x, 3) Else Cells(x, y) = celdas(c) End If y = y + 1 Next c Next x End Sub [/CODE] ¿ Porqué matar moscas a cañonazos cuando existe el insecticida ?. Saludos. Antoni.

Hola: Os adjunto un formulario con un combobox y un sistema de búsqueda en él. En el propio formulario están las instrucciones. Fijaros en la potencia del operador Like y la función Split. ComboSearch.xlsm Salu2. a to2 ....to2. Antoni.

Hola Juan: Ahora ni siquiera me permite ver los archivos de mi PC. Un saludo. 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.