Preguntas esperando respuesta
Actividad pública reciente
Ha valorado "Buena" la respuesta
Modificación de macro para guardar hojas de un libro
Con el grabador de macros copia el contenido de la hoja y haz pegado especial / valores. Luego adaptas ese código para que se ejecute después de la copia y antes de guardar el libro. Me comentas si tienes inconvenientes. S@lu2
Ha valorado "Excelente" la respuesta
Combinar formatos condicionales entre filas y columnas
Ha preguntado en el tema en
Microsoft Excel
Distribuir una tabla aleatoriamente con condicionantes
Tengo una tabla con más de 25000 registros, quiero hacer una distribución entre otra lista con 968 registros, el problema viene cuando necesito que se cumpla lo siguiente: la columna H de la hoja Hoja 3 sea igual a la columna C de la Hoja 4, ya que...
Sin respuestas
Ha valorado "Excelente" la respuesta
Macro para copiar formulas y pegar valores, solo en celdas con contenido
Supongo que el valor que pones en caso de error en la función Si. Error( ) es un blanco, entonces la macro quedarías así: Sub Copiar_Contenido() ' For Each celda In Range("D8:BB36") If celda.Value <> "" Then celda.Value = celda.Value End If Next End...
Ha preguntado en el tema en
Microsoft Excel
y en 1 temas más
Copiar y pegar valores en celdas con datos en tabla
Tengo una hoja donde se irán guardando los datos dependiendo el valor de una celda, esta celda es dinámica que va cambiando dependiendo unos filtros, el punto es que si cambio esta celda los datos que había guardado se borran dado que utilice un...
Sin respuestas
Ha valorado "Buena" la respuesta
Juntar dos rangos de hojas distintas y dejar valores únicos
Fíjate si esto aporta algo https://youtu.be/G-z1YGjYgkk https://www.programarexcel.com/2013/04/macro-extrae-datos-en-base-criterios-y.html https://programarexcel.com
Ha valorado "Excelente" la respuesta
Guardar una hoja del libro con contenido de celda
Te anexo la macro Sub Guardar_Hoja() 'Por Dante Amor hoja = "Hoja7" arch = Sheets(hoja).Range("E6").Value Set objWSHShell = CreateObject("WScript.Shell") escritorio = objWSHShell.SpecialFolders("Desktop") & "\Evaluaciones\" If Dir(escritorio,...
Ha valorado "Excelente" la respuesta
Modificación en macro para copiar
Prueba con la siguiente Sub CopiarCeldasAlumnos() Dim wsOrigen As Excel.Worksheet, _ wsDestino As Excel.Worksheet, _ rngOrigen As Excel.Range, _ rngDestino As Excel.Range Set wsOrigen = Worksheets("BD_Alumnos") Set wsDestino =...
