Macro_Leo

Sveinbjorn El Rojo Tenias razón era un problema mio de un addin Gracias al comentario que vos no tenias Menu me di cuenta Te hago una mini pregunta Se puede agregar un espacio en blanco para insertar una nueva linea de código en la tabla ribbon Si...

Te paso la macro. Lo que hace es: Escribís el valor en la celda A1, pulsas enter y pasa el valor al textbox. El textbox es activex. Private Sub Worksheet_Change(ByVal Target As Range) 'Macro grabada por Macro_Leo Range("A1").Select TextBox1.Value =...

Soy Macro_leo. Te envió la respuesta. Sub velocidad() On Error Resume Next Range("B16").Activate ultima = Range("B15").Value * 100 crecientes = Range("B16").Value * 100 For crecientes = 0 To ultima Step 0.5 Application.OnTime Now +...

Sveinbjorn El Rojo Puntué y agradecí tu respuesta en mi cuenta de experto sale el comentario, pero desde el tablón no!.

Te paso la macro que necesitas: Sub textoaxls() 'Por Macro_leo Dim fileName fileName = Application.GetOpenFilename("Text Files (*.txt),*.txt") If fileName <> "False" Then Sheets("Hoja1").Select On Error GoTo Salir With...

Te paso la macro que necesitas: Sub Sacaacentos() Cells.Select 'Por. Macro_Leo Selection.Replace What:="á", Replacement:="a", MatchCase:=True Selection.Replace What:="é", Replacement:="e", MatchCase:=True Selection.Replace What:="í",...

Te envío la macro que necesitas: Sub contarceld() Dim argén As Integer 'Por. Macro_Leo canrow = 0 uf = Sheets("hoja1").Range("A" & Rows.Count).End(xlUp).Row For u = 1 To uf If Sheets("hoja1").Cells(u, 1) <> Empty Then argén = argén + 1 End If Next u...

Fmoreno 85 Te envío la formula que necesitas: Esta macro la tenes que poner en el modulo: Function formatcolor(Celda As Range, Amarillo As Integer, blanco As Integer, celeste As Integer) As Boolean 'Por Macro_Leo If Celda(1, 1).Interior.Color =...

Te envío el código que necesitas: Este ejemplo de barra de progreso se ejecuta en la barra de estado. Tenes que poner las dos macros en un modulo. Sub AtualizaBarra(prog) Dim R As Integer Dim MT As Double For R = 1 To 50 MT = Timer Do Loop While...

Te envío la macro que estabas buscando: Sub Boton() 'Por Macro_Leo Sheets("Hoja1").Select Range("B1"). Copy 'cambiar por tus datos Sheets("Hoja2"). Range("a65000").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlValues Range("C1"). Copy Sheets("Hoja2")....