Aneudys Martinez

En el botón de registro del formulario seria así Private Sub CommandButton1_Click() Sheets("hoja"). Unprotect "tuclave" ' ... Tu procedimiento de registro a la hoja Sheets("hoja"). Protect "tuclave" End Sub Donde Hoja es el nombre de la hoja que vas...

A ver si entiendo 1 - quiere que la macro busque la ultima columna vacía del product seleccionado en el combobox2 2 - que copie la cantidad solicitada en el userform Siendo así lo puedes conseguir por emdio de una búsqueda y selection Set h =...

Yo usaría estos para la búsqueda Private Sub CommandButton1_Click() Set h = Sheets("results") Set b = h.Columns("A").Find(ComboBox1) If Not b Is Nothing Then If b = ComboBox1.Value Then label1.Caption = h.Cells(b.Row, "b") End If End If End Sub Donde...

Apliando las respuestas tambien podrias usar de la siguinete manera Private Sub CommandButton2_Click() Ruta = "C:\Users\usuarioX\Desktop\" nombre = "libro b.xlsx" Workbooks.Open Filename:=Ruta & nombre Sheets("BD").Select Set h = Sheets("results")...

Si los ceros están dado por una fórmula Yo lo haría así un do while de la celda activa Sub buscar_devolver_solicitar() Sheets("sheet1").Select Range("i5").Select Do While ActiveCell <> "" If ActiveCell.Value <> "0" Then Range(ActiveCell.Offset(0,...

De la mano de DANTE Reviosa estas pregunta Macro para copiar datos de varios libros y pegarlos en un libro nuevo en la primera hoja. Creo que te puede ayudar solo modifícala en lo que quieres conseguir Y si claro que se puedes

Desde la política de seguridad de windows puedes conseguir estos que solicitas Solo denegar los permisos para eliminar Crea una carpeta y buscar en la opciones avanzada los permisos de borrar y dale denegar Solo deja el de leer y escribir podrán...

Donde quieres que aparezca el total y como haces los registro podrías usar un procedimiento en tu macro como este Suma = WorksheetFunction.Sum(Range("D11:D100000")) Range("D11").Select Do While ActiveCell <> Empty ActiveCell.Offset(1, 0).Select Loop...

prueba eliminarndos los select Ejemplo Donde dices [B50].Select ActiveCell.Interior.ColorIndex = 2 'color blanco [B56].Select ActiveCell.Interior.ColorIndex = 2 'color blanco usa de estas manera [B50].Interior.ColorIndex = 2 'color blanco...

Si lo puedes conseguir con estos En el evento open del thisworkbooks Application.Visible = False Pero tiene que tener en cuenta crear un botón alterno para visualizer el libro nuenvamente Por si un día quieres ver el libro como estas o hacer algunas...