jerryeagle

Checa esta macro: Sub CopiaRango() Dim U, C As Integer 'Obtienes el No. de la Ultima Fila No Vacia U = Range("A" & Rows.Count).End(xlUp).Row 'Obtienes el No. de la Ultima Columna con Datos C = Cells(U, Columns.Count).End(xlToLeft).Column 'Copias el...

Pon este código en el Evento Change de tu hoja de calculo: Private Sub Worksheet_Change(ByVal Target As Range) 'Pone en I la Fecha Actual If Target.Column = 8 And Target.Value <> "" Then 'Columna H Target.Offset(0, 1) = Date End If 'Si la Columna H...

1 vez m paso y no supe porque, después por accidente lo solucione. Solo presiona Alt + la tecla que tiene ª y º y \ (la que esta abajo de Esc)

En el evento Private Sub Workbook_Activate() UserForm1.Show End Sub De ThisWorkBook

=A1-(A1*A2)

Intenta con : Range("A1:AJ" & Range("A" & rows. Count). End(xlUp). Address

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