LORENA706

LORENA706

 Colombia @lorena706 desde - visto
Preguntar

Actividad pública reciente

Ha preguntado en el tema en y en 2 temas más

Código qr en hoja específica

Encontré en internet esta funcion que convierte el dato de una celda lo lleva a un sitio de google y devuelve una imagen de un código qr: Function QrCode(codetext As String) Dim URL As String, MyCell As Range Set MyCell = Application.Caller URL =...
Ha valorado "Excelente" la respuesta

Ejecutar macro cuando una carpeta está como solo lectura

respondió: Al abrir el libro podés controlar el modo en que se abrió, con estas instrucciones: Private Sub Workbook_Open() If ActiveWorkbook.ReadOnly Then MsgBox "El archivo se abrió como 'solo lectura' y se cerrará." ActiveWorkbook.Close Else 'a continuación...
Ha valorado "Excelente" la respuesta

Valor sin punto de mil pero con punto decimal

respondió: Prueba con esta macro Sub ValorFacSinIva() Dim suma As Double Dim valornuevo As String Dim VN As String Set h1 = Worksheets("hoja1") suma = Round(WorksheetFunction.Sum(h1.Range("p11:p10")), 0) VN = Format(suma, "0.00") MsgBox VN End Sub
Ha valorado "Excelente" la respuesta

Fecha con formato año mes día hora minuto y segundo

respondió: Si quieres la fecha actual con hora y que la fecha sea una fecha válida para excel: Range("B2").Value = Now() Dale formato a la celda B2 para que se muestren los segundos. Si quieres la fecha y hora sean textos: Range("B2").Value = "'" &...
Ha valorado "Buena" la respuesta

Insertar el valor de una celda Excel en formulario Visual Basic.NET

respondió: [Hola Yo sugiero usar oledb: http://checktechno.blogspot.com/2013/04/using-ado-and-recordset-in-vbnet.html Comentas Abraham Valencia
Ha valorado "Buena" la respuesta

Encriptar un código con algoritmo sha-1 en Excel

respondió: Este código no es mio lo encontré en la red y es a base de funciones son dos HexSHA1 y HexDefaultSHA1 la primera ingresas la palabra a encriptar más 4 números y la segunda solo la palabra este es un ejemplo y esta es la macro como es normal en...
Ha valorado "Excelente" la respuesta

Guardar libro en formato xltxt

respondió: Te anexo la macro actualizada Sub Copia() 'Act Por Dante Amor 'On Error Resume Next Application.ScreenUpdating = False PathActual = ActiveWorkbook.Path NombreLibro = PathActual + "\COPIAS\" + ActiveWorkbook.Name NombreLibro = PathActual + "\" +...
Ha valorado "Excelente" la respuesta

Borrar rangos de celdas de otra hoja

respondió: Probé la instrucción y la hice un poco más corta y si funciona Sub borrar() Sheets("registro").Range("C6, C7, C13, E11, B19:E22").ClearContents End Sub que numero de error te da?.