Dante Amor

Prueba lo siguiente: Option Explicit Sub MoverArchivos() Dim archivo As Variant Dim origen As String, destino As String origen = "C:\trabajo\Folder1\" destino = "C:\trabajo\varios\" archivo = Dir(origen & "*.*") Do While archivo <> "" Name origen &...

Prueba el siguiente: Sub Macro4() Application.ScreenUpdating = False Application.DisplayAlerts = False Sheets("Hoja2").Copy ActiveSheet.Protect "123", DrawingObjects:=True, Contents:=True, Scenarios:=True ActiveSheet.EnableSelection = xlUnlockedCells...

Revisa lo siguiente: MACRO para rellenar o copiar datos en filas vacias

Revisa la propiedades Showmodal del userform, debe estar en False. Con eso deberías ver la impresión previa en pantalla. También cambia tu rango Range("Ag3:u35") por Range("U3:AG35")

Ya habías realizado la misma pregunta. En la pregunta anterior te solicitó más información Gustavo Omar Fellay, generalmente cuando haces una pregunta en un foro, y alguien te responde, lo menos que puedes hacer es darle seguimiento a tu propia...

Prueba así: =SI.ERROR(PROMEDIO.SI(J2:J18,A1,L2:L18),0) Cambia las coma ( , ) por punto y coma ( ; ) si tu separador es el punto y coma ( ; )

El archivo con la macro "Facturacion 2016 CON LOGOTIPO" tiene varias referencias que no existen en la versión de excel, por eso aparece el mensaje: "No se puede encontrar el proyecto o la biblioteca" Entra a VBA, selecciona el módulo1, en el menú...

Prueba lo siguiente: Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) Dim h1 As Worksheet, r As Range, b As Range, c As Range, i As Long Set h1 = Sheets("Hoja1") ' Set r = h1.Columns("A") Set b = r.Find(TextBox1, , xlValues, xlWhole)...

Celda.Value = Cstr (celda) La función Cstr convierte un número a texto. Y lo que necesitas es una función que convierta el texto a número. Prueba la siguiente: Sub tst() Dim celda As Range For Each celda In Selection If IsNumeric(celda) Then...

Si lo necesitas para todas las filas empezando en la celda A2 y hasta la última celda con datos en la columna A, aquí una macro para considerar. Sub PromedioCeldas() Dim i As Long For i = 2 To Range("A" & Rows.Count).End(3).Row With Range("E" & i)...