Dante Amor

Dante Amor

https://www.youtube.com/@CursosDeExcelyMacros
 5.752K puntos  Ciudad de México, México @aprendemos desde - visto
Preguntar

Respuestas en Programación

Respuesta en a

Inicio de formulario sin afectar a otros archivos excel

Lo que pasa es que con esta instrucción haces invisible la aplicación de excel. Application.visible = False Puedes abrir los archivos de excel pero no estarán visibles. Si quieres ver los archivos entonces quita la instrucción de la macro. Si quieres...
Respuesta en y en 1 temas más a

Macro para copiar celdas especificas de una hoja1 y guardarlas en la Hoja2

Te anexo la macro para que copie de repuestos a DATOS, solamente cambia de qué celda a qué celda quieres copiar. Sub Pasar_Datos_del_Mes() 'Por.DAM Sheets("Repuestos"). Range("B4"). Copy Sheets("Datos"). Range("B4") Sheets("Repuestos"). Range("B5")....
Respuesta en y en 1 temas más a

Limpiar Celdas especificas en diferentes hojas de excel vba

Si vas a limpiar en todas las hojas de tu archivo, puede ser así: Sub limpiar() 'Por.DAM rango = "N7,P7,R7,N12,P12,R12,Z11:AF14,J22:L27,J29:L29," & _ "J35:L37,J42:L45,V42:X43,AC42:AC43,AC45,J51:L57," & _ "AF49:AT59,AC21:AT26,AC28:AT39" For Each h In...
Respuesta en y en 2 temas más a

Realizar Filtro por textbox

Este es un ejemplo de un código para realizar filtros por varios campos. En el ejemplo te estoy poniendo 2 combos y 2 textbox. También te anexo mi archivo para que veas el funcionamiento y puedas adaptar el código a tus datos. Archivo de filtros...
Respuesta en y en 3 temas más a

Macro que compare valores de sos libros

Te anexo una macro Sub comparar() 'Por.Dante Amor Application.ScreenUpdating = False Set l1 = ThisWorkbook Set h1 = l1.ActiveSheet 'abrir archivo arch = Application.GetOpenFilename("Excel (*.xls*), *.txt*") If arch = False Then Exit Sub Set l2 =...
Respuesta en y en 2 temas más a

¿Como creo una macro que me guarde una copia de un archivo excel, con un nombre especifico y solo ciertas "Sheets?"

Coloca la siguiente macro en tu libro "Reporte Final" Sub guardar() 'Por.Dante Amor Application.ScreenUpdating = fals Application.DisplayAlerts = False Set l1 = ThisWorkbook ruta = "K:\Produccion\Diario\PLANTA I" 'ruta = l1.Path ' 'Crea nuevo libro y...
Respuesta en y en 2 temas más a

Macro para que se generen diferentes textos en una columna respecto a la fecha actual

Esta sería la macro para las filas de la columna F y poner el resultado en la columna H Sub fechas() 'Por.Dante Amor For i = 1 To Range("F" & Rows.Count).End(xlUp).Row m0 = Year(Date) & Format(Month(Date), "00") mes = Month(Date) m1 = Year(Cells(i,...
Respuesta en y en 2 temas más a

Condicionar ejecución de macro al tamaño de un objeto

Estuve haciendo pruebas y las imágenes no aceptan más de 2 decimales en el tamaño, tendrías que poner algo así, pero utilizando solamente 2 decimales Sub continuar() ' 'instrucciones de tu macro ' If ActiveSheet.Shapes("WebBrowser1").Height = 302.17...
Respuesta en y en 2 temas más a

No se de macro en excel y quiero una que copie en hoja 2 parte de fila, si en columna B de hoja 1 "si"

Sigue las Instrucciones para un botón y ejecutar la macro 1. Abre tu libro de Excel 2. Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11 3. En el menú elige Insertar / Módulo 4. En el panel del lado derecho copia la macro 5. Ahora para...
Respuesta en y en 2 temas más a

Celda de excel a txt UTF-8

Intenta lo siguiente: 1. Escribe lo que necesitas en tu celda. 2. Selecciona guardar como. 3. En la venta de guardar como, escribe el nombre del archivo, selecciona en Guardar como tipo: Texto Unicode 4. Presiona el botón "Herramientas" 5. En las...