Jump to content

SALAVERRINO

Members
  • Content Count

    296
  • Joined

  • Last visited

Everything posted by SALAVERRINO

  1. Buenas tardes a los integrantes de este foro, recurro a uds para que me brinde su apoyo en como hacer que en la Barra de estado de Excel, muestre el tiempo de ejecucion que se describe en la macro que se adjunta, ya que he visto ejemplo donde mencionada por "Porcentaje", desde ya agradezco su apoyo y colaboración. Sub Reloj() Application.ScreenUpdating = False ActiveWorkbook.Save Application.OnTime Now + TimeValue("00:00:30"), "reloj" Application.ScreenUpdating = True End Sub Saludos.
  2. Buenas tardes a los integrantes de este prestigioso foro, en esta ocasión de recurro a uds, para que me brinden su apoyo en como mejorar la macro que detallo los códigos VBA y lo que se pretende es grabar en forma automática una hoja determinada (pestaña "BASE"), desde ya agradezco su apoyo. ThisWorkbook: Private Sub Worbook_Open() Application.OnTime Now + TimeValue("00:01:00"), "savebook" End Sub Módulo21: Sub savebook() ActiveWorkbook.Save Application.OnTime Now + TimeValue("00:01:00"), "savebook" End Sub link del programa: https://drive.google.com/file/d/1oF-UFzIkB2Z5Nhxk70OTxUqzS7XUAciW/view?usp=sharing
  3. Buenos días a los integrantes de este foro, en esta ocasión recurro a Uds, para que brinde su apoyo en como mejorar la siguiente macro que describo a continuación, dicha macro permite exportar dicha información a una plantilla en diseñada Word, pero mi problema esta en dicha tabla no solamente puede contener 6 filas sino muchas en la sentencia: Worksheets("TELECREDITO").Range("A1:D7").Select y lo que se requiere es dicha tabla que está en Excel exporte la cantidad de filas que contenga a la plantilla del archivo Word en forma automática y que el siguiente párrafo del archivo Word no sea alterado para lo cual adjunto imagen, también quisiera saber como puedo que la macro se ejecute desde una pestaña diferente, ya que esta macro solo se puede ejecutar desde la misma pestaña. Espero haber explicado de lo que se requiere obtener como resultado. Sub tablaaword() patharch = ThisWorkbook.Path & "\CARTA FAPOSA.docx" Set objWord = CreateObject("Word.Application") objWord.Visible = True objWord.documents.Add Template:=patharch, NewTemplate:=False, DocumentType:=0 Worksheets("TELECREDITO").Range("A1:D7").Select Selection.Copy textobuscar = "[tabla_excel]" objWord.Selection.Move 6, -1 'moverse al principio del documento objWord.Selection.Find.Execute FindText:=textobuscar While objWord.Selection.Find.found = True 'reemplaza el texto, y busca si hay otro para reemplazarlo objWord.Selection.PasteExcelTable False, True, False objWord.Selection.Move 6, -1 objWord.Selection.Find.Execute FindText:=textobuscar Wend objWord.Activate End Sub https://drive.google.com/file/d/1709P9wNFjehbOrElGqBqe4558Fufp-ko/view?usp=sharing https://drive.google.com/file/d/103fAoh-NhaGpD40YO3uQEhtQeCtT1BWy/view?usp=sharing https://drive.google.com/file/d/1mNRhxmC51bdZaS4GmwFdgXxUlEhgYEoz/view?usp=sharing Y desde ya agradezco su apoyo y colaboración.
  4. Buenos días @johnmpl @Gerson Pineda @Snake, por los aportes brindados, los cuales me ayudaron mucho a solucionar le problema que tenia, por lo que daría como TEMA SOLUCIONADO.
  5. Buenas tarde a los integrantes de este foro, en esta ocasión recurro a uds para que me brinde su apoyo con alguna formula o macro la cual se requiere convertir la cuenta CCI ubicada en la columna B4 (resaltado de color ROJO) y que el resultado obtenido sea como la que se muestra en la columna E4, para lo cual adjunto archivo. Desde ya agradezco su apoyo y colaboración. CONVERSION DE CUENTA.xlsx
  6. Buenos días @avalencia y @huatson70 por los aporte brindados, los cuales me ayudaron mucho a solucionar este impase que tenia, por lo que agradeciendo su apoyo y colaboración, daría el TEMA COMO SOLUCIONADO.
  7. Hola @avalencia, de acuerdo al archivo y los criterios indicados qué son 6, como podría hacer o qué tipo de método podría usarse. Saludos.
  8. Buenos días a los integrantes de este foro, en esta ocasión recurro a uds, para que me brinde su apoyo en como mejorar la macro que estoy utilizando “filtro avanzado” para lo cual se viene desarrollando la búsqueda de solicitados: Fecha Inicio - Kilos – Cliente – Producto – Barco, pero ahora me solicitan que agregue el campo Fecha Termino (como criterio de rango), para lo cual el nuevo diseño seria Fecha Inicio Fecha Termino Kilos Cliente Producto Barco Y como se aprecia en la hoja DESPACHO se tiene una pequeña base de datos en donde se solicita filtrar al cliente GRAVISO S.A.C. teniendo como registro de productos desde el 26-05-18 al 21-09-18, pero me solicitan que sea como criterio de rango desde el 26-5-18 al 04-08-18 bajo el criterio cliente GRAVISO S.A.C. o cualquiera de los criterios señalados, para lo cual adjunto link del archivo, espero haber explicado. https://drive.google.com/file/d/19YU2OXYB_urKGn9Tcof4GMRyFOL7vRbE/view?usp=sharing Desde ya agradezco su apoyo y colaboración.
  9. Buenos dias @isidrod desde ya agradezco el aporte brindado el cual me ayudo mucho, por lo quedaría como TEMA SOLUCIONADO. Gracias.
  10. Buenas tardes a los integrantes de este foro, me quisiera que me apoyen para poder solucionar una actividad utilizando la formula =si, para hallar la bonificacion de unas ventas realizadas en la región costa, que sean mayores a 20000 y aparte a esas ventas se les percibirá el 3%, para lo cual adjunto archivo funcion si.xlsx
  11. Buenos dias @Gerson Pineda gracias por el aporte brindado la cual me ayudaron mucho, por lo que daría como TEMA SOLUCIONADO.
  12. Buenos dias @Gerson Pineda al parecer no se adjunto el archivo, las disculpas de caso. FUNCION SI ANIDADA x BUSCARV.xlsx
  13. Buenos dias a los integrante de este foro, en esta ocasión recurro a uds para que brinden su asesoramiento en como cambiar una función del SI ANIDADA por la función BUSCARV, para lo cual detallo formula que se usa: la cual esta estructurada en 6 opciones: para lo cual quisiera que esta formula del SI ANIDADA sea cambiada por un BUSCARV y como verán son 6 opciones y cada uno tiene un nombre de rango distinto CIAS. - DAAP - GAVIERO - SUPER - LBJ - MANIOBRAA (contiene su propio valor que proviene de otro hoja). Desde ya agradezco su apoyo y colaboracion.
  14. Buenos dias @johnmpl gracias por el aporte, me ayudo mucho a solucionar el impase del criterio edad, por lo que daría como TEMA SOLUCIONADO.
  15. Buenos dias a los integrantes de este foro, en esta ocasión recurro a uds, para que me brinde su apoyo a como mejorar la formula para obtener el resultado requerido en la columna O8, es decir en la columna M8 se tiene la formula para determinar la edad, pero cuando se evalúa la formula en la columna L8, se tiene como criterio que si el trabajador cumplió los 65 años no se debe descontar la PRIMA SEGURO la cual la formula esta OK, pero que resulta si el trabajador cumple los 65 años hoy 03 de febrero (teniendo como criterio la fecha de edad HOY()) por lo tanto debería calcular el valor que se refleja en la columna resaltado de amarillo, por lo que dicho criterio evaluaría a fecha posterior al 03 de febrero, desde ya agradezco su apoyo y colaboración, y esperando haber explicado. Saludos. FORMULA DE 65 AÑOS AFP.xlsx
  16. Buenas tardes @Silvia, gracias por el aporte brinda, la cual se pudo solucionar el problema que tenia. Gracias por lo quedaría como tema SOLUCIONADO.
  17. Buenos días a los integrantes de este foro, en esta ocasión recurro a uds, para que me brinde su apoyo en cómo mejorar la fórmula que se ubica en la celda AM8 (REMUN. AFECTA), dicha formula realiza una operación simple cual está compuesta de la siguiente manera: Sintaxis: =SI.ERROR(+AL8-AC8-AD8-AE8-AF8-AH8-AI8-AJ8,0) Pero ahora me solicitan que dicha formula este supeditada a la condición “ONP” que se ubica en la celda F8, es decir que todas formulas que se ubican en la celda AM8 y coincida con el criterio ONP de celda F8 se le debe restar el valor de la celda Y8. Desde ya agradezco su apoyo y colaboración, anexo link de archivo. https://drive.google.com/file/d/1Y5cob8CbouulrzjrT3Q3gH1U7wsQplZ0/view?usp=sharing
  18. Buenas noches a los integrantes de este foro, en esta ocasión recurro a uds,, para que me brinde su apoyo con alguna fórmula para determinar que cuando los valores ingresados que inician desde la Columna M2 hasta U133, se vallan comparando entre ellos y teniendo como filtro de verificación las columnas N2, O2, y Q2 (se repite) consigne el valor 1 en la columna T2, es decir y como se aprecia en el archivo adjunto en fila N2 hasta N12 los nombres se repiten en la fila N20 hasta N30, igualmente para los celda O y Q, espero haberme explicado lo que requiero obtener como resultado. Desde ya agradezco su apoyo y colaboración. INGRESO DE JORNADAS.rar
  19. Buenas tardes a los integrantes de este foro, en esta ocasión solicito su apoyo en este UserForm, es decir al estar en la Hoja BASE y presionar en el botón CONSULTA DATOS REGISTRADOS nos mostrara otro formulario MODIFICAR REGISTROS y al digitar el valor buscado en el textbox (PERRY PUERTAS SANTIAGO ELLIT) y tras presionar el botón filtrar, nos mostrara todos los datos relacionados y seleccionamos cualquiera ID y posteriormente presionar el boton Modificar (userform fmrModificar) y lo que se requiere es al escribir HUANCA GOMEZ MARIELA DEL PILAR (en el textbox TRABAJADOR) se posicione el DNI automáticamente tras el valor solicitado (textbox DNI) de la hoja CONFIG, adjunto link del archivo e imagen. https://drive.google.com/file/d/1SeGNa7Ny7UtRuOnbwaRy7t8XDHxXx8xW/view?usp=sharing https://drive.google.com/file/d/1ZJEMjdHvgMs75KvYVdPBkmK3z_N6d0mR/view?usp=sharing Desde ya agradezco anticipadamente su apoyo y esperando haber explicado de lo que se requiere, saludos.
  20. Olvide de indicar,que también verifique la configuración regional de mi PC y realice los cambios a mi laptop, ni con eso funciona.
  21. Amigo @Haplox adjunto link del archivo, desde ya agradezco la ayuda brindada. link https://drive.google.com/file/d/1raP46NN9WWSbwnCSa0OOcpjXZFBFJLTE/view?usp=sharing
  22. Buenos dìas @Haplox, efectivamente tienes razón en cuanto es raro que un pc funcione bien y en la otra no, pero volví a crear el archivo desde cero y lo copie en otra pc y muestra la información con "," pero solo es la presentación cuando realizo el filtro en el listbox,de acuerdo a la imagen envidas. Saludos.
  23. Buenas noches @Antoni, gracias por el aporte brindado, ya que se pudo solucionar el error en el TextBox4 campo Fecha. Pero ahora se presento otro problema en el mismo archivo pero en el TextBox5 campo Tonelaje, es decir en mi PC cuando ejecuto el formulario frmBuscar y se muestra la información correcta en el ListBox. link de imagen correcta: https://drive.google.com/file/d/1xAlURMmuGYOweD-i4ZezMbcO7dgO9yU6/view?usp=sharing Pero cuando copio el mismo archivo a mi laptop, lo muestra como erroneo, link de la magen https://drive.google.com/file/d/1J7jX0Wd8zOhGdqn7Fjt4MI7fASVmeREi/view?usp=sharing Desde ya agradezco nuevamente por la ayuda brindada.
  24. Buenos días a los integrantes de este foro, en esta ocasión recurro a vuestra ayuda para me brinde su asesoramiento en como hacer que en el TextBox4 FECHA del formulario fmrModificar quede con Formato Fecha, ya que al hacer modificaciones en otros TextBox el campo FECHA de distorsiona es decir invirtiendo la fecha registrada ejemplo: 12/10/2018 a 10/12/2018 o al modificar la fecha ingresar lo posiciona al lado izquierdo, todo esto para mejor visualización los adjunto en el link imagenes, también adjunto el archivo y la macro con la que se esta trabajando. Desde ya agradezco su apoyo incondicionalmente, salvo que brinden otro tipo de formulario. 'Actualizar el registro Private Sub CommandButton1_Click() For i = 1 To 9 ActiveCell.Offset(0, i - 1).Value = Me.Controls("TextBox" & i).Value Next i Unload Me End Sub Private Sub CommandButton3_Click() UserForm4.Show End Sub Private Sub CommandButton4_Click() UserForm5.Show End Sub 'Llenar los cuadro de texto con los datos del registro elegido Private Sub UserForm_Initialize() For i = 1 To 9 Me.Controls("TextBox" & i).Value = ActiveCell.Offset(0, i - 1).Value Next i End Sub 'Cerrar formulario Private Sub CommandButton2_Click() Unload Me End Sub Private Sub TextBox6_change() Dim Texto As Variant Dim Caracter As Variant Dim Largo As String On Error Resume Next Texto = Me.TextBox6.Value Largo = Len(Me.TextBox6.Value) For i = 1 To Largo Caracter = CInt(Mid(Texto, i, 1)) If Caracter = "" Then If Not Application.WorksheetFunction.IsText(Caracter) Then Me.TextBox6.Value = Replace(Texto, Caracter, "") MsgBox "SOLO PUEDE INGRESAR LETRAS", vbOKOnly + vbInformation, "AVISO" Else End If End If Next i On Error GoTo 0 End Sub Private Sub TextBox7_change() Dim Texto As Variant Dim Caracter As Variant Dim Largo As String On Error Resume Next Texto = Me.TextBox7.Value Largo = Len(Me.TextBox7.Value) For i = 1 To Largo Caracter = CInt(Mid(Texto, i, 1)) If Caracter = "" Then If Not Application.WorksheetFunction.IsText(Caracter) Then Me.TextBox7.Value = Replace(Texto, Caracter, "") MsgBox "SOLO PUEDE INGRESAR LETRAS", vbOKOnly + vbInformation, "AVISO" Else End If End If Next i On Error GoTo 0 End Sub https://drive.google.com/file/d/1raP46NN9WWSbwnCSa0OOcpjXZFBFJLTE/view?usp=sharing Link Imagenes https://drive.google.com/file/d/1sR0Poc6FLzLSl4PD6Jb1oVzg1Au8APwn/view?usp=sharing https://drive.google.com/file/d/13Z5s_WkUi9I6fhS1t2igMqfDG_NQag-7/view?usp=sharing https://drive.google.com/file/d/17Xis0sh5Ah9zs3QNg7ick13kGj-uDFQx/view?usp=sharing https://drive.google.com/file/d/1vbEvIL8KzzF1_x6BlXbNmzajUnPL7r5Q/view?usp=sharing
  25. Buenas tardes @Gerson Pineda el aporte brindado es excelente y como indicas no se usa mucho la condición SI. Gracias y Saludos.
×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png