Dante Amor

H o l a: Revisa que en la misma carpeta tengas los archivos. Revisa el nombre del archivo. También revisa que los archivos sean plantillas, es decir, que tengan extensión .dotx sal u dos

H o l a: Si no están habilitadas las macros, no se podría ejecutar una macro para habilitar las macros. Para que las macros estén habilitadas revisa el siguiente enlace: http://excelforo.blogspot.mx/2013/06/vba-habilitar-macros-de-excel.html Otra...

Te anexo la macro, al final ordena la información para que los códigos queden juntos. Sub FolioPredio() 'Por.Dante Amor Application.ScreenUpdating = False Application.StatusBar = False Set l1 = ThisWorkbook Set h1 = l1.Sheets(1) Set l2 =...

H o l a: Estas son las macro para tomar la foto y para guardar Dim htmp As String Dim fichero As String Const fgif = "foto" Const mipath = "c:\" 'debe acabar en \ el directorio donde guardar las fotos ' Private Sub CommandButton2_Click() ' Por.Dante...

H o l a: Te anexo la macro actualizada Sub exportaraword2() 'Codigo escrito por Manuel Vizcarra - wwww.combito.com Dim datos(0 To 1, 0 To 2) As String '(columna,fila) 'Act.Por.Dante Amor plas = Array("Proc Cont. IE El Diamante ENSAYO.dotx", _...

H o l a: Entiendo que en el libro 1 quieres los resultados, entonces envíame el libro1 con un ejemplo de cómo quieres los resultados. También entiendo que en el libro 2, tiene varias hojas, que quieres tomar datos de las hojas y pasarlas al libro 1,...

H o l a: Te anexo la macro, pon el siguiente evento: Private Sub txtcedula_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) 'Por.Dante Amor If KeyCode = 13 Then ruta = ThisWorkbook.Path & "\" imagen = txtcedula arch = Dir(ruta...

H o l a: Te anexo la macro Sub UnirCeldas() 'Por.Dante Amor For i = 2 To Range("A" & Rows.Count).End(xlUp).Row + 1 cad = cad & Cells(i, "A") & ", " If Cells(i, "A") = "" Then Cells(i, "G") = Left(cad, Len(cad) - 4) cad = "" End If Next End Sub' : )...

H o l a: ¿Y en dónde quieres que se genere la matriz? ¿En una hoja? ¿En cuáles celdas? ¿Siempre debe decir "Ciudad " y un número?

H o l a: Supongo que en la fila 1 tienes encabezados, si es así, entonces prueba con lo siguiente: Sub filtrar() If ActiveSheet.AutoFilterMode Then ActiveSheet.AutoFilterMode = False u = Range("G" & Rows.Count).End(xlUp).Row If u = 1 Then Exit Sub...