Dante Amor

H o l a: Podrías explicarlo con ejemplos. Y a qué te refieres con "los guarde en un vector", también explícalo con ejemplos. Si puedes poner imágenes de cada hoja, procura que se vean las filas y las columnas de excel.

H o l a: Te anexo la maco. Cambia en la macro "Hoja1" y "Hoja2" por los nombres de tus hojas. Cambia "F" por la letra de la última columna que quieras copiar. Sub CopiarColumnas() 'Por.Dante Amor Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2")...

H o l a : Envíame tu archivo con las 2 hojas, la de cliente y la del formato específico vacío; en una tercera hoja me pones el formato específico lleno con los datos de uno de los clientes, ese cliente en la hoja de clientes, me lo pintas de un...

H o l a: Te anexo la macro actualizada, establecí en las variables h1 y h2 los objetos de las hojas, para no repetir todo el nombre de la hoja varias veces. En la variable ValorEncontr tienes el objeto de la celda encontrada, con esa variable, puedes...

H o l a: Pon la siguiente macro en un módulo Sub Auto_Open() 'Por.Dante Amor Set h2 = Sheets("Hoja2") For i = 2 To h2.Range("A" & Rows.Count).End(xlUp).Row If h2.Cells(i, "A") <= Date Then cad = cad & " " & h2.Cells(i, "B") & " " & h2.Cells(i, "C") &...

H o l a: Te anexo la macro Sub copiar() 'Por.Dante Amor On Error Resume Next With Application Set rango = .InputBox("Selecciona el rango a copiar", _ Default:=Selection.Address, Type:=8) If rango Is Nothing Then Exit Sub Set celda =...

H o l a: Te anexo la macro actualizada Sub Trasladar() 'Por.Dante Amor Application.ScreenUpdating = False Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") If h1.[F1] = "" Or Not IsDate(h1.[F1]) Then MsgBox "Escribe una fecha correcta en la celda F1"...

H o l a: Te propongo lo siguiente, revisando tu imagen veo que tienes disponible la celda F1, podemos utilizarla para que en esa celda pongas la fecha que deben tener los productos. Esta sería la macro: Sub Trasladar() 'Por.Dante Amor...

H o l a: La macro que pusiste no está completa, pero con el siguiente evento puedes ejecutar una macro cuando seleccionas la celda "Q2" Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'Por.Dante Amor If Target.Address(False, False) =...

H o l a: Te anexo la macro: Sub GuardarHoja() 'Por.Dante Amor Application.DisplayAlerts = False Sheets("Hoja2").Copy ruta = ThisWorkbook.Path & "\" arch = Sheets("Hoja2").[B11] & " " & Format(Date, "dd-mm-yyyy") & ".xlsx" ActiveWorkbook.SaveAs...