Juann Alex

Dante Amor respondió: Pon el siguiente código en los eventos de la hoja "OLT" Private Sub Worksheet_Activate() Dim sh As Worksheet For Each sh In Sheets If sh.Name <> "OLT" Then sh.Tab.Color = xlAutomatic End If Next End Sub [Comenta cualquier duda. No olvides la valoración.

Julián González Cabarcos respondió: En tablas no puedes hacerlo, ya que no tienen código. Pero en código sí. Para no complicarte la existencia, vamos a hacerlo paso a paso. Por ejemplo, puedes usar, en algún evento de un formulario, por ejemplo, en el evento Al hacer clic de un botón...

Eduardo Pérez Fernández respondió: Tiene que configurar el escáner para que NO avance al siguiente campo al disparar (esto se hace disparando a un código de barras que trae en el manual) y en el evento Después de Actualizar el campo hace el INSERT INTO... como le indican....

Programar Excel respondió: Quizas esto te oriente https://www.youtube.com/watch?v=KPg6aP_ZbHI

Dante Amor respondió: Prueba así: Sub fecha_lote() Dim fecha As String, lote As String Dim anio As String, mes As String, dia As String Dim unifecha As Date Dim fila As Long fila = 2 Do While Cells(fila, 1) <> "" fecha = Mid(Range("A" & fila), 5, 6) lote = Mid(Range("A" &...

Dante Amor respondió: ¿Tienes fórmulas en las celdas? Tal vez se vean vacías pero las celdas pueden tener espacios en blanco, revisa las celdas que aparentemente se ven vacías, que realmente estén vacías. Puedes seleccionar una por una y borrar el contenido. Prueba...

Elsa Matilde respondió: Te dejo la macro iniciada para tu guía. El uso de las letras de columnas te ayudarán a ubicarte mejor que si ingresaras el nro de columna. No se ven los encabezados de filas en tus imágenes. Estoy asumiendo que la primer imagen se inicia en fila 1....

Leandro Galvano respondió: Cuando se fabrican las memorias para los pendrives o los discos duros se utiliza el GB físico, donde cada GB son 1000 MB. Sin embargo cuando se formatean y particionan, se utiliza el GB lógico, que a fin de cuentas es el que se usa realmente, y donde...

Lucas Rios respondió: Espero estés bien. Te paso una macro para ver si puede solucionar tu problema. Lo hice copiando el rango que comenza en A2 y el numero de veces esta indicado en la celda C1 Sub Macro1() Dim REPETIR As Integer REPETIR = Range("C1") Range("A2").Select...

Dante Amor respondió: Solamente vuelve a cargar el listbox con esta línea: lstclientes.RowSource = "Clientes!TClientes" Quedaría así: Private Sub btnguardar_Click() ' boton guardar If (cbovendedor) = Empty Or (txtcliente) = Empty Then MsgBox "Recuerda que tienes que...

Dante Amor respondió: Pon lo siguiente en un módulo '''''' Normal module code Option Explicit Private Type POINTAPI X As Long Y As Long End Type Private Type MOUSEHOOKSTRUCT pt As POINTAPI hwnd As Long wHitTestCode As Long dwExtraInfo As Long End Type Private Declare...