zoso_zep

Dante Amor respondió: Siempre quieres que ponga E10 Prueba con lo siguiente y me comentas ActiveCell.FormulaR1C1 = "=Hoja2!R10C5" Significa R10 = Row 10 = fila 10 C5 = Column 5 = Columna E Siempre que ejecutes la macro en la celda que esté activa te va a poner = E10 [Si...

Gustavo respondió: Para te paso ejemplos de lo que deberías agregar. Para Filas: Rows("1:1").RowHeight = 31.5 Para Columnas: Columns("A:A").ColumnWidth = 4.29

Elsa Matilde respondió: Te dejo algunos ejemplos. Como no indicas a partir de qué celda se deben pegar los datos en Hoja2, imaginaré entonces que será en A1. Sub seleccionando() 'x Elsamatilde 'Ej 1: considerando que M siempre tiene datos hasta el final 'Range("A20:M" &...

Dante Amor respondió: Te anexo la macro Sub Operaciones() 'Por Dante Amor u = Range("C" & Rows.Count).End(xlUp).Row Cells(u + 1, "C").Value = WorksheetFunction.Sum(Range("C2:C" & u)) Cells(u + 2, "C").Value = Cells(u + 1, "C").Value * 0.16 Cells(u + 3, "C").Value =...

Dante Amor respondió: H o l a: Quedaría así. Cambia "abc" por el password que desees. Private Sub cmdAceptar_Click() Dim uf If TextBox1 = "" Then MsgBox ZINGRESA, vbInformation + vbOKOnly, ZCOPYRIGHT Exit Sub End If If...

Dante Amor respondió: H o l a: Para borrar el contenido puede ser así: Sheets("Hoja1"). ComboBox1 = "" Cambia "Hoja1" por el nombre de la hoja donde tienes el combo. Si tienes el evento Change del combo, es probable que se entre un ciclo. Te recomiendo que pongas lo...

Elsa Matilde respondió: Debes haber superado el total de caracteres permitidos como argumentos. Tendrás que separar por tramos, como en este ejemplo: Sub selecciona() 'x Elsamatilde Set rgo1 = Range("D1:D5,D8:D11") Set rgo2 = Range("D15:D30, D50:D60") Union(rgo1,...

Dante Amor respondió: Cambia la fórmula de C10 por esto: =SI(A10<>"",SI.ERROR(BUSCARV(A10,Tab_Ptj,3,0),"")&" ","")