gaeta

paramisolo respondió: Las lineas de código sería estas: dat = InputBox("¿Porqué existe esta diferencia?") Range("A1").Value=dat Pones las lineas donde las necesites y cambias el valor de Range por tu celda donde quieras el resultado. >Un saludo >Julio

Juan Carlos González Chavarría respondió: Prueba con esto: Sub ExportRange() Dim Filename As String Dim NumRows As Long, NumCols As Integer Dim r As Long, c As Integer Dim Data Dim ExpRng As Range Set ExpRng = Selection NumCols = ExpRng.Columns.Count NumRows = ExpRng.Rows.Count Filename =...