Luis Mondelo

Mándame esa hoja por mail para dejarlo preparado [email protected]

Ok, un ejemplo de macro sería esta... partiendo del libro primario o principal. sub proceso() mio = activeworkbook.name workbooks.add otro = activeworkbook.name workbooks(mio).activate sheets("ventas").copy before:=workbooks(otro).sheets(1) end sub...

Esta macro te puede ayudar: Sub proceso() 'por luismondelo Range("b1").Select Do While ActiveCell.Value <> "" ActiveCell.Offset(0, 1).Value = ActiveCell.Offset(0, -1) & " " & ActiveCell ActiveCell.Offset(0, 1).Characters(InStr(ActiveCell.Offset(0,...

Mándame un par de esos txt para prepararte la solución [email protected]

Te adjunto la macro para conseguirlo Sub proceso() 'por luismondelo Range("b1").Select Do While ActiveCell.Value <> "" ubica = ActiveCell.Address Range(ActiveCell, ActiveCell.End(xlDown)).Copy Range("b200000").End(xlUp).Offset(1, 0).PasteSpecial...

Mándame un par de esos txt para fabricar el proceso automático [email protected]

Te mando un ejemplo: la fecha la tenemos anotada en la celda A1 y con esta fórmula te dirá el Q correspondiente:...

Puedes utilizar el evento afecter_update para que cuando valides lo que has introducido en el textbox lo deje redondeado con cero decimales. Con este método: Private Sub TextBox1_AfterUpdate() TextBox1.Value = Round(TextBox1.Value, 0) End Sub

En un rango filtrado, no es necesario añadir nada a esa sentencia. Te contará las celdas en blanco solo de las celdas visibles

La macro quedaría así: Sub Folio() [M10] = [M10] + 1 Dim NombreArchivo As String NombreArchivo = Range("N10").Value ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "C:\Users\ALLAVTAS\Documents" & NombreArchivo & ".pdf",...