Dante Amor

Te anexo la macro Sub Tabla_Unica() 'Por Dante Amor Application.ScreenUpdating = False u = ActiveSheet.UsedRange.Rows(ActiveSheet.UsedRange.Rows.Count).Row cols = s For i = 3 To u Range("B" & i & ":U" & i).SpecialCells(xlCellTypeConstants, 23).Copy...

Puedes poner algunos ejemplos reales de lo que tienes y de lo que esperas de resultado

El Poli, la Unam y el Tec imparten curso de excel básico, intermedio y avanzado. Tiene costo. Por ejemplo: http://www.upiicsa.ipn.mx/servicios/documents/udi/docs/cursos.pdf

Puedes explicar con imágenes cómo están tus datos en la hoja "Laboratorios" y otra imagen para ver cómo quieres los datos en la hoja "Datos" Explica uno de los ejemplos que vienen en las imágenes.

Puedes poner una imagen de cómo están tus datos. Con un ejemplo real explica en dónde vas a poner un valor, qué valor vas a poner, en dónde quieres el resultado o resultados y qué datos esperas de resultado.

Puedes poner varios ejemplos de lo que tienes, de lo que quieres mostrar y de lo que necesitas utilizar para el cálculo. En el ejemplo que pusiste, solamente pusiste el mismo número. 10,12345 se mostraría 10,1234 pero para los cálculos que se...

Pon el siguiente código en tu userform Cada que introduzcas el ID en el texbox, la macro buscará el ID en la columna A y cargará el combobox con las coincidencias. Cambia en el código "Hoja1" por el nombre de tu hoja. Private Sub TextBox1_Change()...

Prueba copiando la hoja completa para que te respete todos los formatos. Sub CHoja() 'Act.Por Dante Amor Dim Carpeta As String Carpeta = "C:\empresa\" Carpeta = "C:\trabajo\" MesAño = shtTurnos.[e5] & shtTurnos.[f5] nombreaforo = "Af e Ing" & "(" &...

De esta forma puedes activar o desactivar preferencias, cambia True por False para activar o desactivar las preferencias. Sub Macro9() ' ' Proteger hoja ' ' ActiveSheet.Protect "contraseña", DrawingObjects:=False, Contents:=True, _ Scenarios:=False,...

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