yinyang48

Anónimo respondió: Cuando tu creas un ComboBox con el asistente, fíjate bien, el ultimo paso del asistente Es: Cambo en el que desea guardar la información.. Debajode esta instrucción te pone un campo, con los registros de la tabla, selecciona el registro donde quieres...

netjga respondió: Yinyang48, busca en esta dirección para hacer booteable un dispositivo usb. Ojo... verifica en en las propiedades de booteo de tu CMOS (placa madre) tenga la opción de arrancar vía USB. http://cyberpunkkk.wordpress.com/2009/07/23/hacer-booteable-una-usb/

manchadito respondió: Esa es la gran cuestión de los organigramas, la que cualquier usuario desearía saber, puesto que no se puede. Gran error de Microsoft, ¿verdad? Lo que yo hago es (dos opciones) - En el recuado en cuestión, haces un doble clic para entrar en las...

paramisolo respondió: antes de la instruccion de End Sub debes de poner estas: If ThisWorkbook.Saved = False Then ThisWorkbook.Save End If Application.DisplayAlerts = False De esta forma se guardan siempre los cambios por código y no le pregunta al usuario. Si quieres que...

jferg respondió: Te recomiendo que mejor uses un bucle. Por ejemplo si quieres buscar las celdas que tienen el formato que quieres en el rango A1:B100 entonces worksheets("Nombre"). Unprotect "contraseña" For Columna= 1 to 2 For Fila= 1 to 100 if...

jferg respondió: Haz lo siguiente: Desprotege manualmente la hoja que usas como patrón o plantilla para crear el resto de hojas. Selecciona el rango de celdas que el usuario puede modificar. Si el rango no es continuo tendrás que hacerlo una a una. Cuando selecciones...

pollux_troy respondió: Puedes hacerlo con un FOR y un IF, eso te ahorraría bastantes problemas... for contador=0 to =10000 'segun la cantidad de filas k tengas if cells(i+contador,j).value=X then 'el i y la j son la primera celda a revisar, despues el contador se encarga...

jferg respondió: Worksheets("Nombre"). Unprotect "contraseña" Worksheets("Nombre").Range ("A1:A10").Locked=False Worksheets("Nombre").Range ("A1")=MiValor1'... '... Worksheets("Nombre").Range ("A10")=MiValor10 Worksheets("Nombre"). Protect "Contraseña"