Jump to content

Visor

Members
  • Content Count

    1,151
  • Joined

  • Last visited

  • Days Won

    3

Visor last won the day on June 2

Visor had the most liked content!

About Visor

  • Rank
    Advanced Member
  • Birthday 05/28/1973

Converted

  • Campos
    ;

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

  1. Esa Utilidad del Ribbon Custom UI si que ha sido muy interesante,..no lo había conocido Gracias por Hacérmelo saber,... voy a tratar de aprender mas de eso
  2. Gracias Abraham Valencia, es cierto, y como haría para que no funcione la combinación de tecla Ctrl+V cuando copio de otro archivo y directamente aplico estas teclas?? para añadir el código al anterior que me diste??
  3. Saludos Abraham Valencia, Estoy muy agradecido por tu colaboración. Tengo varias cosas que no comprendo... Para empezar con lo que me enviaste, entendí que el código había que ponerlo en el Vba de la Hoja ("Custom UI Editor") y no en un modulo o en ThisWorkbook. y claro allí si funcionó. Ahora bien, en la hoja si funciona Ctrl+V si copio de otro archivo y antes de dar click en la hoja de prueba destino pulso Ctrl+V y se pasa lo copiado del otro archivo, lo cual no debería permitirlo. También a pesar de lo que me indicas..., El código que coloque en el primer post ,...funciona!!... también al colocarlo en el código Vba de la hoja, funciona todo incluso no permite pegar con la combinación de teclas Ctrl+V. (mi Excel es 2013) Como problema surge que al borrar todo el código del Vba de la hoja, el comando Pegar sigue en desactivacion, lo cual no me lo esperaba. Coloque nuevamente el código a true.... Application.CutCopyMode = True para revertir la instrucción pero sigue igual desactivado, es decir dejo de funcionar pero veo que solo en este archivo. Los demás libros están bien Finalmente, el código que me diste, o el que tengo en el primer post, no funcionan en Word al colocarlo el Vba de la Hoja. al parecer debe ser algo diferente o estoy colocando donde no debo. Saludos
  4. Saludos estimados amigos del foro Esta consulta pretende saber cómo se puede evitar con vba para que en el archivo que le daré a mi estudiante pueda usar el icono o control de comando para copiar, cortar o pegar, incluso no funcione las teclas abreviadas Ctrl+C, Ctrl+C, Ctrl+V. Es decir solo en el archivo que le dé para que haga la tarea. Tengo Excel 2013 pero entiendo que también funcionaria en Word 2016. Deseo que no hago uso del copy-paste si no que pueda escribir ojala por el mismo, o que sus compañeros se copien datos entre ellos. En realidad lo que necesito es para un archivo Word pero como aquí es Excel lo planteo, y si funciona para Excel podría entender como seria para Word. Encontré este código, pero no funciona, ni para Excel ni para Word. Me gustaría que solo incida el código para el archivo que se este manejando, pues si tengo otros archivos abiertos allá no afecte. Sub alabrirThisWorkbook_Activate() Dim oCtrl As Office.CommandBarControl 'Deshabilita Cut del todo el menu For Each oCtrl In Application.CommandBars.FindControls(ID:=21) oCtrl.Enabled = False Next oCtrl 'Deshabilita Copy del todo el menu For Each oCtrl In Application.CommandBars.FindControls(ID:=19) oCtrl.Enabled = False Next oCtrl 'Deshabilita Paste del todo el menu For Each oCtrl In Application.CommandBars.FindControls(ID:=6002) oCtrl.Enabled = False Next oCtrl Application.CellDragAndDrop = False End Sub Sub alabrirThisWorkbook_Activate() Dim oCtrl As Office.CommandBarControl 'Habilita Cut del todo el menu For Each oCtrl In Application.CommandBars.FindControls(ID:=21) oCtrl.Enabled = True Next oCtrl 'Habilita Copy del todo el menu For Each oCtrl In Application.CommandBars.FindControls(ID:=19) oCtrl.Enabled = True Next oCtrl 'Habilita Paste del todo el menu For Each oCtrl In Application.CommandBars.FindControls(ID:=6002) oCtrl.Enabled = True Next oCtrl Application.CellDragAndDrop = True End Sub Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) With Application .CellDragAndDrop = False .CutCopyMode = False 'Clear clipboard End With End Sub La lista de los IDs los consigo con este código que funciona bien en un archivo Excel Sub listaIDs() 'Funciona Dim oneCont As Object Dim outRow As Long For Each oneCont In CommandBars("Standard").Controls outRow = outRow + 1 Cells(outRow, 1) = oneCont.Caption Cells(outRow, 2) = oneCont.ID Next oneCont End Sub Agradezco anticipadamente su gentil colaboración Deshabilitar comandos de controlV1.xlsm
  5. En mi correo me pide autorizacion de descarga,... entonces ya te lo envie Saludos
  6. Estimado Antoni, .....Bueno, en tanta ayuda que seguimos recibiendo. Con ayuda de las bondades del Spreadsheet GAS he podido hacer uso del Excel en Arte y he puesto tu foto Hecho en Excel en emblema de la dedicacion constante que todos recibimos. Como no se donde es apropiado enviarlo he hecho uso del mensaje aqui en cafeteria para hacer llegar el resultado Para ver mejor la imagen hay que bajar el zoom al 30% Con el aprecio que todos tenemos por tu dedicación espero que lo recibas y te guste este resultado ExcelArte. Saludos Felix UNACH Ecuador Descargar el Archivo Nota solo mantendre el archivo hasta confirmar hoy que lo has recibido.
  7. Es cierto,!!! muy importante observar todos los detalles, en especial corregirse en los errores ortográficos que nos vienen en las plantillas de la institución. Funcionó al colocarle las tildes Gracias y mil disculpas😁 Tema solucionado
  8. Si gracias, subo el archivo que por ser pesado le quite informacion para que se haga mas liviano. REGUSOLAB V8.xlsm
  9. Es interesante ver como se formula los resultados en código macro...funciona justo como quería. Si el código lo paso de la Hoja vba a un modulo igual funciona bien. No obstante cuando llevo el código a mi libro, donde son hojas diferentes, no funciona (con la corrección obvia de la Hoja) Si el código lo coloco en la Hoja4 vba y ejecuto me sale el error "X400" Si coloco en un modulo me sale el error 1004 en tiempo de ejecución y me muestra la linea de error. Que podrá ser?? muestro como puse el código en el modulo y las imágenes de los errores Sub DistribuirFechas() Dim I, Días, Fecha Application.ScreenUpdating = False Días = Array("", "LUNES", "MARTES", "MIÉRCOLES", "JUEVES", "VIERNES", "SÁBADO", "DOMINGO") I = 7 For X = 6 To Hoja4.Range("E" & Rows.Count).End(xlUp).Row Fecha = Días(Weekday(Hoja6.Range("A" & I), vbMonday)) Do Until UCase(Hoja4.Range("E" & X)) = Fecha Or Hoja6.Range("A" & I) = "" I = I + 1 Loop Do While UCase(Hoja4.Range("E" & X)) = Fecha Hoja4.Range("F" & X) = Hoja6.Range("A" & I) X = X + 1 Loop If Hoja4.Range("E" & X) = "" Then Exit Sub X = X - 1 I = I + 1 Next End Sub También he revisado las Referencias y estas iguales en los dos archivos
  10. Saludos amigos del foro, intento en esta ocasión ordenar fechas, en relación a una columna de días que están indicadas en la columna de la Hoja1. Los días colocados allí corresponden a los laborables de cada mes pero me gustaría que las fechas se acomoden en función de los días tal como se muestra el resultado en la Hoja3. Las fechas están en la Hoja2. Subo el archivo para que lo vean Gracias anticipadas por el apoyo Distribucion de ordenada de fechas segun dia.xlsm
  11. Claro , Si, lo de Rowsource funciona perfecto!! pasando los datos requeridos a la hoja3 (en este caso ocultada),.. y luego pasa al listbox Con esto estoy aplicando ya elimine lo de Select case Gracias una vez más
×
×
  • Create New...

Important Information

Privacy Policy