Dante Amor

Prueba lo siguiente: Sub Bucle_Rangos() Dim sName As String, i As Long, r As Range sName = "rangopdf" 'Nombre del rango sin el número For i = 1 To 6 'cambia 6 por el número máximo de rangos Set r = Range(sName & i) r.Select ' 'el resto de la macro '...

Sin embargo quisiera sacar una copia del libro (con todas sus hojas) pero que sea solamente de valores... Algo así como un libro sin macros y con la misma enviarlo por correo a un correo predeterminado Prueba la siguiente: Sub CopiarHojasEnviar() Dim...

Los 2 libros deben estar abiertos Sub copiarhojas() Dim sh As Worksheet For Each sh In Workbooks("Libro2.xlsx").Sheets sh.Cells.Copy ThisWorkbook.Sheets(sh.Name).Range("A1") Next End Sub

Si el textbox tiene formato, puedes utilizar la función CDbl para convertir el texto a valor numérico: Private Sub TextPrecio_Change() If Combo_C_V = "COMPRA" Then TextTGtos = ((TextNroTitul * TextPrecio) * TextPorc / 100 + _ (TextNroTitul *...

No entiendo bien qué necesitas. ¿Tienes un gráfico en una hoja? ¿Quieres ese gráfico en un userform? Si es así, tienes que guardar el gráfico como imagen en un archivo. Después se carga el archivo en un control Image en el formulario. Te pongo...

Prueba la siguiente: Option Explicit Sub CopiaDatos() Dim uf As Long Application.ScreenUpdating = False With Sheets("Hoja2") If .FilterMode Then .ShowAllData 'Quitamos el filtro uf = .Range("AQ" & Rows.Count).End(3).Row .Range("AQ1").AutoFilter...

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...

Tienes mal el nombre de la variable: Dim sseparadorruta as string Y la utilizas así: (te falta la primera letra "e") ssperadorruta = Application.PathSeparator Y luego la tienes con la letra "e": Application.ActiveWorkbook.SaveCopyAs Filename:=sruta &...

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")