jerryeagle

No entiendo a que te refieres con "formulario". Si pudieras explicarlo mejor, al decir Formulario, generalmente nos referimos a un UserForm de VBA (Macros), pero dices que lo tienes en la Hoja2, por eso es confuso lo que dices.

Pon esto en el evento click del botón Activecell.Offset(1, 0).select Textbox.Value = Activecell

En el botón o con lo que guardas los datos, ahí agrega la linea: lblpedidototal.Text = Val(lblpedido.Text) + 1

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

ComboBox1. Clear