jerryeagle

Usa este Código: Dim Col as String, Ult as Long Col = 'Ponle entre comillas dobles la letra de la columna que necesites Ult = Cells(Rows.Count, Col).End(xlUp).Row 'Y en el boton o donde des la orden de pasar la informacion a la hoja: Cells(Ult,...

Si puedes usar el nombre del rango, solo pon el nombre en lugar de las coordenadas: Range("Semana 01")

Usa Application.ScrollRow = "Celda".Row

Creé un archivo con lo que pides, checalo y adáptalo a tus necesidades. Facturacion]http://www.zshare.net/download/68929569dd9a905b/]Facturacion Ejm.xls - 0.08MB

Private Sub Worksheet_SelectionChange(ByVal Target As Range) Este evento se Activa precisamente al "Cambiar" la celda "Target", solo quítale el Selection así: Así se Activara al Modificar la Celda "Target"

Mejor pon el código de guardar los datos en el siguiente evento: Para Visual Bsai 6: After_Update Para Visual Basic 2005 y 2008 (No se si 2010 xq no lo tengo :P) Lost_Focus Y no cambies la propiedad de Tab Stop.

En WorkSheet en el evento Change pon esto: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = Range("C1").Address Then If UCase(Target.Value) = "SI" Then Range("A2:A7").EntireRow.Hidden = True Else Range("A2:A7").EntireRow.Hidden...

Solo pon esta linea después de haber "Pegado" las celdas Application.CutCopyMode = False Es todo

En ThisWorkBook pon esto Private Sub Workbook_BeforePrint(Cancel As Boolean) If Range("A1") = "" Or Range("c1") = "" Then Cancel = True MsgBox "LA CELDA A1 DEBE SER CAPTURADA" Exit Sub End If End Sub Private Sub Workbook_BeforeSave(ByVal SaveAsUI As...

Siempre he dicho que más vale tratar de hacer que alguien "comprenda" el cómo hacer algo, que simplemente decir "se hace así:": Debemos comprender ciertos conceptos: Objeto, Método, Propiedad, Variable Ejemplos de Objetos: Userform, TextBox, Label,...