-
Extraer numeros de cadena alfanumerica (mejorada)
Gracias por el comentario, pero sólo he aplicado una técnica conocida el uso de indice para evitar los corchetes, todo el mérido de la fórmula es de Gerson Me ha parecido interesante tu aporte a este tema, un comentario falta nuestra querida "Ñ". Buena aclaración sailepaty, no sabía que incluso en ocasiones es más lenta.
-
Extraer numeros de cadena alfanumerica (mejorada)
La de Gerson sin corchetes: =--EXTRAE(A2; COINCIDIR(1;INDICE(--ESNUMERO(--EXTRAE(A2;FILA(INDIRECTO(1&":"&LARGO(A2)));1));;); CONTAR(INDICE(--EXTRAE(A2;FILA(INDIRECTO(1&":"&LARGO(A2)));1);))[/CODE]
-
Editar una hoja con un listbox y proceso multiselección
Encantado de tus "aburrimientos". Un saludo,
-
Validación de datos sin usar "Validación de datos"
En ese sentido no he tenido ningún problema, "debería" funcionar ya que la propiedad por defecto (que yo sepa) es .Value. No debería funcionar igual si la variable está declarada en el módulo de hoja, en lugar de variable public en un módulo estándar.
-
Nuevo aporte: Grafico en Userform para ver capacidad discos (usando ocw11)
Buen aporte Abraham
-
Control de Puertos desde Excel
Interesante aportación digitalboy
-
Turbo Filtro
No, gracias a ti, la macro es tuya. Sólo añadí una sugerencia a lo que comentaba Cgr1964. P.D. Acabo de comprobar que funciona igual que esto (a veces la solución más sencilla es la correcta): Private Sub Worksheet_Change(ByVal Target As Range) Application.ScreenUpdating = False On Error Resume Next Range("B4").CurrentRegion.AdvancedFilter 1, _ Range("B1").CurrentRegion Application.ScreenUpdating = True End Sub[/CODE]
-
Turbo Filtro
Es que has definido la dirección de la celda actual después de aplicar el filtro (cuando ya habías seleccionado la celda B2). Prueba esto: Private Sub Worksheet_Change(ByVal Target As Range) Dim CeldaTemp As String CeldaTemp = ActiveCell.Address Application.ScreenUpdating = False On Error Resume Next Range("B4").CurrentRegion.AdvancedFilter 1, _ Range("B1").CurrentRegion Range(CeldaTemp).Select Application.ScreenUpdating = True End Sub[/CODE]
-
Turbo Filtro
Podrías solucionarlo con algo asi: Private Sub Worksheet_Change(ByVal Target As Range) Dim CeldaTemp As String CeldaTemp = ActiveCell.Address '___Código Range(CeldaTemp).Select End Sub[/CODE]
-
Extraer Unicos (formula NO matricial)
Adaptación de la macro de Antoni, manteniendo la idea principal. Extraer unicos CON macro_tuve.zip
-
Extraer Unicos (formula NO matricial)
Gracias rolano y Antoni
-
Extraer Unicos (formula NO matricial)
Antes de nada felicitar a Gerson Pineda-El Catracho por su gran aportación. Antoni, he adaptado tu macro, simplemente para que funcione de otra forma pero manteniendo la idea principal (que es muy buena), pero al llevar la macro a un módulo estándar me dá error, entiendo que el problema se produce por la variable N, he visto que se comporta como un ComboBox pero no consigo integrarla en el procedimiento, podrías explicar como conseguirlo, la pregunta la extiendo a cualquier miembro del foro que sepa solucionar este problema. saludos, Sub RangoUnicos() '___Adaptación "Extraer únicos" idea Macro Antonio, www.ayudaexcel.com, 05/10/10 Dim Celda As Range Dim UltimaFila As Long N.Clear For Each Celda In ActiveSheet.Range("F2:F25") 'Rango con los datos N.Text = Celda.Value If N.ListIndex = -1 Then N.AddItem Celda.Value Next '___Borro los datos existentes para mostrar la lista de valores únicos (en una sola columna) UltimaFila = ActiveSheet.Cells(Rows.Count, "J").End(xlUp).Row ActiveSheet.Range("J2:J" & UltimaFila).Value = "" '___Comienzo de entrada de datos a partir de la celda J2 ActiveSheet.Range("J2:J" & N.ListCount + 1).Value = N.List End Sub[/CODE]
-
No permitir seleccionar fuera del rango de la hoja
Algo similar, With ActiveSheet .ScrollArea = .UsedRange.Address End With[/CODE]
tuve
Miembro
-
Unido
-
Última visita