Dante Amor

Te muestro unos ejemplos para insertar una tabla en el correo: ¿Cómo crear macro para enviar diferente información a cada destinatario? Ejemplo de E-mail enviado desde excel con tabla de datos Macro para copiar rango de celdas en Outlook no funciona...

Coincido con jrgces, en VBA no puedes hacer referencia a una variable con el nombre de la variable, mientras que en otros lenguajes si es posible. Siguiendo con tu ejemplo: Es decir esto: VAR2=range("a1").value Te va a dar como resultado esto:...

Puedes poner una imagen de la hoja2 con datos y el resultado que quieres para el saldo.

Te falta hacer referencia a la hoja donde vas a pegar: Dim filaDondeCopiar As Integer: filaDondeCopiar = 13 For f = 7 To ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row If Cells(f, 23).Value <> "Ok" Then With LibroDestino.Sheets("Hoja1")...

Lo más simple es que copies la primera página a una nueva hoja y exportes la nueva hoja a pdf.

Cambia estas líneas: uFila = .Range("A" & Rows.Count).End(xlUp).Row ' determina la ultima fila con datos Call insertacolumna 'llama a una insercion de columna B 'temporal.Range("B2:B" & uFila).Formula=...

No es posible en una sola línea. Pero, te pregunto, ¿para qué lo necesitas en una sola línea? ¿Cuál es la finalidad de hacer visible la hoja? Puedes utilizar la hoja oculta. No es necesario hacerla visible, ni seleccionarla, solamente debes hacer...

Debemos identificar los patrones en ambos casos. Si el caso 1 siempre tiene dos diagonales: \ Si el caso1, siempre termina con la palabra " DESCRIPCION.". Si el caso2, siempre tiene una diagonal y el número está antes de un espacio. Prueba con la...

Te propongo el siguiente código, es para buscar en la misma columna C, omitiendo la celda donde pusiste el DNI Private Sub Worksheet_Change(ByVal Target As Range) Dim rng As Range, c As Range, f As Range, rng2 As Range Set rng = Intersect(Target,...

Prueba esto: Sub buscafactura() Dim fact As Variant Dim f As Range Dim sh As Worksheet fact = InputBox("Entra factura: ", "Número o parte del número") If StrPtr(fact) = 0 Then MsgBox "Click Cancel" Exit Sub ElseIf Len(fact) = 0 Then MsgBox "Entra un...