Jump to content

SALAVERRINO

Members
  • Content Count

    296
  • Joined

  • Last visited

Everything posted by SALAVERRINO

  1. Buenas tardes @Leopoldo Blancas, este es lo que emite el complemento en la otra pc ='C:\Users\JOSE LUIS\AppData\Roaming\Microsoft\AddIns\extraernumerosCelda.xlam'!extraernumerosCelda(J8) Pero el complemento ya esta en: C:\Users\JOSHEP\AppData\Roaming\Microsoft\AddIns
  2. Buenas tardes a los integrantes de este foro, en esta ocasión recurro a uds, para que me brinden su apoyo en como solucionar a un error complemento, el cual detallo a continuación, la presente macro o complemento trabaja perfectamente en mi PC, pero cuando copio este mismo complemento a otra PC o laptop, ya no funciona indicando error, como si el complemento no estuviese en la ubicación por defecto (pc o laptop), esperando que me puedan ayudar con este error. C:\Users\JOSHEP\AppData\Roaming\Microsoft\AddIns en mi PC: C:\Users\JOSE LUIS\AppData\Roaming\Microsoft\AddIns Function extraernumerosCelda(datoCelda As Variant) As String 'Esta funcion me sirve para extrer los numeros de una celda de excel y la llamo como se llama una funcion cualquiera Dim tamanoCadena As Integer Dim cont As Integer Dim caracter As String Dim resultado As String If datoCelda = "" Then extraernumerosCelda = "" Exit Function End If resultado = "" tamanoCadena = Len(datoCelda) For cont = 1 To tamanoCadena caracter = Mid(datoCelda, cont, 1) If IsNumeric(caracter) Then resultado = resultado & caracter End If Next cont extraernumerosCelda = resultado End Function Saludos.
  3. Gracias por los aportes, ya que visualizando la publicación brindada por avalencia. Saludos y nuevamente gracias, por lo que daría como tema solucionado.
  4. Buenos días a integrantes de este foro y agradezco la información brindada, por lo que daría como tema solucionado. Saludos.
  5. Buenos días a los.integrantes de este foro, si habrá alguna macro, donde se pueda conectar un Excel con otro archivo Excel sin necesidad de abrir, como por ejemplo: abrir un archivo en Excel que se conecte a acces. Desde ya agradezco su apoyo y colaboración, saludos.
  6. Buenas tardes a los miembros de este foro, esta oportunidad recurro a uds, para ver la posibilidad de crear una macro y un formulario la cual permita que al ejecutarse el formulario y cuando se seleccione el label que contenga el texto TABLA 1, TABLA3, TABLA4, etc, permita abrir y ver el contenido de dicho dialogo con la tecla de funcion F3, como se aprecia en el archivo archivo dentro del link: https://drive.google.com/file/d/16XCbOpeqxvKK2UymJZ2K_9KlTSv-oxGG/view?usp=sharing Archivo TECLA DE FUNCION.xlsm y el archivo función Tablas Sunat 2017 V4.xla Desde ya agradezco su apoyo, saludos.
  7. Buenas noches a los integrantes de este foro, en esta ocasión recurro a uds, para que me brinde su apoyo y colaboración en como mejorar la siguiente macro, el siguiente formulario nos permite registrar al trabajador en forma individual y lo que se requiere es sea algo acumulativo los campos FECHA: almacene en forma temporal 15 veces, TONELADAS: 12 veces y TURNOS: 15 veces (cada jornada esta compuesta de 15 registros) y tras ir completando el resto de campos ESPECIALIDAD, PERMISO y DNI se tendría 1 registro lleno, quedando por completar 14 de las 15 jornadas que está compuesta (y mediante un contador regresivo se visualice en el formulario indicando los registros faltantes), posteriormente ya no sería necesario volver a registrar la FECHA, TONELADAS y TURNOS, sino que valla directo al campo ESPECIALIDAD, PERMISO y DNI hasta completar los registros faltantes o que el contador nos muestre que llego a CERO tras completar los 15 registros, una vez completo los 15 registros es necesario que se libere los campos FECHA, TONELADAS y TURNOS, para volver a registrar otra FECHA, TONELADAS y TURNOS, adjunto link para descarga del archivo. https://drive.google.com/file/d/1KBskQVMB0_2NGo7Zdu676JWE6djCI99m/view?usp=sharing Desde ya agradezco su apoyo y colaboración.
  8. Buenas noches @Haplox, gracias por el aporte y creo que la macro diseñada, está mucho más completo. Por lo quería cómo TEMA SOLUCIONADO. Saludos.
  9. Buenos dias @Haplox y @avalencia, diseñe esta macro para lo que esta requiriendo y desearía que me digan si esta bien, tiene algo de mas o le falta algo, gracias. Sub guardar() carpeta = ActiveWorkbook.Path filaa = carpeta & "\" & "SORT TRAB" If nombrar = vbYes Then filab = carpeta & "\" & "SORT TRAB" & ".xlsm" Else End If ActiveWorkbook.Save ActiveWorkbook.SaveAs Filename:=filaa, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False xnombre = ActiveWorkbook.Name Workbooks.Open (filaa) Workbooks(xnombre).Close savechanges = False End Sub
  10. Buenos días @Haplox, conforme a tu opinión, de que el archivo SORT TRAB PLANTILLA.xlsm, sea grabado como SORT TRAB PLANTILLA BACKUP.xlsm y SORT TRAB.xlsm, con el fin de guardar el backup y que el archivo a trabajar en forma diaria es SORT TRAB.xlsm, por ello quiera un ejemplo de una macro. Desde ya agradezco tu apoyo.
  11. Buenas noches a los integrantes de este foro, en esta ocasión quiere pedir su ayuda en alguna macro, el cual permita realizar lo siguiente que el archivo utilizado SORT TRAB PLANTILLA.xlsm, sea copiado como SORT TRAB PLANTILLA BACKUP.xlsm y el mismo archivo SORT TRAB PLANTILLA.xlsm, copiado con el nombre SORT TRAB.xlsm, adjunto link: https://drive.google.com/file/d/1KdhZTa8VfYV-6uZwNwNWKmeawGwI_UHK/view?usp=sharing Desde ya agradezo su apoyo y colaboración.
  12. Buenas tardes a los integrantes del foro, en esta ocasión recurro a Uds, para que me brinde su apoyo en como solucionar el error a aplicar un valor a la formula que hace referencia o quizas con la experiencia que tengan le den otra forma de aplicar estas formula, realice algunos cambios como cambiando la formula relativa a absoluto, pero lo consigna como valor fijo y la idea que esta formula son variables. Adjunto link del archivo: https://drive.google.com/file/d/1CW36FUsqWtyx4bW7G9FhzKR6KA3WXPpc/view?usp=sharing Desde ya agradezco su apoyo.
  13. Buenas tardes @Leopoldo Blancas, gracias por el apoyo. Saludos.
  14. Buenos tardes a los integrantes de este foro, en esta ocasión recurro a uds, para que brinde su apoyo en la formula FUNCIÓN SI, la cual estoy teniendo como error al momento de evaluar la CELDA C3 con la B3 las cuales se encuentran resaltadas de color amarillo y el resultado requerido es como se aprecia en la CELDA D3. detalle del error: Celda B16 cuyo valor es 0.00 con la C16 me emite con resultado 185.800, donde el resultado a obtener debería ser 0.00. Adjunto archivo. Desde ya agradezco su apoyo y colaboración. AYUDA FORMULA SI.xlsx
  15. Buenas tardes @Leopoldo Blancas, por el aporte brindado y la sugerencia me indicas, gracias, por lo que daría como TEMA SOLUCIONADO.
  16. Buenas tardes a los integrantes de este prestigioso foro, en esta ocasión recurriendo a uds para que me brinden su apoyo en que estoy errando al ejecutar la macro, que detallo a continuación, en la pestaña INGRESO al ejecutar INGRESO DE JORNADAS previamente hay que borrar los datos y para ello presiono BORRAR DATOS, una vez eliminado los datos y al momento de hacer el ingreso de nuevo datos la macro INGRESO DE JORNADAS ya no funciona emitiendo los errores que anexo en la pestaña ERRORES. Desde ya agradezco su apoyo y colaboración, anexo link. https://drive.google.com/file/d/14cak7rKUDCmj9hRmkz2TLhC1iFycmmal/view?usp=sharing
  17. Buenas tardes @Gerson Pineda, agradeciendo por el aporte brindado, la cual era lo que esta requeriendo para determinar mi calculo judicial cuando es por MUTUO ACUERDO o conforme lo dicta la ley a descontar, por lo daría como TEMA SOLUCIONADO. Saludos.
  18. Buenos tardes a los integrantes de este foro, en esta ocasión recurro a uds, para que me brinde su apoyo en como mejorar la formula para un descuento judicial cuyo monto es fijo y para otros no, es decir se cumple el porcentaje a descontar, el caso es que tengo a un trabajador en hoja PLANILLA cuyo DNI 04652099 se encuentra 7 veces y en la hoja MUTUO ACUERDO esta el DNI como condición buscado y con un monto fijo y este valor solo deberá aplicar para el primer DNI encontrado y los 6 restantes debe quedar en 0.00, pero al aplicar la formula desde celda L6 hasta la L12 se le esta asignando a los todos los DNI 04652099 el monto de 40.00 y debería queda como se aprecia en la celda K6 (valores como referencia), el resto de formula esta bien, para lo cual adjunto archivo. Desde ya agradezco su gentil apoyo y colaboración. FORMULA PARA DESCUENTO JUDUCIAL.xlsx
  19. Buenas tardes a @Leopoldo Blancas @Antoni @JSDJSD por sus aportes brindados, los cuales era lo que estaba requiriendo para completar mi listbox, desde ya agradezco su tiempo y dedicación a brindar y compartir sus conocimiento y experiencia, por lo que daría como TEMA SOLUCIONADO. Saludos y bendiciones.
  20. Buenas tardes a los integrantes de este foro, en esta ocasión recurro a Uds, para que me brinden su apoyo en el cual a ejecutar un userform como principal con el nombre INGRESE NOMBRE M/N y dentro de ello tengo otro userform con la opción CONSULTA TARIFA el cual contiene un listbox, pero al momento se cargar lo muestra distorsionado la ubicación de los datos que se encuentran en la Hoja "EE", esperando que me puedan brindar su apoyo, en que estoy fallando, adjunto link https://drive.google.com/file/d/1Vz-p9XJpBjSX1QV427vgbJGak1DPj4su/view?usp=sharing Gracias.
  21. Buenos días a los integrantes del foro @Leopoldo Blancas y @Gerson Pineda, por su aportes, lo cual me están ayudando mucho, para el caso que lo requería, por lo agradezco desde ya y daría como TEMA SOLUCIONADO.
  22. Buenos días a todos los integrantes de este foro, en esta ocasión recurro a Uds, para que me ayuden con una formula o quizas con una macro, la cual me permita ubicar la posición de filas que contenga la palabra "NO EXISTE CUENTA", como se describe en el documento adjunto, pude contar cuantas veces se repite dicha palabra, pero me faltaría complementar sus ubicaciones, en el archivo adjunto coloque manualmente las ubicaciones que son F7 - F30 - F134 y F160 (mi rango de ubicación es desde la F7 hasta la F1001), desde ya agradezco su gentil apoyo y colaboración. Saludos. UBICAR FILAS.xlsx
  23. Buenos días a los integrantes del foro @Antoni, @Héctor Miguel y @avalencia, por lo que les agradezco por su apoyo y colaboración en la solución al problema de como eliminar los Botones Control de Formularios, los cuales me ayudaron mucho, por lo que daría como TEMA SOLUCIONADO. Saludos.
  24. Buenos noches a los integrantes de este foro, en esta ocasión recurro a uds., en como mejorar la macro que me permita eliminar los botones de control de formulario, pero me tope con un botón que no puedo eliminar, desde ya agradezco su apoyo y colaboración. Saludos. Sub Elimina_botones_del_tipo_Ctrl_de_formulario() Dim ws As Worksheet, i% For Each ws In ActiveWorkbook.Worksheets For i = ws.Shapes.Count To 1 Step -1 If ws.Shapes(i).Type = msoFormControl Then If ws.Shapes(i).FormControlType = xlButtonControl Then ws.Shapes(i).Delete End If Next Next End Sub BASES DE DATOS.xlsm
  25. Hola @avalencia, agradezco el análisis y observación a la macro y detectar el error, del porque no generaba el código desde una determina hoja y como dices se nota la diferencia al momento de ejecutar la macro. Agradezco tu apoyo y colaboración, ya que esta macro podra servir quizas a muchas personas que esten con el mismo problema al crear un archivo texto con ancho fijo. Saludos y daría como como TEMA SOLUCIONADO a mi problema.
×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png