Antoni

Los objetos Font e Interior son solo para rangos de Excel, para controles ActiveX deben utilizarse las propiedades ForeColor y BackColor. Crono.xlsm

La macro tal como la tienes solo puede ejecutarse 1 vez, también has de tener cuidado con que los nombres no se dupliquen. Aclara un poco más el error y en que circunstancias se produce.

Supongo que falta afinar alguna cosilla, pero en conjunto, resulta. Este ha sido mi post Nº 10.000 🙂 AYUDAEXCEL ENVIO DE PEDIDOS POP.xlsm

Worksheets("hoja2").Range("b2:ac33").Interior.ColorIndex = xlNone

Efectivamente, para hacer lo que tu quieres utiliza un Do/Loop, por ejemplo: x = 4 n = 1000 Do Until x = n If .... Then n = 1200 x = x + 1 loop

Modificando el valor de la variable del For, o sea, en el ejemplo For x = 1 To Hasta, podemos modificar la variable x dentro del bucle. Elvalor de la variable Hasta se toma al iniciar el bucle.

For x = Range("A" & Rows.Count).End(xlUp).Row To 4 Step -1 ' ' Aquí tu código ' ' Next

Sin ver la solución de JSDJSD, selecciona el rango y ejecuta esta macro: Sub NOMPROPIO() For Each CELDA In Selection CELDA.Value = Evaluate("=PROPER(""" & CELDA & """)") Next End Sub

Si, si se puede. Sube una muestra del archivo con un ejemplo del antes y el después de la macro.

Ten paciencia el fin de semana y te preparo algo.

Probad esta macro, aunque solo sea por curiosidad (Gentiliza de Héctor Miguel) Sub SheetsNavigator() With Application.CommandBars.FindControl(ID:=957) If Right(.Caption, 3) = "..." Then .Execute Else .Parent.ShowPopup End With End Sub Otra curiosidad, en el tab de hojas, en la parte de las flechas de la izquierda, probad a hacer Click derecho, a ver que pasa.

Pues lo mismo, pero con el evento MouseMove del Userform.

Añade al final de la macro Borrar(): Hoja1.xNum = 0

La función Val() no debe utilizarse para convertir de texto a número ya que solo extrae los números de izquierda a derecha hasta el primer carácter no numérico. Usa la función CDbl() o CCur. Funciones de conversión de tipos de Visual Basic .

Vamos a ver, el único secreto de esta forma de programar cuando hay múltiples controles, se basa en ser muy riguroso con el nombre de los controles, o sea, todos los controles de la misma columna deben empezar por la misma letra A, T y C y todos los controles de la misma fila y del mismo turno deben tener el mismo número, por ejemplo, A1, T1 y C1 o A15, T15 y C15, resumiendo los controles deben empezar por A, T y C seguidos de un número del 1 al 14 para el el primer turno y del 15 al 28 para el segundo. Aclarado este punto, no están nada claro los conceptos Av, Supervisor, Carbón y Tolva que mencionas en tu consulta, revísalos. Y por último, podrías hacer lo mismo con solo frame de 14 filas y un combo donde se pudiera escoger el turno. Copia de Reclamo Nvo v4.xlsm

El control ListView, aunque algo más complejo de programar que el control ListBox, también es una buena alternativa. 🙂

Con el tiempo que llevas por aquí ya deberías ser capaz de hacer una modificación tan simple como esta. UDF-Cifras a letras (1).xls

Esta UDF se subió al foro de aportes en su día. UDF-Cifras a letras .xls

Algo no debes haber hecho bien, en cualquier caso te adjunto de nuevo el archivo al que le he añadido algunos adornos, también he añadido un sistema de auto-comprobación al generar los números. Joc de memòria II.xlsm

Había un error en la macro: Sub Calcular18(Rango As Range) Dim v(18) As Integer Do Until v(18) <> 0 Do: n = Int((18 * Rnd) + 1) ok = True For x = 1 To 18 If v(x) = 0 Then Exit For If v(x) = n Then ok = False Exit For End If Next Loop Until ok = True v(x) = n Loop For Each Celda In Rango c = c + 1 Celda.Value = v(c) Next End Sub

Otra versión sobre tu archivo. Joc de memòria.xlsm

En el adjunto encontrarás un juego de emparejamiento. El juego permite hasta 18 números/letras/palabras/frases o lo que se te ocurra. Los valores y formatos se toman de la columna A de la hoja NÚMEROS,. Pulsa CREAR JUEGO para empezar. Los mensajes de alerta desaparecen al cabo de 2 o 3 segundos. JUEGO CASAR PAREJAS.xlsm

Puede haber alguna pista por aquí: Run-time Error 2147352571(8002005) Prueba también añadir .Value al AddItem Me.cbx_Cliente.AddItem .Cells(i, 3).Value También he tenido problemas al utilizar Final como nombre de variable.

Lo mismo que Abraham, pero agrupando las líneas como un solo objeto en la propia macro. Modifica esta parte: '.... '.... 'Barcode drawing Dim Grupo() As String CurBar = 0 ReDim Grupo(0) For i = 1 To Len(ContentString) Select Case Mid(ContentString, i, 1) Case 0 CurBar = CurBar + 1 Case 1 CurBar = CurBar + 1 TargetSheet.Shapes.AddLine(X + (CurBar * LineWeight) _ * XCompRatio, Y, X + (CurBar * LineWeight) _ * XCompRatio, (Y + Height)).Select With Selection.ShapeRange .Line.Weight = LineWeight .Line.ForeColor.RGB = vbBlack End With Grupo(UBound(Grupo)) = Selection.Name ReDim Preserve Grupo(UBound(Grupo) + 1) End Select Next i ActiveSheet.Shapes.Range(Grupo).Select Selection.ShapeRange.Group.Select Selection.Placement = xlFreeFloating ActiveCell.Select End Sub

No, no te explicas bien y sin archivo, menos.