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

Copiar datos de hoja activa a base de datos cerrada

¿Podrías poner en qué celdas de tu hoja activa ingresas los datos y qué columnas de tu "base datos" hay que poner los datos? Y a qué te refieres con "hoja cerrada", ¿la tienes oculta? ¿O la tienes protegida? ¿O la tienes oculta y protegida?
Respuesta en y en 2 temas más a

Macro para calcular semanas de fecha a fecha

Para calcular las semanas, después de esta línea ActiveCell.Offset(0, 6) = pri_con agrega lo siguiente a tu código ActiveCell.Offset(0, 7) = Application.RoundUp((CDate(pri_con) - CDate(fur)) / 7, 0) 'calula semanas Saludos.Dante Amor
Respuesta en y en 2 temas más a

Cómo actualizar datos autmaticamente en un objeto creado desde código.

No entiendo que vas a hacer con la cantidad y el descuento, pero un label recibe cualquier valor como cualquier textbox, por ejemplo label1 = val(textbox1) * val(textbox2) Lo anterior lo puedes poner en un botón o en alguno de los eventos del textbox.
Respuesta en y en 3 temas más a

Copiar una hoja en una carpeta creada automáticamente

Te anexo la macro, el nuevo libro se va a llamar "codigo.xlsx" Sub CrearHoja() 'Por.Dante Amor Application.ScreenUpdating = False Application.DisplayAlerts = False ruta = ThisWorkbook.Path & "\" año = Year(Date) mesn = Format(Month(Date), "00") mesl...
Respuesta en y en 2 temas más a

Macro para Guardar Hora y minuto al escoger mediante combobox

Esa es una buena opción. La macro podría quedar así: Private Sub CommandButton1_Click() If UCase(ComboBox3) = "PM" Then hora = Val(ComboBox1) + 12 Else hora = ComboBox1 End If Range("A7") = TimeSerial(hora, ComboBox2, 0) End Sub solamente revisa que...
Respuesta en y en 2 temas más a

Formulario para bloquear y desbloquear hoja de excel

Para preguntar por la contraseña, Agrega el siguiente código en el formulario: La contraseña para válida es "abc", la contraseña que tiene la hoja es "xyz". Private Sub CommandButton1_Click() 'Por.Dante Amor If TextBox1 = "abc" Then...
Respuesta en y en 4 temas más a

¿Cómo se calcula el futuro de una serie numérica?

En el siguiente vídeo muestran la fórmula para calcular el siguiente número en una sucesión numérica. https://www.youtube.com/watch?v=W0bkKBR0Q_I En tu ejemplo, no distingo cuáles son los número, por ejemplo, si dividimos el número en intervalos de...
Respuesta en y en 2 temas más a

Macro para copiar entre 2 hojas resaltando diferencias de datos

Me puedes enviar tus archivos y con colores y ejemplos me explicas lo que necesitas. Mi correo [email protected] En el asunto del correo escribe tu nombre de usuario “Pedro Casas” y el título de esta pregunta.
Respuesta en y en 2 temas más a

Que limpie rangos de distintas hojas de mi libro original

Con esto limpias rangos y celdas, no pusiste qué rangos y qué hojas, así que te pongo el código para que lo adaptes. Sub LimpiaRangos() 'Por.Dante Amor Sheets("Hoja1"). Range("A5:B10"). ClearContents Sheets("Hoja1"). Range("D6:B11"). ClearContents '...
Respuesta en y en 4 temas más a

Crear respaldo de libro con nombre de fecha y en escritorio.

Te anexo la macro para el punto 1. En los eventos de thisworkbook pon lo siguiente: Private Sub Workbook_BeforeClose(Cancel As Boolean) 'Por.Dante Amor Respaldo End Sub Ahora, en un módulo pon las siguientes macros: Sub Respaldo() 'Por.Dante Amor...