Dante Amor

H o l a: Está podría ser una opción, cargando con List: Dim i As Long Private Sub CommandButton8_Click() Dim arrData() As String With ListBox1 .ColumnCount = 12 'numero de columnas .ColumnWidths = "40 pt;40 pt;40 pt;40 pt;40 pt; " & _ "40 pt;40 pt;40...

H o l a: Supongo que tienes alguna hoja oculta, para eso te anexo las macro actualizadas: Sub DesprotegerHojas() Dim i As Integer For i = 1 To Sheets.Count Sheets(i).Unprotect "eeee" Next i End Sub ' Sub ProtegerHojas() Dim i As Integer For i = 1 To...

H o l a: Pon la siguiente macro en los eventos de Thisworkbook Private Sub Workbook_SheetCalculate(ByVal Sh As Object) 'Por.Dante Amor Application.EnableEvents = False u = Sh.Range("C" & Rows.Count).End(xlUp).Row Sh.Range("A1").Copy Sh.Range("A2:A" &...

H o l a: No entendí muy bien qué es lo que tienes. Comentas: " Lo que deseo hacer es que cuando se elija la opción de guardar " En dónde tienes la "opción de guardar", ¿en un formulario? ¿O te refieres a cuando seleccionas "Guardar" desde el menú de...

H o l a: Según veo en la imagen en la hoja "validar" en la columna "A" va el código, en la columna "B" va el valor que se toma de la hoja "Ant", pero en la columna "C" no sé de dónde se toma. Te anexo la macro para que la pruebes. Sub LlevarDatos()...

H o l a: Pero si quieres ocultar las filas que en la columna A = 0, entonces tienes que cambiar esto: For i = 1 To 33 If .Range("A" & i).Value = 0 Then _ .Rows(i).EntireRow.Hidden = False Next i Por esto For i = 5 To 54 If .Range("A" & i).Value = 0...

H o l a: Al parecer no hay la misma distancia entre boletín y boletín Del 1 al 2 hay 27 celdas, del 2 al 3 hay 26 celdas. Puedes revisarlo. Después de que revises la distancia entre boletines, envíame el archivo para adaptar la macro. Mi correo...

H o l a: Me puedes enviar tu archivo con ejemplos, me dices de dónde quieres obtener la información de las 4 hojas de periodos o de la hoja consolidado. Importante: en la "hoja adicional" tienes que poner el resultado que quieres. Mi correo...

Pon lo siguiente en tu formulario: Private Sub TextBox1_Change() 'Por.Dante Amor TextBox1 = WorksheetFunction.Proper(TextBox1) End Sub Cambia textbox1 por el nombre de tu textbox. ':) 'Saludos. Dante Amor Recuerda valorar la respuesta.

H o l a: La información que pones en los textbox está memoria, cuando cierras el userform, la memoria se destruye y entonces no puedes recuperar la información para regresarla a los textbox. Lo que se hace en esos casos, es pasar la información a una...