Jump to content

Martín Ruiz

Members
  • Content Count

    72
  • Joined

  • Last visited

About Martín Ruiz

  • Rank
    Advanced Member
  • Birthday 01/02/1972

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

  1. Les comento que en esta línea: .SaveAs strFlNm & ".docx", wdFormatXMLDocument, , False 'GUARDAR WORD .SaveAs strFlNm & ".pdf", wdFormatPDF, , False 'GUARDAR PDF ...existía una coma de más, pero me sigue fallando en el traslado de los datos de Excel a Word, además del hecho de que no sé cómo hacer, en el desconocimiento de sentencias en macros, para que al posicionarme en una fila o celda del campo "Minuta" o "ID de referencia" me dé los datos de dicha fila en el documento en Word. Supongo que la siguiente línea me lo limita a sólo una fila: Set xlCell = xlWkSht.Range("A4") Esto lo supe, porque en el renombrar el documento ".docx" con los campos que requiero, si me lo realiza (bueno sólo los de la fila A4)
  2. En la búsqueda de una solución, entre a la página de MrExcel y se me dio esta otra solución, pero me sigue fallando en el error 13 en tiempo de ejecución, no coinciden los tipos. ¿Qué sigue fallando o que le falta para funcionar? Sub OLESolic_LC() Dim xlWkBk As Workbook, xlWkSht As Worksheet, xlCell As Range Dim wdApp As Object, wdDoc As Object, strFlNm As String Const wdFormatXMLDocument As Integer = 12: Const wdFormatPDF As Integer = 17 Set xlWkBk = ThisWorkbook Set xlWkSht = xlWkBk.ActiveSheet 'xlWkBk.Sheets("Jovenes") Set xlCell = xlWkSht.Range("A4") 'On Error Resume Next 'strFlNm = CDate(CVErr(9)) 'Error CVErr(strFlNm) Set wdApp = CreateObject("Word.Application") With wdApp Set wdDoc = .Documents.Add(xlWkBk.Path & "\Memorandum.dotx") With wdDoc .Fields.Update .Fields.Unlink strFlNm = xlWkBk.Path & "\Memorandum " & Replace(xlWkSht.Cells(xlCell.Row, 3), " ", "_") & _ " Solicitud de linea de captura" & " " & Replace(xlWkSht.Cells(xlCell.Row, 22), " ", "_") ' Error CVErr(strFlNm) .SaveAs strFlNm & ".docx", wdFormatXMLDocument, , False 'GUARDAR WORD .SaveAs strFlNm & ".pdf", wdFormatPDF, , False 'GUARDAR PDF End With 'Mostrar ventana .Visible = True End With Set wdDoc = Nothing: Set wdApp = Nothing: Set xlCell = Nothing: Set xlWkSht = Nothing: Set xlWkBk = Nothing End Sub Sigue siendo la tabla y la plantilla en Word iniciales, para ver si existe alguna forma de que mi plantilla y macro funcionen. Gracias de antemano. PDT. La versión Windows y Office de mi computadora personal es Windows de 64 bits y Office 2010
  3. Hola estimados masters: Esperando que todos y cada uno de ustedes se encuentren bien de salud, paso a mi solicitud: Resulta que tengo un documento Excel que utilizaré como base de datos para que algunos de los capturados en hojas diferentes (en el ejemplo puse dos hojas) se puedan pegar en una plantilla de Word en una especie de Combinación de Correspondencia, pero al revés y al posicionarme, en cualquiera de las dos hojas, en la fila que contiene la información que requiero en la mencionada plantilla y ejecutar el macro, me creé un nuevo documento con la concatenación del texto "Memorándum" + datos del campo ID [de la fila donde me ubico] + el texto "SLC" + otro campo secundario + la terminación (.docx) y (.pdf) Claro que rellenando los datos que marco en la plantilla en Word. Ya tengo el macro, pero algo le falta para que funcione. Inicialmente en las pruebas si funcionaba (por lo menos en guardar el nuevo documento), pero al ir avanzando en el mismo me empezó a dejar a la mitad. En anexo el libro con el macro y el documento plantilla de Word. Saludos desde la Ciudad de México y mil de gracias por su atención y apoyo. ¡Un gran abrazo! Pasar a word.zip
  4. Buen punto. Gracias por la aclaración y seguimos en contacto. Saludos desde la Ciudad de México.
  5. Doy el tema por solucionado. Aunque aún me quede la duda si lo aquí realizado se puede hacer por medio de un UDF, por ejemplo si A1 contiene texto y nos ubicamos en B1 con el =A1 obtenemos ése mismo texto; entonces si en el mismo ejemplo, pero con la diferencia de que si A1 contiene un color y si nos ubicamos en B1 con un =COLORUDF(A!) obtenemos el mismo color (Conste que sólo como duda) Gracias de nuevo.
  6. Siempre lo he dicho y siempre lo diré, sin afán de adular sin fundamento, honor a quién honor merece y Marco: eres un excelente programador que se las sabe de todas todas. Esto era lo que necesitaba. ¡Mil gracias!. ¡Un gran abrazo! Saludos a los demás compañeros, amigos y miembros del foro.
  7. Estimados amigos y compañeros del foro: antes que todo y esperando que se encuentren bien, les envío mis más respetuosos saludos. Paso al caso, resulta que tengo un ColorGrama con más de 4900 registros y, puesto que cada uno de los criterios (11) cuenta con dos características: 1) tres celdas combinadas en una donde está el texto con el cual argumentan una calificación y, 2) otra celda con el color que le correspondió a la calificación (donde rojo es 0, amarillo es 0.5 y verde es 1 [calificación alta]). Bien, entonces basado en el color dado a su calificación, debo de colorear la celda con texto que se encuentra justo encima de la coloreada, para lo cual he estado intentando realizar una macro que lo realice en automático, incluso busque en páginas dedicadas a la programación en VBA alguna UDF que igualara en una celda el color de otra, pero no tuve la fortuna de localizarla. Les decía que lo he intentado, pero hasta el momento no le hayo cuadratura al círculo con lo que ya me hice un lío. Les anexo el archivo, para que, si hubiese forma de realizarlo ya con una macro o una UDF, hagan el favor de ayudarme en la resolución de tal lío. Aclaro que ya busqué por todas partes, en mi poco entendimiento de macros y UDFs. Gracias de antemano por su ayuda. Copiar_Color.xlsb
  8. Amigo Gerson: Excelente, ya quedo. Agradezco el gran apoyo brindado, ahora a capturar los faltantes y a actualizar la base en Excel y en Plataforma. Por lo que doy por concluido el tema. Mil gracias a ambos y seguimos en contacto. ¡Un gran abrazo!
  9. Mi amigo Gerson, un placer saludarte y ¡bárbaro! que solución tan acertada. Estimado DiegoPC, como te comente con tu solución hubiese cerrado el tema, pues también estuvo genial, pero al ser tantos registros si tenia que ser con esas condicionantes. Agradezco el interés de ambos en la resolución del problema, en verdad, ¡Mil gracias a los dos! Reciban un gran abrazo desde mi querida ciudad de México. Aún no doy por solucionado el tema, pues falta que haga las pruebas con los registros que les comentaba, pero según se ve, es un hecho. Seguimos en contacto. Gracias de nueva cuenta.
  10. Agradezco tu apoyo y gran interés estimado compañero DiegoPC, es algo de lo que estoy buscando y de hecho podría dar por solucionado mi tema, pero también haría falta el realizarlo en directo con estas dos únicas columnas sin adicionar una columna más sin tildes, puesto que como decía en mi post, son aleatorios pues bien podrían tener tildes tanto en una como en otra celda. Está excelente la solución, eso que ni que.
  11. Estimados compañeros del Foro, de nueva cuenta requiero de su valiosa y desinteresada ayuda para resolver una cuestión que se me ha complicado. Necesito comparar dos celdas de una lista extensa en excel (con más de 2500 registros) para poder actualizar un directorio, tanto en excel como en un repositorio alojado en internet, con la característica del que la primera de ellas tiene sólo nombre de la persona y en la segunda le antecede el nobilis, por ejemplo: Martín Ruiz Ramírez en la columna "B" y Dr. Martín Ruiz Ramírez en la columna "C". Y además de esto es aleatorio que en cualquiera de las dos, unos nombres estén acentuados y otros no. No omito comentarles que ya intente concatenar en la formula SI, con la formula O, pero no le doy al clavo, En el libro anexo, les doy una explicación un poco más amplia. Agradezco de antemano la ayuda prestada a un servidor. Libro1.xlsx
  12. Excelente observación, como indiqué, ¡soy un novato en estos menesteres! Que bien por contar con expertos como ustedes y, en especial, tan desprendidos como usted, mi estimado Marco Antonio. Agradezco enormemente tu apoyo. Recibe un gran abrazo y mi eterno agradecimiento. Saludos a los demás compañeros y estamos en contacto. Doy por concluida mi duda.
  13. Mil disculpas, aun sigo sin poder subir el archivo al foro. Lo anexo en el Drive: https://drive.google.com/file/d/0ByLMtEnnNDR8SjhaQ1lhaFhQaG8/view?usp=sharing Mil gracias por su apoyo.
  14. Estimados amigos del Foro: Navegando por los aportes, dudas y problemas resueltos de nuestra querida página, encontré un TPV muy bueno que se adapta a mis necesidades para llevar el registro de una papelería; está realizado por Marco Antonio y todo bien, hasta colocarle los datos en la hoja de "Artículos", pues al intentar accesar me marca la siguiente leyenda en el formulario Login "Se ha producido el error '13' en tiempo de ejecución: No coinciden los tipos" Lo anterior al direccionar el foco al formulario TPV, exactamente al TexBox "Atiende" Cito la consulta y anexo el libro. Ya realice algunas adecuaciones al VBA, además de los datos ingresados a la hoja "Artículos". Disculpen ustedes mi novates en estos menesteres. Agradezco de antemano la ayuda que me puedan otorgar para poder continuar con mi proyecto. Private Sub Aceptar_Click() Dim huser As Worksheet Dim Ufila As Integer Dim i As Long Aviso = "Usuario/contraseña erróneo" Set huser = Worksheets("Usuarios") Ufila = huser.Range("A" & Rows.Count).End(xlUp).Row 'For x = 2 To Sheets("Usuarios").Range("A" & Rows.Count).End(xlUp).Row For i = 2 To Ufila If UCase(Usuario) = UCase(huser.Range("A" & i)) And _ Trim(UCase(Contraseña)) = Trim(UCase(huser.Range("B" & i))) Then Aviso = "" Exit For End If Next If Aviso = "" Then DoEvents Me.Hide TPV.Atiende = huser.Range("A" & i) '(Aquí es donde presenta el error) TPV.Atiende.Locked = True If UCase(Usuario) <> "ADMIN" Then TPV.Show End If End Sub PDT. No puedo subir el fichero por lo que trascribí el error
×
×
  • Create New...

Important Information

Privacy Policy