Adriel Ortiz Mangia

[Hola Prueba así If MsgBox("¿Quieres imprimir el pedido seleccionado?." & UserForm1.TextBox1, vbYesNo + vbInformation, "") = vbYes Then frm_salidas_pedidos_buscar.PrintForm Unload Me Else Cancel = True End If

[Hola revisa esto https://www.youtube.com/watch?v=FsT0T51xZHY

[Hola haber prueba esto Private Sub btn_autoriza_Click() Set h = Sheets("REPORT_FALLAS") 'busca el folio con Find ' Set r1 = h.Columns("D") Set b1 = r1.Find(Me.txt_placa, LookAt:=xlWhole) Set r2 = h.Columns("F") Set b2 = r2.Find(Me.txt_periodo,...

[Hola Entonces pon la macro si de ahí viene el problema

[Hola Valora la respuesta para finalizar Lo harías de esta manera Private Sub UserForm_Initialize() Dim Hoja As Worksheet ComboBox1.Clear For Each Hoja In Worksheets If Hoja.Visible <> False Then ComboBox1.AddItem Hoja.Name End If Next End Sub creas...

¿Y la lista en cuál hoja está?

[Hola Sube tu archivo y explica resaltando con colores los procesos a realizar

Va la macro Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("A:A")) Is Nothing Then If Target.Count > 1 Then Exit Sub Cells(Target.Row, "B") = "" End If End Sub

[Hola Si con esto te funciona es porque es problema de la ruta, asegúrate que esté bien escrita Sub guardarfra() ' ' guardarfra Macro ' ruta = ThisWorkbook.Path & "\" nombre = Sheets("Diario").Range("g4") ' Range("A1:H45").Select...

[Hola Aquí te dieron respuesta, si tienes dudas aun sigue con la consulta y valora la respuesta .. saludos! Combobox sin duplicados con macro