Dante Amor

H o l a: Los comandos en la macro se tienen que poner en inglés, quedaría así: Sub Macro1() ' Range("F1").FormulaR1C1 = "=DATEVALUE(DAY(R[4]C[1]) & "" / "" & MONTH(R[4]C[1]) & "" / "" & YEAR(R[4]C[1]))" End Sub'S aludos. Dante Amor. Recuerda valorar...

H o l a: Pon la macro que tiene el problema. Dime qué mensaje de error te aparece. Cuando te aparece el mensaje de depurar, presiona el botón de depurar y dime qué línea de la macro se pone de amarillo. sal u dos

H o l a: No entendí cómo quieres el resultado, puedes poner 3 imágenes de tus hojas de excel: Una imagen con la hoja1 Imagen2 de la matriz antes de asignar los valores; y una tercera imagen de la matriz después de asignar los valores. Procura que en...

H o l a: Por lo que veo toda la información está en una tabla. Suponiendo que la tabla empieza en la columna A, te anexo la macro actualizada para que funcione pero con referencias a los nombres de las columnas: Sub Macro68() '------------------ 'by...

H o l a: Intenta con lo siguiente Sub Fila() 'Act.Por.Dante Amor Application.ScreenUpdating = False On Error Resume Next alertTime = Now + TimeValue("00:00:10") Application.OnTime alertTime, "Fila" ' Sheets("Datos").Range("A20") = "Estado"...

Te anexo la macro Private Sub CommandButton1_Click() 'Por.Dante Amor cad = "" If TextBox1 = "" Then cad = cad & "Nombres. " If TextBox2 = "" Then cad = cad & "Apellidos. " If ComboBox1 = "" Then cad = cad & "Zona. " If ComboBox2 = "" Then cad = cad &...

H o l a: Te anexo la macro actualizada Sub EXPORTAR_PDF() '_______________'''EXPORTAR PDF'''_______________'' Sheets("formatosalidamanual").Visible = True Worksheets("formatosalidamanual").Select 'hoja a exportar Set RangoExportar =...

H o l a: Envíame en un correo nuevo tu archivo con el formulario. Escribe tu nombre de usuario en el asunto. Describe en esta pregunta todo el detalle que se requiere para capturar la pantalla. Nombre de hoja.Nombre de archivoTipo de archivo.Tienes...

H o l a: En la celda L6 pon la siguiente fórmula matricial...

H o l a: ¿Y qué error te aparece? Prueba con lo siguiente, cambia la ruta por tu ruta donde se encuentran los Xml Sub abrirXml() Application.ScreenUpdating = False Application.DisplayAlerts = False ruta = "C:\Documents and Settings\DAMOR\Mis...