
Todo se publica por Antoni
-
Separar texto alfanumérico en celdas con el separador personalizado
Os podeis creer que no recuerdo este tema: Macro para separar texto y valores en Distintas columnas Y parece que participé y todo. Cada día estoy peor.
-
Separar texto alfanumérico en celdas con el separador personalizado
No confundas fornelasa, aquí nadie se pelea con nadie, es simplemente para darle un poco de "vidilla" y humor a las cosas. Una saludo para todos. Macro Antonio, anteriormente conocido por Antoni.
-
Separar texto alfanumérico en celdas con el separador personalizado
Hola: Me temo que va a ser que no. La macro corre correctamente para cualquier fila. De hecho está adaptada a la primera imagen que proporcionaste, es decir, Texto en la columna 1, Separador en la columna 2, Auxiliar de relleno en la columna 3 y Resultados a partir de la columna 4. La macro funciona con una selección de celdas de la columna 1. fijate en la instrucción: For x = 1 To Selection.Rows.Count[/CODE] Hoy voy a ser bueno, y voy a colaborar con el "enemigo": He hecho esta UDF con los parámetros que querías. [CODE]Function DESCONCATENAR(Texto As Range, _ Posicion As Integer, _ Optional Separador As Variant = ",", _ Optional Auxiliar As Variant = "") As Variant On Error GoTo Herror If Texto.Columns.Count <> 1 Then Exit Function Celdas = Split(Texto, Separador) DESCONCATENAR = Celdas(Posicion - 1) Exit Function Herror: DESCONCATENAR = Auxiliar Resume Next End Function [/CODE] [b]DESCONCATENAR(Texto; Número de celda a separar; [separador]; [Auxiliar de relleno])[/b] Salu2. Macro Antonio. PD: Me acabo de dar cuenta que ya habías desarrollado la UDF, pues ale, dos por el precio de una.
-
Necesito de la colaboración de los foreros.
Gracias Germán, parece que ya va gracias a tus recomendaciones. No ha sido necesario desactivar el Editor de texto WYSWYG. Saludos. Macro Antonio, antiguamente conocido como Antoni. 3CommandButton.zip
-
Separar texto alfanumérico en celdas con el separador personalizado
Parece mentira el deterioro cerebral que se sufre con el paso de los años. ¿ No será un exceso de tequila ?, hazme caso, pásate a la cerveza y lo verás todo mas claro.....jajaja:rolleyes: Un saludo muy cordial desde la tierra de las meigas. Macro Antonio.
-
Separar texto alfanumérico en celdas con el separador personalizado
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.
-
Buscar en un combobox
Gracias catracho, comentarios como los tuyos te hacen engordar 10 kilos, jajaja Un saludo enorme. Antoni.
-
Separar texto alfanumérico en celdas con el separador personalizado
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.
-
Buscar en un combobox
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.
-
Necesito de la colaboración de los foreros.
Hola Juan: Ahora ni siquiera me permite ver los archivos de mi PC. Un saludo. Antoni.
-
[CERRADO] Chimpun, Chimpun, Chimpun... FELICIDADES!!
Me uno en todo a lo comentado por Juan. ¡¡¡ Feliz cumpleaños !!! Saludos. Antoni.
-
Fijar la celda activa en el mismo lugar de la pantalla
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.
-
UDF para marcar con estrellitas de colores el resultado de una comparación
Cenquiu berimach.
-
UDF para marcar con estrellitas de colores el resultado de una comparación
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.
-
UDF para comprobar sumas en un rango de celdas
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.
-
49 ejercicios prácticos y de Fermi Vila Parte I (1 al 3)
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.
-
Cuadro de dialogo para ver las hojas que están ocultas
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.
-
Cuadro de dialogo para ver las hojas que están ocultas
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.
-
49 ejercicios prácticos y de Fermi Vila Parte I (1 al 3)
Hola: A mi tampoco me lo descarga. Salu2. Antoni. ¡¡¡ Solucionado !!! Era un problema de inutilidad personal.
-
UDF para comprobar sumas en un rango de celdas
Hola Gerson: ¿ Has probado poniendo un punto de interrupción y seguir la UDF paso a paso ?
-
Degradar color en un rango de celdas
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.
-
Degradar color en un rango de celdas
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.
-
UDF para comprobar sumas en un rango de celdas
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
-
UDF para comprobar sumas en un rango de celdas
Hola: Ahí va el enlace: COMPROBAR.xls Un saludo. Antoni.
-
VBA y objetos Excel en 3 páginas
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.