Adriel Ortiz Mangia

Entonces así 'Fuente Dante =SI(P16>=N16;(P16/N16)-1;(P16/N16)-1)

h o l a Private Sub UserForm_Activate() ' Set fso = CreateObject("Scripting.FileSystemObject") 'Ruta = ThisWorkbook.Path ' Ruta = "C:\cita\" ' Set Carpeta = fso.GetFolder(Ruta) Set ficheros = Carpeta.Files For Each archivo In ficheros If...

H o l a: te paso una respuesta de Dante es interesante Cómo hacer un formulario de login para excel? Lo que fataría es iniciar el formulario cuando abres el archivo. Ya para ello crea un modulo y copia lo siguiente Sub iniciar() UserForm1.Show End...

https://www.youtube.com/results?search_query=otto+gonzalez+ https://www.youtube.com/watch?v=BVpfLKzLqzY&list=PLp-d73DwawiwvtxtgokufIvQ7kN6b8F5w http://aplicaexcel.galeon.com/

H o l a Entonces tienes que cargar tus datos al listbox sin el encabezado de tu hoja. Por ejemplo si tu encabezado está en la fila 1, carga tus datos a partir de la fila 2 al listbox. Muéstrame tu código como cargas tus datos para modificar

H o l a Private Sub Worksheet_Calculate() Static anteriorvalor As Variant If Range("C10").Value <> anteriorvalor Then anteriorvalor = Range("C10").Value Call actualizar End If End Sub me comentas saludos!

Te presento una guía https://www.youtube.com/watch?v=-EAnclMjhaE

Sub SeleccionarArchivo() Dim RutaArchivo As String On Error Resume Next ' RutaArchivo = Application.GetOpenFilename(Title:="Seleccionar Archivo") If Not RutaArchivo = "Falso" Then MsgBox RutaArchivo Else MsgBox "cancelado" Exit Sub End If '...

Sub Eti1() 'comando para generar las etiquetas Hoja35.Columns("a:o").Delete fin = Hoja4.Range("b65536").End(xlUp).Row Hoja4.Select Range("A8").Select For y = 0 To Int((fin - 1) / 3) For k = 0 To 2 Hoja6.Range("b2").Value = "'" &...

H o l a Va Private Sub CommandButton1_Click() 'Act. Por Aortiz Sheets("RDM").Activate ' On Error Resume Next conta = 0 For X = 0 To Me.Listbox1.ListCount - 1 If Me.Listbox1.Selected(X) = True Then conta = conta + 1 End If Next X If conta = 0 Then...