walinhus

Abraham Valencia respondió: Dim apliword As Object Set apliword = CreateObject("word.application") With apliword .documents.Add .Visible = True Worksheets("hoja2").[a2:k77].Copy .Selection.typeparagraph .Selection.pasteexceltable linkedtoexcel:=False, wordformatting:=False,...

asaroma respondió: Algo asi podria ser, la funcion ESERROR te permite verificar si el resultado es un tipo de error, como #N/A #DIV/0 #REF entre otros, lo unico que haces es verificar si tu busqueda te da un tipo de error si te da un tipo de error entonces pone "" la...

Elsa Matilde respondió: Deja tu código aquí, si lo que te indico no lo podes agregar y adaptar a tu rutina. Seguramente tenés una macro que empieza con : Private Sub Worksheet_SelectionChange................... 'a continuación indicar el rango de trabajo if not...