fgalvis

Anónimo respondió: Podrías hacer algo como Dim pathArchivo As String ... 'tu código ... pathArchivo = ThisWorkbook.Path & "\tuArchivo.txt" If Dir(DLLPath) <> "" Then Rpta = MsgBox ("Este archivo ya existe, desea reemplazarlo? " & _ vbYesNo + vbExclamation,...

Elsa Matilde respondió: Se puede controlar el resultado de una fórmula con el evento Calculate, pero te imaginas que si realizas + de 1 cálculo se hará una tarea tediosa . Según tu ejemplo donde tendrás 3 opciones creo que debieras utilizar formato condicional con fórmula...

Juan Carlos González Chavarría respondió: a), me gustaría que me enviaras una dirección de correo para enviarte un ejemplo que te puede servir. Si puedes me mandas un ejemplo de tu archivo.

Abraham Valencia respondió: Pues suponiendo que en el rango A1:A10 de tu hoja, quieres que te salga un Msgbox si escribes alguna palabra con eñe (ñ) Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, [a1:a10]) Is Nothing Then Exit Sub If Target Like "*ñ*"...

Elsa Matilde respondió: Te dejo una rutina para que coloques en el Editor, seleccionando con doble clic el objeto HOJA donde harás este control. Solo evalúa la celda B1 y lo que se encuentra a izquierda, pero podes extender al resto de la col B. Private Sub...

Elsa Matilde respondió: No ha quedado muy en claro qué libro se guardará con fecha y hora pero te dejo algunas instrucciones. Cualquier duda me volvés a escribir. nbre= Now 'guarda fecha y hora en variable Activeworkbook.SaveCopy as ruta & "\" & nbre & ".xls" 'guarda copia...

jesspg respondió: A ver si te vale este código: Sub Guarda() Dim dia As String Dim tim As String Dim nom As String Dim ext As String Dim Path As String dia = Format(Date, "dd-mm-yyyy ") tim = Format(Time(), " hh-mm") ext = ".xls" nom = dia + tim & ".xls" MsgBox "este...