Cedrix Vargas

Luis Mondelo respondió: Creo que para algo así, no es necesaria una macro. Suponiendo que los datos empiezan desde A1 hacia abajo, escribe esta fórmula en B1 y luego arrástrala hacia abajo. En los casos en los que la fórmula te muestre un valor >1 indicará que es un...

Dante Amor respondió: Esta es la macro Sub precios() 'Por.DAM Set h1 = Sheets("Hoja1") 'hoja de productos y precios Set h2 = Sheets("Hoja2") 'hoja destino h2.Cells.Clear c = "A" 'columna de productos d = "B" 'columna de precios u = h1.Range(c & Rows.Count).End(xlUp).Row j...

Dante Amor respondió: Te anexo un archivo, en el userform va el código para validar los textbox, te puse un ejemplo con 3 textbox, tendrás que replicar este código en cada uno de los 40 textbox If validatext(ActiveControl.Name, ActiveControl.Value) = 1 Then Cancel = True...

Dante Amor respondió: La siguiente macro, lee los datos empezando en la celda A1. Borra las columnas K, L y M y te pone la tabla dinámica actualizada en la celda K2. Sub tabla() 'Por.DAM Columns("K:M").Clear ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, _...