Dante Amor

Dante Amor

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

Respuestas en Visual Basic

Respuesta en y en 2 temas más a

Como llenar una bd con ciertos criterios de otro archivo de excel con vba

H o l a : Envíame los archivos con los ejemplos y me explicas con comentarios e imágenes lo que tienes que realizar paso a paso. Mi correo [email protected] En el asunto del correo escribe tu nombre de usuario “Franco Anthon Paez Duran” y el título...
Respuesta en y en 2 temas más a

Nombrar tabla según hoja con vba

H o l a : Te anexo la macro Sub CopiarPlantilla() 'Por.Dante Amor Set h1 = Sheets("PRESUPUESTO FINAL") Set h2 = Sheets("PLANTILLAMADERA1") Set r = h1.Columns("B") Set b = r.Find("Partida", lookat:=xlWhole) If Not b Is Nothing Then celda = b.Address...
Respuesta en y en 2 temas más a

Sustituir una fórmula por macros

Pon la siguiente macro en los eventos de tu hoja Private Sub Worksheet_Change(ByVal Target As Range) 'Por.Dante Amor If Target.Count > 1 Then Exit Sub If Target.Address(False, False) <> "A2" Then Exit Sub Range("A3:A" & Range("A" &...
Respuesta en a

Filtrar varias más de 3 columnas en excel y Vba

H o l a : Envíame tu información y me explicas con ejemplos lo que necesitas. Mi correo [email protected] En el asunto del correo escribe tu nombre de usuario “Selene Hdez” y el título de esta pregunta.
Respuesta en y en 2 temas más a

Necesito una macro que me muestre las fechas de los días Sábados y domingos según el mes que yo quiera

H o l a : Te anexo la macro Sub Sab_y_Dom() 'Por.Dante Amor Range("B3:B" & Range("B" & Rows.Count).End(xlUp).Row + 3).ClearContents elmes = 0 mes = LCase(Range("B2")) For i = 1 To 12 m = LCase(Format(DateSerial(Year(Date), i, 1), "mmmm")) If m = mes...
Respuesta en y en 1 temas más a

Macro para colocar negrita y resaltar parte del texto de un correo en Outlook

Puedes poner la macro que tienes.
Respuesta en y en 1 temas más a

Macro descuenta artículos del almacen al realizar venta

H o l a: Te anexo la macro Sub Venta() 'Por.Dante Amor Set h1 = Sheets("factura") Set h2 = Sheets("articulos") ' 'Validar existencias i = 33 valida = "" Do While h1.Cells(i, "C") <> "" If h1.Cells(i, "C").Value <= 0 Or Not IsNumeric(h1.Cells(i, "C"))...
Respuesta en y en 1 temas más a

¿Cómo insertar un rango de celdas hacia abajo en excel con una Macro solo si se cumple una condición?

H o l a : Te anexo la macro. Antes de ejecutar la macro, crea una hoja llamada "temp", la macro la utiliza para realizar operaciones. Cambia en la macro en esta parte por los datos de tu hoja. Set h1 = Sheets("Hoja1") 'hoja con fechas Set h2 =...
Respuesta en y en 2 temas más a

Eliminar Dato de listbox estando en cualquier hoja

¿Quieres eliminar la fila del listbox o de la hoja o de ambos? ¿Cómo realizaste la carga en el listbox?
Respuesta en y en 2 temas más a

Abrir el libro siempre en una hoja predefinida

H o l a : Tienes que poner el nombre de la hoja entre comillas, por ejemplo: Sheets("Indice").ScrollArea = "$A$1:$P$31" Para seleccionar una hoja, puede ser así: Sheets("Indice").Select Podría quedar así: Private Sub workbook_open()...