Esteban RG

La forma más fácil es abrir el PDF, seleccionar todo (Ctrl+A) y copiar (Ctrl+C), a continuación te vas a tu página excel y pegas.

Si quieres insertar una fórmula en una celda, no puedes utilizar cells(f, c).value. Tienes que poner cells(f, c). Fórmula

Sub sumasi() fh1 = 1 Do Until Hoja1.Cells(fh1, 1) = "" 'repite hasta que encuentra celda vacia en la columna "A" de la Hoja1 fh2 = 1 Do Until Hoja2.Cells(fh2, 1) = "" ' para cada fila de la hoja1 compara con todas las filas de la hoja 2 If...

Puedes usar este código: Sub BuscaRepes() Dim cl As New Collection On Error GoTo hayrepe Set RangoNums = Range("A1:X36") For Each Celda In RangoNums K = CStr(Celda) cl.Add Celda.Address, K Celda.Font.Color = 225 'si no exixte lo pone en rojo repe:...

Basta con que insertes estas dos líneas después de ... sheets(xx). Copy : ActiveSheet. Cells. Copy ActiveSheet.Cells(1, 1).PasteSpecial Paste:=xlPasteValues ' Esto copia la hoja sobre si misma pero pegando valores. Si lo quieres guardar en una...

Pon como primeras líneas en cada Sub Boton_Click () de cada botón esto: CS = InputBox("Escribe tu contraseña", "CONTRASEÑA") If CS <> "MiContraseña" Then Exit Sub (Cambia el texto "MiContraseña" por lo que tu quieras.

Puedes usar este código: Sub MiraEventos() f = Cells(Rows.Count, 1).End(xlUp).Row For f2 = f To 3 Step -1 Cells(f2, 1).Select F1 = f2 - 1 Do While Cells(F1, 1) = Cells(f2, 1) Cells(F1, 3).Select If Cells(f2, 3) = Cells(F1, 3) Then Cells(f2, 4) =...

Lo único que tienes que hacer es en la hoja de destino, seleccionar las celdas que quieres que se ajusten ( o seleccionar toda la hoja) y activar "Ajustar Texto"

No entiendo bien lo que quieres. La sub actual te copia en la columna B del nuevo libro el rango(F3:F32) de cada libro, poniéndolos cada vez a continuación del anterior, pero siempre en la columna B. Me imagino que lo que quieres es ir pegando la...

Pon esto: On Error Resume Next Kill (Ruta & Nlibro")