Sebas Torres

¿Disculpa qué sea medio duro je je pero lo que tu quieres hacer es sumar celdas de una hoja y poner el resultado en otra? ¿Y por qué no simplemente ingresas una fórmula? Ejemplo: Quieres sumar la celda D77 de la hoja Tray1 con la celda D77 de la hoja...

Private Sub Userform_initialize() xCel = Activesheet.Range("J1") Me.Height = 270 Me.ComboBox3.List = Application.Transpose(Hoja1.Range("c3").CurrentRegion.Resize(1).Value) Application.EnableEvents = False c00 = xCel '<---colocar direccion en celda J1...

Si tu idea es un userform de carga simplemente por elegancia hazlo asi Esto en un modulo, una macro para cargar la imagen y otra para cerrar el form Public Sub Carga_Gif() ' Con esta macro cargamos la imagen y llamamos el form img =...

Si lo que deseas es ejecutar una macro a cierta hora tendrás que dejar el libro abierto o de lo contrario usar la apertura del libro para verificar la hora... Usando la apertura coloca esto dentro de "ThisWorkBook" Private Sub Workbook_Open()...

Sub CreaLibroCopiaDatosdeHoja1() Dim Arch As String Arch = "NombreDeArchivo.xlsm" ' AQUI EL NOMBRE DEL ARCHIVO NUEVO Application.Workbooks.Add ActiveWorkbook.SaveAs Filename:="C:\Users\User\Desktop\" & Arch, _...

Si te refieres a copiar una hoja entera es Sheets("NombreHoja").Copy After:=Sheets(Sheets.Count) Cambia NombreHoja por la hoja que deseas copiar

Sólo escribe en un módulo ActiveSheet.Name = Range("A1").Value

No comprendo bien lo que deseas hacer pero te paso el link de un archivo que cree hace tiempo quizás te sirva para orientarte u puedas usarlo Hace como dices tu, escribes el nombre en una celda en este caso es un DNI y si concuerda aparece la imagen...

Agregando esta pequeña línea en tu if te captura la ruta x = Path & "\" & b Te quedaria asi If extension = "PDF" Then ComboBox1.AddItem b: x = Path & "\" & b Cuando ingreses el item en A1, ingresa "x" en B1 Espero haberte ayudado compañero No olvides...

Esta es tu macro Set hojadestino = ThisWorkbook.Sheets(nombrehoja).Range("A1").CurrentRegion nuevafila = hojadestino.Rows.Count + 1 With ThisWorkbook.Sheets(nombrehoja) .Cells(nuevafila, 1).Value = Me.ComboBox9.Value . Cells(nuevafila, 2).Value =...