Aneudys Martinez

No supe como modificar tu macro pero cree estas mira a ver si te silve Seria así en el evento iniciar del formulario cargamos el combobox con las columnas En mi caso la nombre con las letras tu puedes ponerle lo que quieras ComboBox2. AddItem "C"...

¿Dónde estas el listsbox? Si estas en un userform seria así en el evento Initialize del userform Range("a2").Select Do While ActiveCell.Value <> "" ListBox1.AddItem ActiveCell i = ListBox1.ListCount - 1 ListBox1.List(i, 1) = ActiveCell.Offset(0, 1)...

Podrias motyranos tu hoja asi tener una ideas de lo que necesitas y si tiene alguna macro para mejorartela

Prueba esta a ver si te silver Sub BuscarYeliminar() Cedula= InputBox("Ingrese el Numero de Cedula a Buscar para darle retiro") Set h = Sheets("sheet1") Set b = h.Columns("A").Find(Cedula) If Not b Is Nothing Then b.Select ActiveCell.EntireRow.Cut...

Prueba este a ver si te ayuda seria así Private Sub TextBox1_Change() Select Case Len(TextBox1) Case 3 TextBox1.Value = TextBox1.Value & "-" Case 8 TextBox1.Value = TextBox1.Value & "-" End Select End Sub textbox1 = al nombre de tu textbox no olivdes...

Solo tiene que ajustarlo a tus columnas Presiona alt + f11 esto te llevara al editor de vba aquí inserta in modulo y copia esta macro Luego inserta un botón y agregale esta macro Suponiendo que la columna No° es la columna A Debe es la columna B...

Presentanos la macro que tiene y la hoja si es en excel para ver como podemos ayudarte

Prueba este a ver si te silve Sub MsgboxTime() ' ' aneudys01 Dim AckTime As Integer Dim InfoBox As Object Set InfoBox = CreateObject("WScript.Shell") AckTime = 3 Select Case InfoBox.Popup("Click OK or do nothing within 3 seconds.", _ AckTime, "This...

Quiere que funcione en la hoja activa o en otra hoja en especifico Estas parte es la que controla la hoja Set a = Worksheets("Por día") Osea que le indica a la macro que hoja va enviar Si quieres enviar otra hoja en especifico solo cambia el nopmbre...

No dice donde se copiara el Nuevo NO° en el caso que fuese en la próxima celda en blanco Seria así sub busca() Dim rango Set rango = Sheets("hoja1").Range("b2:b13") Set busca = rango.Find(Application.WorksheetFunction.Max(rango), LookIn:=xlValues,...