Cpc Julio Pinedo Reategui

Lo resolví: La macro quedo así y lo comparto: ListBox1. AddItem "" ListBox1.List(ListBox1.ListCount - 1, 1) = "Saldo Inicial" ListBox1.List(ListBox1.ListCount - 1, 2) = CCur(TextBox6) Rs. MoveNext

Ya lo solucione amigos. Dejo la macro por si alguien lo necesita. Private Sub Worksheet_Change(ByVal Target As Range) Hoja2.Activate rango = "C4:C1000" If Not Application.Intersect(Target, Range(rango)) Is Nothing Then Range("AJ4:AJ1000") =...

He solucionado el inconveniente con la siguiente macro: Sub Enviar_gmail() ' Macro modificado por J.P Application.ScreenUpdating = False Dim hoja As Sheets Dim NewMail As CDO.Message Dim a, b As String Dim archivo As Variant Set NewMail = New...

He logrado armar la macro, pero tiene un problema, que no inserta las filas en forma descendente, no se que hice mal, ayuda por favor: Private Sub CommandButton1_Click() Dim d Application.ScreenUpdating = False On Error Resume Next...

Conseguí armar la macro, por si a alguien le interesa. Private Sub CommandButton1_Click() FALTA Dim nombreHoja As String nombreHoja = TextBox1 If nombreHoja = "" Then Exit Sub Dim hoja As Worksheet Set hoja = ActiveWorkbook.Sheets.Add hoja.Name =...