Adriel Ortiz Mangia

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

o s c a r el link descarga https://mega.nz/#!EwUTGSrZ!ysWot9tL9KCtDWjfOMFjleUKzLjcO3X2ZAYHDXeMnlw puedes visitar esta página https://www.youtube.com/watch?v=whmPDwejQZA

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

=SI(B1>=B2,"cumplida""No hay OH")

H o l a te paso la macro Private Sub ComboBox1_Change() Call mostrar End Sub Private Sub ComboBox2_Change() Call mostrar End Sub Sub mostrar() If ComboBox1 = "" And ComboBox2 = "" Then Exit Sub If ComboBox1 = -1 And ComboBox2 = -1 Then Exit Sub If...

h o l a Copia a un nuevo libro

H o l a Lo puedes conseguir con la función BUSCARV Como no se en que columnas estas tus datos te dejo un vídeo https://www.youtube.com/watch?v=2NuZKYd5zd4 Valora para finalizar saludos!

Está en el menú ver MODO PANTALLA COMPLETA saludos!