Dante Amor

H o l a: Pon la siguiente macro en los eventos de ThisWorkbook Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) 'Por.Dante Amor If SaveAsUI = False Then MsgBox "No se puede Guardar directamente. Utiliza Guardar Como",...

H o l a: ¿En cuál fila empiezan las tiendas? ¿Los productos los tienes en una misma celda separados por comas? Y en dónde quieres el resultado, ¿puede ser en otra hoja? Si es correcto todo lo anterior te anexo la macro. Sub Transponer() 'Por.Dante...

H o l a: Prueba de esta forma Private Sub Worksheet_Change(ByVal Target As Range) With Columns(Target.Column) .Sort key1:=.Cells(1, 1), Header:=xlYes End With End Sub

H o l a: Te anexo la macro actualizada Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'Act.Por.Dante Amor Range(Cells(2, 1), Cells(Rows.Count, Columns.Count)).Interior.ColorIndex = xlColorIndexNone If Target.Row > 1 Then...

H o l a: Te anexo la macro. Sub AsociarNumeros() 'Por.Dante Amor Application.ScreenUpdating = False Application.DisplayAlerts = False Set l1 = ThisWorkbook Set h1 = l1.ActiveSheet ruta = l1.Path & "\" arch = "Archivo2.xlsx" ' num =...

H o l a: Pon el siguiente código, por ejemplo en un commadbutton dentro de tu formulario: Private Sub CommandButton1_Click() 'Por.Dante Amor Set h = Sheets("Hoja1") Set r = h.Columns("B") Set b = r.Find(TextBox1, lookat:=xlWhole) If Not b Is Nothing...

H o l a : Esta es una opción, en la variable u se almacena la última fila con datos de la columna "A" + 1, es decir, la siguiente fila estará vacía; cambia la letra "A" en esta instrucción, por la columna en la que quieres encontrar la última fila...

H o l a: En los siguiente ejemplos puedes ver cómo agregar más celdas individuales o rangos de celdas: Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'Act.Por.Dante Amor If Not Intersect(Target, Range("B4, D9, F3, G2:G8, H3:K4")) Is...

H o l a: Envíame tu archivo con tu formulario para adaptar el control de impresión. El formato de impresión será el que tenga la hoja, es decir, si envías a PDF las hojas 3 y 5, cada hoja se exportará a un solo archivo PDF con su formato respectivo....

H o l a: Realiza lo siguiente en la hoja "PLA1" Selecciona la primera celda con código, por ejemplo, suponiendo que el primer código está en la celda B17, entonces en la hoja "PLA1" 1. Selecciona la celda B17, 2. En el cuadro de nombres escribe...