Dante Amor

H o l a: Te anexo algunas opciones para que pruebes. Opción 1, Al momento de activar tu formulario establece el separador de decimales: Private Sub UserForm_Activate() Application.UseSystemSeparators = False Application.DecimalSeparator = "."...

H o l a: Puedes utilizar el de líneas: Lo que te estoy poniendo es un ejemplo, realmente no sé cómo tienes los datos o qué datos tienes, pero con el gráfico de líneas puedes ver con más claridad la tendencia de los valores.

H o l a: Entra al menú Edición de VBA, en Reemplazar, selecciona Proyecto Actual, escribe la palabra a buscar, escribe la nueva palabra, y presiona Reemplazar todo:

H o l a: ¿Estás programando en VBA de excel? Si es así, podrías enviarme tu archivo, me dices: Cómo se llama tu formulario,cómo se llama la hoja donde están los datos que se van a cargar,Cuáles columnas quieres que se muestren en el listbox Mi correo...

H o l a: Hay algunas cosas que no entiendo en tu petición: La macro que pusiste pone las imágenes hacia abajo y las imagen que pusiste las tienes hacia a la derecha. Quieres que arregle la macro para que ponga las imágenes hacia la derecha, ¿una...

H o l a: Puedes deshabilitar las macros. Abre un archivo nuevo, entra al menú programador, Seguridad de Macros, Configuración de macros, Deshabilitar todas las macros sin notificación, Aceptar. Guarda el archivo, lo cierras y abres tu archivo, entra...

H o l a: Ejecuta la siguiente macro en tu hoja: Sub Normalizar() 'Por.Dante Amor With Range("H2:H" & Range("B" & Rows.Count).End(xlUp).Row) .FormulaR1C1 = "=TEXT(RC[-6],""000"")" .Copy: .PasteSpecial xlValues .Cells(1, 1).Select End With...

H o l a: En el editor de VBA no se pueden utilizar caracteres gráficos, solamente es un editor de texto, lo que puedes hacer es, por ejemplo, en la celda A1 escribe el caracter "┴" y en vba pon lo siguiente: Sub Macro1() ' Columns("B:C").Replace...

H o l a: Pon la siguiente macro en los eventos de tu hoja. Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'Por.Dante Amor If Not Intersect(Target, Range("A2:A200")) Is Nothing Then fila = Target.Row If fila = 1 Then Exit Sub Cells(fila,...

H o l a: Pon la siguiente macro en los eventos de tu hoja Private Sub Worksheet_Change(ByVal Target As Range) 'Por.Dante Amor If Not Intersect(Target, Range("H3:H203")) Is Nothing Then For Each c In Target If c.Value <> "" Then Cells(c.Row, "G") = ""...