Adriel Ortiz Mangia

H o l a Que yo sepa no se puede aplicar en el inputbox Te recomiendo usar textbox que tiene la propiedad "PasswordChar"

H o l a te paso la macro Sub imprimir() Set h1 = Sheets("Hoja1") hoja = h1.Range("A2") If hoja = "" Then MsgBox "ingrese nombre de la hoja a imprimir", vbCritical For Each h In Sheets If UCase(h.Name) = UCase(hoja) Then imprime = True Exit For End If...

H o l a usa estó ComboBox1.Style = fmStyleDropDownList con excel vba sería así Private Sub UserForm_Activate() ComboBox.AddItem ("hola") ComboBox.AddItem ("como estas") ComboBox.AddItem ("me gustas") ' ComboBox1.Style = fmStyleDropDownList End Sub...

Prueba esto Valora la respuesta para finalizar saludos!

H o l a Usa autoforma y asigna tu macro

H o l a prueba esto y me comentas Sub comparar() '//Por Aortiz ' Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") ' For i = 2 To h2.Range("A" & Rows.Count).End(xlUp).Row ' Set b = h1.Cells(i, "B").Find(h2.Cells(i, "B"), lookat:=xlWhole) ' If Not b...

H o l a '//Por Aortiz msj = MsgBox("¿Estás seguro de querer ejecutar la macro?", vbInformation + vbYesNo, "Aviso") If msj = vbYes Then ' ' 'aqui copia tu macro Else MsgBox "No se ejecutó la macro", vbExclamation, "Aviso" Exit Sub End If Valoras para...

H o l a te paso la macro Private Sub UserForm_Initialize() txtboox = Format(Date, "dd-mm-yyyy") End Sub valora la respuesta para finalizar saludos!

>>Yeicar Agrega esto en la macro para el nombre de la hoja '//por Aortiz nombre = "Inventario al " & Format(Date, "dd-mm-yyyy") & ".xlsx" si tienes dificultad muestra la macro para actualizarlo de caso contrario valora la respuesta para finalizar saludos!

Te paso la macro actualizada Private Sub CommandButton1_Click() '//Act. por Aortiz 'Asignando Objetos de busqueda y hojas Set h1 = Sheets("Plan MP") Set b = h1.Columns("B").Find(TextBox1, lookat:=xlWhole) u1 = h1.Range("B" & Rows.Count).End(xlUp).Row...