Carlos Arrocha

[Hola Prueba así: Private Sub CommandButton1_Click() If ListBox1.ListCount = 20 Then MsgBox "Se llegó al maximo de 20 Elementos" Else ListBox1.AddItem a = ListBox1.ListCount - 1 ListBox1.List(a, 0) = Txt_Codigo.Value ListBox1.List(a, 1) =...

[Hola Yeiner ¿Los formularios los llamas desde la hoja con botón o desde otro formulario?

[Hola. Es que el evento change te va a devolver el registro que tengas. Prueba este código a ver que te parece. Dim UF As Long With Hoja2 UF = .Range("A" & Rows.Count).End(xlUp).Row + 1 '<---- NUMERA LA COLUMNA "A" .Range("A" & UF) = UF - 1...

[Hola. No le veo mucho sentido que te cambie de hoja para cerrar excel, pero si al inicio de éste, para eso dentro de "ThisWorkbook" puedes poner que al iniciar te muestre la hoja que quieras así: Sheets("Nombre de la Hoja").Select y para cerrar...

[Hola. A ver si ves en este proyecto algo que te pueda servir https://www.youtube.com/watch?v=mR-injemRWE

[Hola. Prueba así Private Sub CommandButton1_Click() Worksheets(Index + 1).Select End Sub

[Hola Diana. Pon este código dentro del botón que corresponda Sheets("BASE DE DATOS").Range("C2").Copy Destination:=Sheets("hoja3").Range("A2") Application.CutCopyMode = False

[Hola. Prueba modificando esta línea de código: For i = 1 To 2 ActiveCell.Offset(0, i - 1).value = Me.Controls("TextBox" & i).value & Me.Controls("ComboBox" & i).value Next i Todo en la misma línea. Valora la respuesta.

[Hola Diana. En este caso lo recomendable es la grabadora y que lo hagas tu misma. Te explico paso a paso por teléfono cuando podamos.

[Hola. Para eso debes modificar una línea de código Donde pone Date, En la imagen esta mal señalado, debes cambiar date por la opción donde quieras poner la fecha.