Rog Zavala

Rog Zavala

 México @rogeliozavala2 desde - visto
Preguntar

Actividad pública reciente

Ha valorado "Buena" la respuesta

Modificación de macro para guardar hojas de un libro

respondió: 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

respondió: A ver si entendí..
Ha preguntado en el tema en

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

respondió: 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 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

respondió: 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

respondió: 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

respondió: 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 =...