Respuesta
en
Microsoft Excel
a
Copiar texto en un cuadro de texto
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 =...
Respuesta
en
Microsoft Excel
y en 1 temas más
a
Detener Bucle al igualar valor de otra celda
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 +...
Respuesta
en
Microsoft Excel
a
Como puedo importar datos de un archivo .txt a una hoja de Excel mediante un macro
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...
Respuesta
en
Microsoft Excel
a
Macro. Quitar tildes (acentos) en una hoja completa excel.
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:="í",...
Respuesta
en
Microsoft Excel
a
Contar celdas en excel
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...
Respuesta
en
Microsoft Excel
a
Realizar una formula o macro para que me devuelva un valor si la celda esta rellena de color
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 =...
Respuesta
en
Microsoft Excel
a
Barra de progreso a conjunto de macros
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...
Respuesta
en
Microsoft Excel
a
Macro para traspasar datos
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")....
Respuesta
en
Microsoft Excel
a
Ejecuto mi macro y este falla a mitad del proceso, me podrían ayudar por favor
El error debe ser porque no se puede nombrar una Hoja con el Nombre "Historial" Nombres reservados en excel Intenta renombrar una de las hojas de tu libro Excel con el título “Historial”. Obtendrás el mensaje de que no puedes usar: Historial es un...
Respuesta
en
Microsoft Excel
a
Activar/ desactivar optionbutton con tecla F1, F2,.etc En userform excel 2010 es posible?
Te envío el código que buscabas. Pone el código en el userform donde tenes el OptionButton1 Private Sub OptionButton1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) 'Por Macro_Leo If KeyAscii = 49 Then Me.OptionButton1.Value = True If KeyAscii =...