Dante Amor

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...

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...

Revisa el siguiente artículo: https://www.gerencie.com/enviar-correos-con-condicion-desde-outlook-con-excel.html [Sal u dos] .

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í:...

Prueba con la siguiente macro Sub Macro1() 'Por.Dante Amor Cells.UnMerge u = Range("B" & Rows.Count).End(xlUp).Row Range("A2:A" & u).SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C" End Sub . 'S aludos. Dante Amor. Recuerda valorar la...

Realiza los pasos del siguiente enlace. Macro para combinar correspondencia según condiciones de una base de excel. Una vez que hayas logrado combinar la correspondencia entre excel y word pasamos a la parte del estado del cliente

Prueba con lo siguiente: Sub ejemplo() 'por luismondelo Application.DisplayAlerts = False Application.ScreenUpdating = False For Each hoja In ActiveWorkbook.Sheets If hoja.Name = "todas" Then hoja.Delete Next Sheets.Add before:=Sheets(1)...

Tengo algunos ejemplos para dividir información en libros, revisa los siguientes enlaces, tal vez encuentres lo que te hace falta: Dividir datos de una hoja en Excel en varios libros Macro para separar datos de una hoja de Excel en varios libros de...