Luis Caballero

Hola, a mi de hecho en cuanto escribo "ig" , ya me lo recoge la tabla, comprueba el fichero que has puesto en el foro.

Hola, en una Macro y por ejemplo guardarlo en A1 Range("A1") = Cells (2, ActiveCell.Column)

Hola, a mi me funciona perfectamente, al poner la i sale IGNACIO

Hola, lo siento no lo entendí bien, tendría que ver el libro completo para saber exactamente lo que necesitas.

Déjalo asi Sub CopiarPáginasUnaUna() Dim Página As Integer ActiveDocument.Select Selection.GoTo wdGoToPage, wdGoToAbsolute, Página ActiveDocument.Bookmarks("\page").Range.Select Selection.Copy Documents.Add Selection.Paste ActiveDocument.Save ActiveDocument.Close End Sub

Hola como dice Alexander el error 1004 suele ser eso, o la variable no definida??

No entiendo, para que quieres una macro si ya tienes las formulas hechas por completo. ¿?

Hola, quita el bucle For, y solo lo hará una vez.

Claro siempre hace lo mismo cuando la primera no esta vacia ultimafilag = Sheets("Goles").Range("BE" & Rows.Count).End(xlUp).Row + 1 sustituye por ultimafilag = Sheets("Goles").Range("BE31" ).End(xlUp).Row + 1 ultimafilag = Sheets("Goles").Range("BE56" ).End(xlUp).Row + 1 ultimafilag = Sheets("Goles").Range("BE81" ).End(xlUp).Row + 1

La variable sRutaArchivo1 debe de ser el path + el nombre del fichero.txt

Hola, Puedes contar las líneas del fichero txt, de manera independiente. Dim lineas() As String = File.ReadAllLines( sRutaArchivo1 ) numerolineas= CStr(lineas.Length)

Hola Si se te va al ultimo rango es que el alias, se esta modificando en alguna parte del codigo, guarda el alias en una celda antes de entrar al if, despues de la frase " identifico al jugador " para ver que dato trae. Range("a1")=alias

Hola, esta pequeña macro lo hace, ya depende donde quieras adaptarlo. errores en cadenas.xlsm

Hola, prueba con esto. pista.xlsm

Hola, prueba esto y dime el resultado, tienes que asegurarte que el alias que usas en la introducción de datos es idéntico al nombre del jugador en la hoja Goles. ‘Identifico el jugador If alias = Sheets("Goles").Range("BD10") Then