Marcos Masri Cherem

Dante Amor respondió: Cambia en la macro: ruta = "D:\Documents and Settings\Gerente\Mis documentos\Dropbox\" Por esto ruta = "D:\Documents and Settings\Gerente\Mis documentos\Dropbox\Cartas Generadas\" Saludos.Dante Amor Recuerda valorar la respuesta.

Dante Amor respondió: Pero en tu explorador de windows se ve parecido a esto: Si es así, puedes decirme en qué ruta tienes tu carpeta Dropbox

Dante Amor respondió: Podemos probar con esta macro, pero envíame un ejemplo de documento de word, te tu excel y de un par de imágenes. Sub CorrespondenciaConWord() 'Por.Dante Amor ' patharch = ThisWorkbook.Path & "\plantilla1.dotx" ' For i = 2 To Range("A" &...

Dante Amor respondió: Respondí algo similar, pero no usando correspondencia de word con excel. Es utilizando una macro, para cada registro en la lista de excel toma una plantilla de word y crea un documento. Puedes obtener toda la información, los ejemplos de word, de...

Dante Amor respondió: Te anexo la macro Private Sub Worksheet_Change(ByVal Target As Range) 'Por.Dante Amor 'End clave = "abc" ' If Not Intersect(Target, Range("A:H, J:J")) Is Nothing Then ActiveSheet.Unprotect clave Application.ScreenUpdating = False...

Dante Amor respondió: Te anexo la macro, creo que lo más conveniente es que se actualice todo hasta que capturas el dato de la columna G. Pero revisa el resultado y me comentas. Private Sub Worksheet_Change(ByVal Target As Range) 'Por.Dante Amor clave = "abc" ' If Not...

Dante Amor respondió: Te anexo el código para desproteger la hoja, bloquear las celdas modificadas y volver proteger la hoja para que no se pueden modificar los datos. Private Sub Worksheet_Change(ByVal Target As Range) 'Por.Dante Amor clave = "abc" ' If Not...

Dante Amor respondió: Quieres decir que el primer registros con estos datos: ¿605 Asadores 4 le corresponde el número 1? ¿Y si más adelante encuentro los mismos datos le toca el número 2? La macro aplicaría, cada vez que cambies un dato de las columnas B, D y E, pero...