Dante Amor

H o l a: Te anexo la macro Sub OcultarFilas() 'Por.Dante Amor Set r = Range("B20:B31") r.EntireRow.Hidden = False Set b = r.Find("~*", lookat:=xlPart) If Not b Is Nothing Then ncell = b.Address Do: Rows(b.Row).Hidden = True Set b = r.FindNext(b) Loop...

H o l a: Envíame un correo con ejemplos, en la hoja1 me pones los datos originales y en la hoja2 me pones cómo quieres el resultado. Sa lu dos

Envíame 3 libros, 2 de los libros deberán tener la información origen, en un tercer libro me pones cómo quieres la información de los 2 libros anteriores, explícame con colores y comentarios. S aludos

H o l a: Te anexo la macro para que la pongas en los eventos de libro. Cada que abras el libro en automático en la hoja1 en la celda A1 te pondrá la fecha y hora de la última actualización. Cambia hoja1 y A1 en la macro por la hoja y la celda que...

H o l a: El siguiente código es para poner el color rojo en las celdas cuando creas uno nuevo Private Sub CommandButton8_Click() 'Actualizar del listbox2 a las celdas y al cmbLista If ListBox2.ListCount = 0 Then MsgBox "No hay registros a actualizar"...

H o l a: Hay que cambiar prácticamente todo el código. Por ejemplo, en esta parte del código: Sheets("STOCK"). Unprotect Sheets("STOCK").Select Range("B7").Select While ActiveCell.Value <> "" If ActiveCell.Value = pro$ Then ActiveCell.Offset(0,...

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: Esta es una opción, para que en una pestaña de excel, se carguen todas tus hojas y puedas seleccionar la hoja a la que quieres ir: Para crear la pestaña y se carguen las hojas, ejecuta la siguiente macro. Pon la macro en un módulo: Sub...