Sebas Torres

Imagino que si tienes un archivo que le indicas un valor y te tira 200 datos te estas refiriendo a que es un ciclo que se repite 200 veces para conseguir dichos datos... de ser asi podrias indicarle en cada vuelta que pegue el dato en una celda...

Estas repitiendo =SI(G4="Mecanico 1";(F8*G5)+(F9*G6)+(F10*G7);SI(G4="Mecanico 2";(F8*G5)+(F9*G6)+(F10*G7);"")) De esta forma, si no dice mecanico 1 seguira con la siguiente condicion que es mecanico 2, y tampoco dice mecanico 2, entonces quedara en...

Si lo quieres poner en la hoja para que se ejecute solo tras cada cambio seria asi: Private Sub Worksheet_Change(ByVal Target As Range) If UCase(Range("A1").Value) = "BASIC" Then Columns("F:G").Hidden = True ElseIf UCase(Range("A1").Value) = "PLUS"...

Podrías simplemente crear una lista desplegable con las opciones y dentro del módulo de la hoja crear un if en el modo "change" de la siguiente forma Private Sub Worksheet_Change(ByVal Target as Range) If range("A2").value = "A" Then ' A2 sería la...

Compañero te mando una imagen porque esta web anda cada dia peor y no deja escribir macros...

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

No conozco mucho de access pero quizás la respuesta de este experto en una situación parecida a la tuya te sea de utilidad.. te dejo el link para que le des una ojeada =) Ver respuesta de experto

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

Las iso descargadas desde la web Microsoft son 100% funcionales, si tienes problemas al instalarlas seguramente tengas la memoria usb dañada u el puerto que estés usando está dañado prueba cambiar de puerto y si el problema persiste tendrás que usar...

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

¿Este es el sistema de fábrica del equipo? Pregunto esto porque yo tenía un equipo con win10 y lo pasé a win7 y no me dejaba activar el wifi, después de rato de buscar por toda la red cual era el problema descubrí que era problema del bios, tuve que...

Probaste así Sub NombreMacro() On Error GoTo x 'Aqui va tu macro x: Unload Me: Exit Sub End Sub No olvides valorar la respuesta si te fue util