José Saúl Méndez Alonso

Te dejo un código de ejemplo para trabajar en una base de datos desde Excel. Sub CopiaDatos() Dim fila As Long, uf As Long, conta As Long Dim cn As ADODB.Connection, rs As ADODB.Recordset On Error Resume Next Application.ScreenUpdating = False...

Te dejo un código para realizar lo qué pides. Sino deseas copiar TODO el contenido, sólo habrá que hacer una adecuación. Sub Copiar() Dim I As Integer For I = 1 To 600 Range("L" & I).Value = Range("G" & I).Value Next End Sub

Te envío el código modificado Private Sub CommandButton1_Click() UserForm1.Show End Sub Private Sub CommandButton2_Click() 'Con esta indicacion cierras la aplicación Application.Quit ActiveWorkbook.Close False End Sub Private Sub...

Te dejo un código que te puede servir, usa la función split(), para separar una cadena y la función IsNumeric() para tomar sólo los números. Sub sCadenas() Dim TestString As String '= "214*215*216*217*S" Dim TestArray() As String '= Split(TestString)...

Una forma muy rápida de hacerlo es colocar una columna al final de tus datos y ahí colocar una función "=Contar.si("$A$1:$A$500,A1)" Con esto podrás ver cuantas veces se repite el mismo sueldo, para saber quienes tienen el mismo sueldo te sugiero...

Te paso un código qué puede ser útil. Sub OnTime_Start() Dim LTime As Date LTime = TimeValue(CDate(Range("a1").Value)) Application.OnTime Now + LTime, "Repetir" End Sub

Te envío una función que te permitirá hacer lo qué necesitas. Function letras(Celda As String) As String Dim nLargo As Integer Dim nIni As Integer Dim sCadOr As String sCadOr = Range(Celda).Value nIni = InStr(1, sCadOr, ".") nLargo = Len(sCadOr) If...

Te dejo esté código para que envíes tus correos, puedes poner una columna con la condición de la fecha, para que hasta ese momento se envíe tu correo. Sub EnviaCorreo() '---------------------------------------------------- 'No quites estas líneas son...

Puedes proteger tus módulos, así el usuario no tendrá acceso.

Una opción sería que el seguimiento de folios lo hagas desde un archivo externo, ejemplo un TXT (encriptado). Otra opción es que el folio lo guardes en el Registro de Windows.