Dante Amor

Prueba con lo siguiente Private Sub ComboBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) 'Por.Dante Amor If KeyCode = 13 Or KeyCode = 9 Then Exit Sub 'enter o tab ComboBox1 = Mid(ComboBox1, 1, ComboBox1.SelStart) Select...

Se puede hacer un ciclo que revise fecha por fecha y validar si está entre el rango de fechas, si es así, entonces toma los datos. Para concluir la macro, tienes que decirme lo siguiente: - Nombre de la hoja donde vas a poner las fechas de inicio y...

Pon todo el siguiente código en el módulo. Lo que hace es guardar el archivo como CSV separado por "comas", lo pongo entre comillas porque en el inter, estoy cambiando la configuración del sistema para que el separador de listas ahora sea el punto y...

Prueba lo siguiente. Cambia en la marco "C:\trabajo\" por el nombre de tu carpeta donde tienes el archivo. Cambia "libro5" por el nombre de tu archivo sin extensión La macro busca libro5.xls si lo encuentra, lo abre, si no lo encuentra lo busca como...

En el evento activate de tu userform debes agregar las siguientes líneas: Private Sub UserForm_Activate() tipo_movimiento.AddItem "Entrada" tipo_movimiento.AddItem "Salida" Nro_remision.Enabled = False End Sub Ahora también agrega el siguiente código...

Llevo más de 20 años programando, empecé con otros lenguajes, como dbase, fox, clipper, cobol, natural, 4gl, abap, algunos de ellos ya no se utilizan. En el 2013 empecé a aprender VBA, me tomó algunos meses aprender los métodos, las sintaxis y el uso...

Es opcional poner la variable en Next Puede ser así For i = 1 to 10 'instrucciones Next i o así: For i = 1 to 10 'instrucciones Next Se utiliza con más frecuencia cuando tienes anidados varios For, puede ser así: For i = 1 to 10 for j = 2 to 5 for k...

Si las columnas H, I, L, P, Q, R y S son iguales, borra los registros duplicados y los pasa a la hoja "duplicados", en la hoja "origen" tendrás registros únicos. La macro utiliza las columnas Z y AA para realizar las operaciones. . Te anexo la macro...

Te anexo la macro para esta parte: "que al seleccionar una celda " Q5" me regrese a una hoja" Pon el siguiente código en los eventos de tu hoja Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'Por.Dante Amor If Target.Count > 1 Then Exit...

Te anexo la macro Sub Cambiar_Dato() 'Por.Dante Amor For i = 2 To Range("S" & Rows.Count).End(xlUp).Row If Cells(i, "S") = "INCES" Then Cells(i, "B") = 3 End If Next MsgBox "fin" End Sub . 'S aludos. Dante Amor. Recuerda valorar la respuesta. G...