Antonio Perez

Por problemas relacionados a la respiración, el médico Internista me ordenó la práctica de un "TAC DE TORAX CON CONTRASTE"; en la interpretación del mismo por parte del Médico Radíologo en la parte de Conclusión dice así: Ganglios calcificados en el...

Solicito de su ayuda para encontrar solución a la siguiente necesidad: De un libro de excel se exporta una gran cantidad de información y toda ella al copiar y pegar en su destino, conservando su formato de origen se mantiene en Formato "General";...

DAM, en esta oportunidad requiero de tu ayuda como siempre; he obtenido investigando las siguientes macros: Private Function GetValue(path, file, sheet, ref) ' Retrieves a value from a closed workbook Dim arg As String ' Make sure the file exists If...

Dam, por favor, necesito de tu ayuda para corregir la siguiente macro: Private Sub btn_iniciar_Click() Set H3 = Sheets("ALEATORIO") Set h1 = Sheets("EVALUACION") Set h2 = Sheets.Add H3.Select Range("Q1:Q40").Select For Each Celda In Selection y = 3...

Dam, necesito una macro para validar el acceso a un libro por medio de usuario, password y estatus que se depositan o se encuentran registrados en la hoja "CLAVES", tengo el siguiente código: Private Sub btn_Registrar_Click() Dim usuario As String...

Private Sub CommandButton1_Click() 'Por.Dante Amor Set h1 = Sheets("EVALUACION") Set H2 = Sheets.Add archivo = ThisWorkbook.Path & "\" & "temp.jpeg" Rango = "B48" ' & fila h1.Range(Rango).CopyPicture H2.Shapes.AddChart With H2.ChartObjects(1) .Width...

Dam, por favor; en esta oportunidad requiero rellenar una secuencia de fechas como se muestran en la imagen de fondo amarillo partiendo de la celda "F29" que correspondería a la fecha actual, se deben tener en cuenta los siguientes aspectos: En el...

Private Sub btn_siguiente_Click() 'Por.Dante Amor Titulo = "ACADEMIA DE CONDUCCIÓN" Application.ScreenUpdating = False Application.DisplayAlerts = False Set h1 = Sheets("EVALUACION") Fila = ActiveCell.Row If Fila < 3 Then Fila = 3 If Fila < 3 Or Fila...

Private Sub CommandButton1_Click() 'Por.Dante Amor Application.ScreenUpdating = False Application.DisplayAlerts = False Set h1 = Sheets("EVALUACION") fila = ActiveCell.Row Set h2 = Sheets.Add archivo = ThisWorkbook.Path & "\" & "temp.jpeg" ' rango =...

Dam, en esta oportunidad invoco tu ayuda para lo siguiente: En un formulario provisto principalmente de tres CommandButton y un Label1, en su propiedad "Caption" me muestre el contenido de una celda activa de la Columna J Cuando el contenido de la...