Adriel Ortiz Mangia

H o l a ¿Cuáles son los criterios para copiar a la hoja SALIDAS? Muestra un ejemplo saludos!

H o l a usa la versión office 2007 y descarga el complemento para convertir a PDF de aquí https://www.microsoft.com/es-es/download/details.aspx?id=7 Y te funcionará la macro

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...

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 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...

Primera opción Private Sub CommandButton1_Click() ' If CommandButton1.BackColor = &H8000000F Then CommandButton1.BackColor = vbGreen ' Else ' CommandButton1.BackColor = &H8000000F End If ' End Sub segunda opción usando el evento MouseDown y MouseMove...