Dante Amor

[H o l a y bienvenido a TodoExpertos! No pusiste en cuál fila quieres pegar los datos. La macro pega a partir de la fila 2. Prueba y me comentas: Private Sub CommandButton1_Click() Dim lr As Long, hr As String ' If TextBox1 = "" Or TextBox2 = "" Then...

Puedes poner 2 imágenes donde se aprecien las filas y las columnas de excel. En la imagen 1 muestra la hoja1 y en la imagen 2 la hoja2. En la hoja 2 es donde quieres el resultado así que de color amarillo, muestra cuál es el resultado que esperas.

Prueba la siguiente macro Sub Eliminar_cadenas_repetidas() Dim a As Variant, b As Variant, dato As Variant Dim dic As Object, i As Long ' a = Range("A1", Range("A" & Rows.Count).End(3)).Value2 ReDim b(1 To UBound(a), 1 To 1) Set dic =...

¿Quieres una fórmula en la SJ6 o quieres que una fórmula ponga otra fórmula en la SJ6? No entiendo bien qué necesitas.

Tienes que abrir el libro. Tomar los datos. Y volver a cerrar el libro.

Prueba eso: Private Sub Worksheet_Change(ByVal Target As Range) Application.ScreenUpdating = False ' If Target.Address(0, 0) = "D12" Then With PivotTables("Tabla dinámica1") .ClearAllFilters On Error Resume Next .PivotFields("Cliente").CurrentPage =...

Pon el siguiente código en los eventos de la hoja "Datos" Private Sub Worksheet_Change(ByVal Target As Range) Dim r As Range, c As Range, filas(), n As Long, i As Long Application.ScreenUpdating = False Set r = Intersect(Target, Range("R:R")) If Not...

No es posible cambiarlo desde excel. Puedes cambiar el tamaño del font, pero de todas las ventanas de windows, en el panel de control, Pantalla.

Prueba lo siguiente: Sub Bucle_Rangos() Dim sName As String, i As Long, r As Range sName = "rangopdf" 'Nombre del rango sin el número For i = 1 To 6 'cambia 6 por el número máximo de rangos Set r = Range(sName & i) r.Select ' 'el resto de la macro '...

Prueba esto: =((A1*A2+A4)*A2)/A3