Dante Amor

H o l a: ¿Hay qué retroceder desde F28 hasta F20 y también retroceder desde B27 y hasta B20? ¿Y hacia adelante desde K20 y hasta K29?

H o l a: Tendría que hacerse con una macro. Si quieres que te prepare la macro dime, ¿en la celda A7 quieres el resultado? En las celdas A1 a A5 pondrías los textos y de B1 a B5 pondrías el formato que requieres, ¿o explícame cómo pondrías los datos...

H o l a: Te anexo la macro actualizada Sub Buscar4() Set h2 = Sheets("AGENDA") Set h3 = Sheets("REAGENDAR") Set h4 = Sheets("HISTORIA") h3.[D6:D22].ClearContents ' If h3.[D4] = "" Then MsgBox "Número de Registro Único (RU) de la cita está VACIO." &...

H o l a: Disculpa, pero no entendí esto: "ocultar las columnas que son falsas" Quieres que de las columnas 1 a la 20, después que haces un filtro, ¿si en alguna de las filas está la palabra "falso" que se oculte toda la columna? Si es algo diferente,...

H o l a: Agrega lo siguiente: Sub GrabarenRed() ' Application.DisplayAlerts = False ActiveWorkbook.SaveAs Filename:="\\DERMATOLOGA1\manager\PruebaGraba.xlsx", _ FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False End Sub s a l u d o s

H o l a: Te anexo la macro, cambia "A" y "B" por las columnas que quieras comparar. Sub CompararColumnas() 'Por.Dante Amor col1 = "A" col2 = "B" For i = 1 To Range(col2 & Rows.Count).End(xlUp).Row Set b = Columns(col1).Find(Cells(i, col2),...

H o l a: No entendí muy bien lo que necesitas. ¿Quieres qué modifique las macro que ya tienes o quieres nuevas macros? Si quieres nuevas macro, ¿me puedes explicar paso a paso lo que necesitas? Mencionas que quieres copiar el título, ¿pero dónde se...

H o l a: Hay que agregar esta instrucción: Application.ScreenUpdating = False: 'Por. Dante Amor Application.ScreenUpdating = False Application.DisplayAlerts = False Sheets("Base").Copy ActiveWorkbook.SaveAs "Pacientes.xlsx",...

H o l a: Te anexo la fórmula, supongo que en la columna A tienes letras "P" o "F", entonces utiliza la siguiente fórmula: =(CONTAR.SI(A1:A8,"P")*30)-(CONTAR.SI(A1:A8,"F")*30) Cambia el 8 por el número de fila de la última fila con datos.

H o l a: Agrega las siguientes líneas 'Por. Dante Amor Application.DisplayAlerts = False Sheets("Base").Copy ActiveWorkbook.SaveAs "Pacientes.xlsx", FileFormat:=xlOpenXMLWorkbook ActiveWorkbook.Close s a l u d o s