beltran1

macros_excel respondió: Te envío el código que realiza lo que necesitas... solo comea la macro y adáptalo a tu archivo Si te sirvió el código o si necesitas el archivo de ejemplo, mandame un mensaje en: www.expertosmacrosexcel.es.tl Saludos Sub MyMacro()...

Victor Perdomo respondió: Este código Private Sub CommandButton1_Click() Set ws = Worksheets("datos") iFila = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row ws.Cells(iFila, 1).Value = TextBox1.Value TextBox1.Value = "" End Sub Analízalo, este código lee de un textbox y lo...

deathwatch respondió: A ver, prueba con esto, y me dices si te funcionó: Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) Regresar = ActiveSheet.Name Sheets("Catalogo").Select ActiveCell.Value = ListBox1.Text Sheets(Regresar).Select End Sub

mrtool respondió: Prueba esto: ActiveWorkbook. Sheets(1). Activate ActiveSheet.Cells(1, 1).Select