Dante Amor

H o l a : Si quieres borrar un solo archivo, utiliza esta macro, cambia la ruta y el nombre de archivo a borrar. Sub BorrarCsv() 'Por.Dante Amor ruta = "G:\Pruebas\" arch = "libro1.csv" If Dir(ruta & arch) <> "" Then Kill ruta & arch MsgBox "Archivo...

H o l a: En tu ejemplo no veo los valores que hay que promediar. Puedes poner un ejemplo de los valores que vas a promediar, es decir, qué tienes en la columna A, a partir de cuál fila. Y el resultado del promedio en dónde lo quieres.

H o l a: Para realizar la macro tienes que explicar con mucho detalle. - Carpeta dónde tienes el libro cerrado. - Nombre del libro cerrado. - Nombre de la hoja del libro cerrado. - Qué datos del libro cerrado se van a leer. - En dónde se van a poner,...

H o l a: Envíame tu archivo y me dices cuáles datos van en el combo1 y cuáles deben ir en el combo2. Si puedes explícalo con un ejemplo. Mi correo [email protected] En el asunto del correo escribe tu nombre de usuario “Richard Ginocchio Maguiña” y el...

Pon lo siguiente en los eventos de tu hoja "Ingreso" Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 'Por.Dante Amor If Not Intersect(Target, Range("C27:J27, C30:J30, C33:J33, C36:J36, C39:J39," & _ "C42:J42,...

H o l a: Te anexo la macro para los eventos de la hoja Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'Por.Dante Amor 'si modificas la celda F5 If Target.Address(False, False) = "F5" Then ActualizarPaciente End If End Sub s a l u d o s

H o l a: Al parecer todos los optionbutton quedan "enlazados" o agrupados en la misma celda. Otra alternativa es que cambies los OptionButton de formulario, por OptionButton de ControlActiveX, los controles de OptionButton de ControlActiveX, los...

Te anexo la macro, cambia hoja1 por el nombre de tu hoja. Sub Copiar() 'Por.Dante Amor Set h1 = Sheets("Hoja1") h1.Unprotect "0976342842" h1.[F7].Copy h1.[F7].PasteSpecial xlAll h1.[F9].Copy h1.[F9].PasteSpecial xlAll h1.[F11].Copy...

H o l a: Te anexo la macro Sub InsertarVariosTxt() 'Por.Dante Amor Application.DisplayAlerts = False Application.ScreenUpdating = False Set l1 = ThisWorkbook Set h1 = l1.Sheets("Base") h1.Cells.Clear ruta = l1.Path & "\" txts = Array("Lima",...

H o l a: Te anexo la macro Sub ImprimirPlantilla() 'Por.Dante Amor Set h1 = Sheets("A imprimir") Set h2 = Sheets("Base") ' For i = 2 To h1.Range("A" & Rows.Count).End(xlUp).Row h2.[D2] = h1.Cells(i, "A") h2.PrintOut Next MsgBox "Impresión Terminada",...