Dante Amor

¿En la columna "B" de la hoja1 tienes fórmula? Si no tienes fórmula entonces pon la siguiente macro en los eventos de la hoja1 Private Sub Worksheet_Change(ByVal Target As Range) 'Por Dante Amor 'Para cada cambio en la columna B, copia a la hoja2 '...

Haber si es lo que necesitas Después de esta línea: .RowSource = h2.Name & "!A2:" & col & u2 Pon esta línea h2.range("A1:" & col & u2).copy . Con eso estás copiando el rango de celdas filtradas, ya lo tienes copiado en memoria, ya lo puedes pegar,...

Intenta con lo siguiente Range("A" & Rows. Count).End(xlUp).Offset(1, 0).Select No me queda claro a qué te refieres con: Mi listado tiene celdas bloqueadas con los títulos Prueba y me comentas. Si te funciona no olvides valorar la respuesta.

¿Cómo se llama tu listbox? Si el listbox tiene 7 registros, en cuál celda quieres el registro 1, en cuál celda quieres el 2, el 3, el 4, el 5, ¿el 6 y en cuál celda el 7?

Tienes que realizar la multiplicación 30 * 40 = 1200 cm2 (cm cuadrados) 1200 cm2 es a 79 pesos Luego 10 * 20 = 200 cm2 Entonces 200 * 79 / 1200 15800 / 1200 = 13.16 10*20 es a 13.16 pesos En un UserForm Textbox1 = 10 Textbox2 = 20 Textbox3 =...

Te anexo el código para el siguiente y también para el anterior Private Sub CommandButton1_Click() 'SIGUIENTE n = 1 RowPos = ActiveCell.Row Do While True If ActiveCell.Offset(n, 0).EntireRow.Hidden = False Then If IsEmpty(ActiveCell.Offset(n, 0))...

Revisa la siguiente App para imprimir Es común que tengas un libro con muchas hojas y solamente quieras enviar algunas de ellas a un archivo, a imprimir, o archivo PDF, o a otro archivo de Excel. Con un formulario (UserForm) se pueden listar todas...

Te anexo una opción 'On Error Resume Next Dim strExcelArchivo As Variant strExcelArchivo = Application.GetSaveAsFilename _ ("OCGC " & Periodo, "Libro de Microsoft Office Excel(*.xlsx), ") If strExcelArchivo = "" Or strExcelArchivo = False Then Exit...

La propiedad que debes utilizar es Selected. Te anexo un ejemplo, el contador se almacena en otro textbox, llamado textbox1. Y en txt_sociedades se concatenan todos los nombres seleccionados Private Sub CommandButton1_Click() For i = 0 To...

Te anexo un par de ejemplos: Para la función Máximo Para la función Mínimo Ejemplos tomados de Excel Total: https://exceltotal.com/la-funcion-max-en-excel/ https://exceltotal.com/la-funcion-min-en-excel/ Sal u dos