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 y en 2 temas más a

Como copiar un dato de una hoja a otra en excel

Tendrías que poner un ejemplo amplio con referencias de filas y columnas, para entender, de dónde hay que copiarlo y en dónde hay que pegarlo. Si puedes poner el ejemplo con imágenes, sería más práctico entender lo que necesitas.
Respuesta en y en 1 temas más a

Según el valor de una celda, buscar todos los registros coincidentes y mostrarlos en forma alfabética en otra hoja

Pon la siguiente macro en los eventos de tu hoja Private Sub Worksheet_Change(ByVal Target As Range) 'Por.Dante Amor If Target.Address(False, False) = "C1" Then If Target.Count > 1 Then Exit Sub Set h1 = Sheets("Datos") Set h2 =...
Respuesta en y en 2 temas más a

Correr un macro que cambia de nombre cada cierto tiempo

Cambia la línea de tu macro Windows("GP_PD_MPS_STARTS.xlsx").Activate Por esto: ruta = ThisWorkbook.Path & "\" sem = Application.WeekNum(Date) nombre = ruta & "GP_PD_MPS_STARTS wk" & sem & ".xlsx" If Dir(nombre) = "" Then MsgBox "El archivo de la...
Respuesta en y en 2 temas más a

Macro para exportar excel a txt con longitud de columna fijo

Te regreso la macro ordenada. Genera el correo y pega las celdas al final del correo. No me dijiste exactamente en dónde quieres pegar las celdas. Con esta instrucción se va al final del correo SendKeys "^{END}" Cambia esa instrucción por SendKeys...
Respuesta en y en 2 temas más a

Por que excel no respeta las referencias en las macros

La macro tiene instrucciones que no sé, si es lo que necesitas, por ejemplo, empezando con esta línea: Selection.Range("F8").Select Lo que hace la línea anterior es, según la celda donde se encuentre el cursor, va a avanzar 8 filas hacia abajo y 6...
Respuesta en y en 3 temas más a

Ejecucion VBA excel 2010 con F8 me funciona al ejecutar mi codigo de programa pero...

¿Puedes poner el código? Pon la sentencia doevents después de la conexión Por ejemplo: Set ie = CreateObject("internetexplorer.application") With ie .Navigate2 "http://pagina.internet.com/" Do While .ReadyState <> 4 'READYSTATE_COMPLETE DoEvents Loop...
Respuesta en y en 2 temas más a

Enlazar textbox con conbobox en excel

Te anexo la macro Private Sub ComboBox1_Change() 'Por.Dante Amor If ComboBox1 = "" Then Exit Sub f = ComboBox1.ListIndex + 15 TextBox1 = Cells(f, "A") TextBox2 = Cells(f, "Y") End Sub Cambia textbox1 y textbox2 por los nombres de tus textbox. Cambia...
Respuesta en y en 1 temas más a

Macro para copiar ciertas celdas de una hoja y guardarlas en otra hoja

Asigna la siguiente macro a tu botón de copiar y guardar. Private Sub CopiarGuardar() 'Por.Dante Amor Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") u1 = h1.Range("A" & Rows.Count).End(xlUp).Row h1.Range(h1.Cells(u1, "A"), h1.Cells(u1, "E")).Copy...
Respuesta en y en 2 temas más a

Como guardar datos de un bloque de filas en otra hoja en filas diferentes

Te anexo la macro. Lo que hace es revisar desde la fila 2 y hasta la última fila de la columna "A", si en la columna "C" hay cantidad, copia la fila a la hoja2. También en la columna "D" de la hoja2 le pone la fecha. No pusiste varios datos de las...
Respuesta en y en 2 temas más a

Activar libro y hoja dependiendo de dato en textbox

Pon la siguiente macro en tu formulario. Private Sub CommandButton1_Click() 'Por.Dante Amor If Not IsNumeric(TextBox1) Then MsgErr = "Letras no permitidas" If TextBox1 = "" Then MsgErr = "Escribe un número de hoja" If Val(TextBox1) > 500 Then MsgErr...