Luis Mondelo

Necesitas esta macro-evento dentro del objeto thisworkbook de tu archivo Public fila Public columna Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) 'por luismondelo On Error Resume Next Cells(fila,...

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