Adriel Ortiz Mangia

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!

H o l a Sub guardarcomoxlam() 'cambia la ruta para guardar el archivo ruta = "C:\Documents and Settings\expertos\" ' Application.DisplayAlerts = False ActiveWorkbook.SaveAs ruta & ".xlam", FileFormat:=xlOpenXMLWorkbook ActiveWorkbook.Close End Sub no...

H o l a ¿Aun necesitas la solución?

Cambia esta línea dia = Day(Date) If Day(Date) = 2 Then valora la respuesta para finalizar

H o l a prueba esto y me comentas Private Sub Worksheet_Change(ByVal Target As Range) Set h1 = Sheets("Datos") Set h2 = Sheets("Captura") Set b = h1.Range("A7:A999999").Find(What:=h2.Range("R7").Value, LookAt:=xlWhole) If Not b Is Nothing Then MsgBox...

H o l a te paso la macro nomb = Textbox12 & "_" & h.Name & "_" & TextBox13 h.ExportAsFixedFormat Type:=xlTypePDF, _ Filename:=Ruta & nomb & ".pdf", _ Quality:=xlQualityStandard, IncludeDocProperties:=True, _ IgnorePrintAreas:=False,...