Dante Amor

Te anexo el código, ponlo en el código de tu userform Cambia "datos" por el nombre de tu hoja Private Sub ComboBox1_Change() 'Por Dante Amor Label2.Caption = "" If ComboBox1 = "" Then Exit Sub Set h = Sheets("datos") Set r = h.Range("A:A") Set b =...

Una opción es cargar el número de fila en el listbox. Es decir, cuando filtras la información, puede ser que cargaste en el listbox la información de las filas 3, 8 y 20, entonces en el listbox en una columna tienes que cargar el número de fila. Pon...

Te anexo unos ejemplos para tu código Private Sub CommandButton1_Click() 'botón guardar If TextBox1 = "" Then MsgBox "Falta capturar el nombre" Exit Sub End If If TextBox2 = "" Then MsgBox "Falta capturar el dato 2" Exit Sub End If If TextBox3 = ""...

¿En cuál línea de la macro se detiene? Tal vez tu hoja tiene algún error. Te sugiero que elimines la hoja y crees una nueva, cambia en la macro Hoja2 por el name de la nueva hoja y vuelve a probar. Nota: Para encontrar la siguiente fila vacía después...

Te anexo una macro Sub Suma_diagonal() 'Por.Dante Amor Set rango = Range("C3:E5") f_ini = rango.Cells(1, 1).Row f_fin = rango.Cells(rango.Rows.Count, 1).Row c_ini = rango.Cells(1, 1).Column For i = f_fin To f_ini Step -1 wsuma = wsuma + Cells(i,...

Prueba con esto: Label1.Caption = Format(TextBox1, "$#.##0") O así: Label1.Caption = Format(TextBox1, "$#,##0") Te pongo las 2 opciones porque yo utilizo la coma como separador de millares, pero tú utilizas el punto como separador de millares. . 'S...

Sí se puede. Esto es un ejemplo: Private Sub CommandButton1_Click() UserForm2.TextBox1 = UserForm1.Label1 End Sub Tienes que poner el nombre del formulario y nombre del control Lo anterior solamente es un ejemplo. Los 2 formularios tienen que estar...

Si ocultaste el userform con Hide, entonces el userform sigue en memoria, tienes que mostrarlo nuevamente. Puede ser con el evento Activate del libro que contiene el userform, esto significa que cuando cierres el "otro libro", se activará el libro...

Versiones: https://answers.microsoft.com/en-us/msoffice/forum/msoffice_excel-mso_winother-mso_archive/vba-version-numbers/4260788b-8ac3-48fa-9cc4-d68e0a40a6e8?auth=1 Entonces podría ser así: ver = Val(Application.Version) Select Case ver Case 15 Case...

Ya te había enviado la macro corregida en esta pregunta Corregir error en esta macro Tienes que cambiar esta línea: fecha2 = Format(CDate(mes & "/" & año), "mm/yyyy") Por esta: Fecha2 = Format(DateSerial(año, mes, Day(Date)), "mm/yyyy") Quedaría así:...