primera5678

Dante Amor respondió: 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...

Dante Amor respondió: Te anexo la macro para cuando le das click al listbox Private Sub ListBox1_Click() 'Por.Dante Amor consec = ListBox1.List(ListBox1.ListIndex, 7) Set b = Columns("AA").Find(consec, lookat:=xlWhole) If Not b Is Nothing Then Cells(b.Row, "A").Select End...

Dante Amor respondió: ¿Qué información tienes? ¿Tienes toda la ruta de la carpeta original? Tendrías que poner, por ejemplo en la columna A la lista de carpetas a renombrar y en la columna B el nombre nuevo, pero tienes que poner todo el nombre completo, ejemplo: A B 1...

Dante Amor respondió: 1. Puedes poner las imagen 1 y la imagen 2, pero que se vean las filas y las columnas de excel, para saber en dónde está la información y en dónde la quieres. 2. En tu ejemplo la imagen 1 tienes las letras P, Q, R S, pero ya no las veo en la imagen...

Dante Amor respondió: Tal vez no te hace la multiplicación, porque probablemente tengas letras en lugar de números. Tu fórmula es correcta, pero solamente para multiplicar. Ahora entrando en materia de matemáticas, para calcular el área en metros cuadrados de una pared,...

Dante Amor respondió: Para que fincione primero lo debes seleccionar, presiona el tabulador hasta llegar al commadbutton y presiona enter. ¿O de que forma queres que al presionar enter funcione el command button?

Dante Amor respondió: Y a donde se van apegar, y en donde se agrega la fecha y el cambio, ¿en los datos originales o en los pegados?

Dante Amor respondió: Si tienes en la celda "A4" 2,63 Pon la siguiente fórmula en la celda "B4" =ENTERO(A4)& " pies " & REDONDEAR((A4-ENTERO(A4))*12,0)&" pulgadas" Si utilizas ; en las fórmulas entonces pon la fórmula así: =ENTERO(A4)& " pies " &...

Dante Amor respondió: Desde luego un archivo no puedes borrarlo cuando lo tienes abierto y no es por culpa de excel, es el sistema operativo el que protege al archivo. Pero podrías hacerlo al revés, es decir, si en un libro "x" tienes tu macro que haga lo siguiente: 1....

Dante Amor respondió: Esta sería la macro con la validación Private Sub CommandButton3_Click() 'Mod.Por.DAM 'Almacenamos la fecha date_variable = Format(Now(), "dd.mm.yy") ' Ahora creo una copia de la pestaña plantilla, y la coloco despues. For Each h In Sheets If h.Name...

Dante Amor respondió: Te anexo 6 opciones con macro para realizar la suma de las 3 celdas Sub sumar1() ActiveCell = Range("A1") + Range("A2") + Range("A3") End Sub Sub sumar2() ActiveCell = [A1] + [A2] + [A3] End Sub Sub sumar3() ActiveCell = Application.Sum(Range("A1"),...

Dante Amor respondió: Te pongo dos opciones. 1. Selecciona la celda y luego presiona al mismo tiempo las teclas CTRL + N. 2. Selecciona la celda y luego presiona la siguiente secuencia de teclas primero la tecla ALT luego la letra O y al final el número 1. Con cualquiera...

Dante Amor respondió: Pon el siguiente código en tu userform 'Oculto los frameFrame1.Visible = FalseFrame2.Visible = FalseEnd Sub 'Cuando cambia el comboboxPrivate Sub ComboBox1_Change()'Por.DAMSelect Case ComboBox1 Case 1 Frame2.Visible = False 'oculto el 2...