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: 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: 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: El nombre de tu macro lleva guión: Sub oculta_columbime() Pero en el llamado lo escribiste sin guión: Call ocultarcolumbime Revisa los nombres y prueba nuevamente. ':) S a l u d o s . D a n t e A m o r ':) Si es lo que necesitas. Recuerda...

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: Envíame tu archivo y me explicas con un par de ejemplos, qué es lo que seleccionarías, qué es lo que se va a copiar y en dónde se va pegar. Procura poner los ejemplos completos con celdas de colores y comentarios explicando cada ejemplo. Mi...

H o l a: Para enviar el correo se necesitan de estos datos: ¿La vas a enviar por outlook?¿Qué lleva el asunto?¿Qué va en el cuero del correo?¿Cómo se llama tu hoja de la base de datos donde tienes los nombres?¿En cuál columna están los nombres y en...

H o l a: Te anexo la macro Sub CruzarDatos() 'Por.Dante Amor With Sheets("Hoja1").Range("F1:F" & Range("A" & Rows.Count).End(xlUp).Row) .FormulaR1C1 = "=IFERROR(MATCH(RC1,Hoja2!C1,0),"""")" .Value = .Value End With End Sub':) ':)