Saltar al contenido

BEPENA

Miembros
  • Contador de contenido

    36
  • Unido

  • Última visita

Sobre BEPENA

  • Rango
    Miembro

Información de perfil

  • Sexo Hombre
  • Localización: Colombia
  • Cosas que te gustan Ciclismo

Configuraciones

  • Campo que utilizas como separador de argumentos ,
  1. Buenas tardes Haplox, Muchas garcías por tu interés en mi consulta y pido disculpas por la falta de claridad en mi solicitud, no obstante, procedo a explicarte la situación: Tengo un archivo el cual en la columna (A) tengo una relación de fechas de inicios de contrato (aclaro que son fechas anteriores al día de hoy) y requiero que vaya haciendo el calculo de vencimiento hasta llegar al 2019, ejemplo: si en la range A2 tengo la fecha 07/06/2018 y en la columna "B" que se llama "Meses Renovación Contrato" en el rango B2 estan los meses (que representa el numero de meses del vencimiento contractual), para este caso 3 (pero puede ser cualquier # de meses) , el resultado de salida que se pretende es que me apareciera en la columna "D" para este caso rango D2 el resultado 07/03/2019, que sería el recorrido de: Primer vencimiento: 07/09/2018 Segundo vencimiento: 07/12/2018 Tercer Vencimiento: 07/03/209 El resultado que me interesa es el que corresponde al novecientos de 2019, por ende el resultado esperado para este caso seria 07/03/2019. Me imagino que requiero de un ciclo que vaya acumulando los meses (para este ejemplo 3 meses cada recorrido) hasta que identifique que es 2019 y me coloque esa fecha. Le cuento que estoy intentando hacer el código y no he podido. Muchas gracias por su atención y feliz día
  2. Buenos días Haplox, Muchas garcias por tu respuesta, pueden ser meses, bimestres, trimestres, semestres o años, por simplicidad los hago lo hago en meses para llegar al vencimiento en el 2019
  3. Muchas gracias por el aporte, es un muy buen adelante, no obstante, les pido asesoría es con el recorrido,, me imagino que debe de hacer una especie de acumulado temporal tasta llegar al 2019. requiero que vaya haciendo el calculo de vencimiento hasta llegar al 2019, ejemplo: en la range A2 tengo la fecha 07/06/2018 en la columna "B" tengo "Meses Renovación Contrato" en el rango B2 estan los meses, para este caso 3, el resultado de salida que se pretende es que me apareciera en la columna "D" para este caso rango D2 el resultado 07/03/2019, el cual corresponde al recorrido de tres trimestres Muchas garcias
  4. Buenas noches a todos, Primero que todo muchas gracias por la gentileza al revisar esta solicitud... Al día de hoy tengo un problema con un herramienta que estoy creando; a continuación planteo el inconveniente: Tengo un archivo el cual en si columna (A) tengo una relación de fechas de inicios de contrato (aclaro que son fechas anteriores al día de hoy) y requiero que vaya haciendo el calculo de vencimiento hasta llegar al 2019, ejemplo: en la range A2 tengo la fecha 07/06/2018 en la columna "B" tengo "Meses Renovación Contrato" en el rango B2 estan los meses, para este caso 3, el resultado de salida que se pretende es que me apareciera en la columna "D" para este caso rango D2 el resultado 07/03/2019, el cual corresponde al recorrido de tres trimestres Adjunto excel con parte de código que he adelantado (modulo 1 y modulo 2) Reitero mis agradecimientos y espero alguno de uds gurus del VBA de ayude saludos Bernardo PC sumas meses a fecha.xlsm
  5. BEPENA

    Eliminar Elemento Enviado en OutLook

    Buenas noches Logroastur, Muchas gracias por la respuesta, acople tu código y funciona perfecto en mi programa; por tal motivo doy el tema como solucionado satisfactoriamente. Nuevamente gracias por compartir tus conocimientos. Atn, BEPENA
  6. Buenas noches, Mediante la presente solicito de su colaboración en el siguiente caso: Tengo una macro que divide una base de datos según criterios establecidos, cada división se convierte en un libro nuevo, que a su vez se anexa a un e-mail, y se se envía a remitentes definidos previamente. Esta macro funciona perfecta, lo único que tengo pendiente para que se acople a mis necesidades es que al enviar el correo no quede rastro del envío, es decir, que se elimine el elemento enviado (de la carpeta de enviados y de eliminados de OutLook). Muchas gracias por la atención a la presente. Atn, BEPENA Clasifica - guarda - envia.zip
  7. BEPENA

    Hacer copias de casillas de verificacion

    hola, el código que te da la solución a la inquietud que planteas, utiliza controles de formularios para hoja de calculo, no botones como tu tienes, en el link que te anexo esta un excelente tutorial para hacer macros, por favor te remites a la pagina 86 en adelante y sabrás como hacerlo, lo unico que tienes que hacer es crear dos checkbox, que se llamen checkbox1 y checkbox2 y luego pegar el código que te anexe en el editor de VB http://www.scribd.com/doc/25498/Manual-Macros-Excel Te anexo otros links, de interés que hablan sobre botones http://mx.answers.yahoo.com/question/index?qid=20061211134830AAsqYIl http://office.microsoft.com/es-mx/excel-help/crear-o-eliminar-una-macro-HP010014111.aspx#BMassignmacro nota: Disculpa la demora en atender tu mensaje, pero estuve un tiempo por fuera de casa.
  8. BEPENA

    Hacer copias de casillas de verificacion

    Buenas noches, Que bueno que estés interesado en la programación, te comparto esta pagina que te puede aclarar muchas dudas. El código esta listo (el que te coloque el día de ayer) , solo debes crear los CheckBox e ingresar el código en el editor de VBA http://ciberconta.unizar.es/leccion/cursointermedioexcel/index_activex.htm El la ayuda de VBA en excel, puedes encontrar mas información, te cuento que esa ayuda es excelente y buscando en la red puedes encontrar mucha mas información,la idea es que busques y te esfuerces un poco en tu proyecto y de esta forma aprenderás mucho mas. Si después de buscar te queda alguna duda, por favor me cuentas y con mucho gusto te la aclaro atn, BEPENA Espero te sirva.
  9. Buenas noches Tuve, Te agradezco mucho por tu oportuna respuesta, lo que me envías funciona como lo espero, pero te agradecería mucho si me orientas a resolver este caso con VBA. te cuento que estoy en el proceso de aprendizaje de VBA y he hecho cosas muy interesantes pero me quede corto con este paso o consulta que realizó, por eso mi deseo de resolverlo bajo la herramienta antes mencionada. NOTA: al ver tu mega formula puedo concluir que te quedara fácil una solución en VBA nuevamente..... muchas gracias por dedicar tiempo a esta consulta BEPENA
  10. Buenas Noches a todos. Mediante la presente solicito de valiosa colaboración el siguiente caso: Tengo una base de datos que tiene “N” columnas como encabezados y “N” filas con datos, que son numéricos, específicamente números de identificación de personas, es importante tener en cuenta que una cédula se puede repetir varias veces, por lo tanto las ordeno de forma ascendente. La idea es que la macro realice un recorrido de arriba hacia abajo e identifique que la existencia de un campo <> a cero Y me lleve la cédula de la persona a la última columna, el recorrido de arriba hacia abajo ya lo tengo, en lo que estoy pegado es cuando de “N” identificaciones que están repetidas encuentre la primera celda de este grupo <> a cero y me coloque la identificación en la última columna al momento de encontrar este dato deben quedar los otros en blanco, y yendo a buscar la identificación diferente a la anterior buscada para seguir haciendo la respectiva validación Para tener más claridad subiere el archivo Muchas gracias por la atención a la presente. Atn; BEPENA Prueba(1).zip
  11. BEPENA

    Hacer copias de casillas de verificacion

    Buenas noches... Por favor crea 2 CheckBox, como control activex y luego coloca el siguiente código Private Sub CheckBox1_Click() If CheckBox1 = True Then CheckBox2 = True Else CheckBox1 = False CheckBox2 = False End If End Sub Private Sub CheckBox2_Click() If CheckBox2 = True Then CheckBox1 = True Else CheckBox1 = False CheckBox2 = False End If End Sub NOTA: por favor comenta si te sirve esta solución Saludos BEPENA
  12. Re: Botones Maximizar, Minimizar Userform Buenas tardes, Prueba este post, que encontré: Lo colocas en el formulario Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long Private Const WS_MINIMIZEBOX As Long = &H20000 Private Const WS_MAXIMIZEBOX As Long = &H10000 Private Const GWL_STYLE As Long = (-16) Private Sub UserForm_Initialize() Dim lngMyHandle As Long, lngCurrentStyle As Long, lngNewStyle As Long 'Obtenemos el "Handle" del Userform lngMyHandle = FindWindow("THUNDERDFRAME", Me.Caption) 'Obtenemos el estilo actual del UserForm lngCurrentStyle = GetWindowLong(lngMyHandle, GWL_STYLE) 'Creamos un nuevo estilo de titulo con los botones deseados lngNewStyle = lngCurrentStyle Or WS_MINIMIZEBOX Or WS_MAXIMIZEBOX 'Aplicamos las nuevas propiedades al UserForm SetWindowLong lngMyHandle, GWL_STYLE, lngNewStyle End Sub Por favor comenta si te sirve. Saludos BEPENA
  13. buenas Noches, en cuanto a tus inquietudes te respondo: Duda 1 UFV que es? son las siglas de ultima fila vacia?? asi tal cual? UFV = Worksheets("Obras").Cells(Rows.Count, 1).End(xlUp).Row + 1 eso suma una fila?? R/ UFV, Traduce ultima fila vacia, la instrucción "Worksheets("Obras").Cells(Rows.Count, 1).End(xlUp).Row ", ubical la ultima celda de abajo hacia arrriba con dato luego colocamos "+1" y esto nos lleva a la fila vacia de una maneta super rapida. Duda 2) E1 = UFV - 2 R/ Efectivamente este sería el "contador", lo que esta haciendo es ubicar la ultima fila vacia, le resto 2 correspondiente a la fila que le agregue para ubicar la vacia, es decir, me queda la ultima fila con dato, le resto otro 1 para compensar la fila de titulos, por lo tanro me queda el # real de las filas que tengo con datos. Duda 3) Dim cCont As Control For Each cCont In Me.Controls cCont = Empty TextBox1.SetFocus Next cCont E2.Caption = "# Registros Actuales" End Sub R/, Esta intrución lo que hace basicsamente es limpiar cajas (TextBox) donde ingresas datos al finalizar el ingreso, revisandolo nuevamente le falta un pequeño detalle al código; por lo tanto te anexo otra rutina mas eficiente que espero la reemplaces en tu proyecto. Sub Limpiar() 'limpia los Texboxt, despues de llevarlos a la hoja de excel Dim CONT(1 To 4) As Control For i = 1 To 4 Set CONT(i) = Controls("TextBox" & i) CONT(i) = Empty Next i E2.Caption = "# Registros Actuales" End Sub Si con esto tus dudas estan aclaradas tus dudas, te pido el favor de dar el caso como finalizado. Saludos BEPENA
  14. Buenos Días, Adjunto archivo una de las inquietudes que planteas, por favor la revisas y me cuentas... El formulario modificado es el que contiene los datos de empresa (este código te sirve para guiarte en el segundo formulario) Saludos BEPENA Ingresar datos utilizando formulario foro.zip
×

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.