Ahora que esta a punto de salir la version Premium de la aplicacion TriviAhorcado, el tema de meter en la BB.DD. las 6000 preguntas que contiene no es solo copiar y pegar, como se podría pensar.
Como muestra un boton... una función que uso en Excel (paso previo a crear la BB.DD. en SQLITE) para saber las longitudes tanto de las preguntas como las respuestas, y no llevarse la sorpresa de que no caben en la pantalla de la aplicacion.
Sub InsertarFormulaLargoEnColumnas()
Dim numFilas As Long
Dim varCelda, auxRangoDestino As Range
Dim varColumnaOrigen, varColumnaDestino, varFilaDestino, auxPosicionOrigen, auxPosicionDestino As String
numFilas = Application.InputBox(Prompt:="Nº de filas a las que insertar la formula:", Type:=1)
Set varCelda = Application.InputBox(Prompt:="Columna Origen Formula (A,B,C,etc)", Type:=8)
varColumnaOrigen = Split(varCelda.Address, "$")(1)
varColumnaDestino = Split(ActiveCell.Address, "$")(1)
varFilaDestino = Split(ActiveCell.Address, "$")(2)
For X = 1 To numFilas
auxPosicionOrigen = varColumnaOrigen & X
auxPosicionDestino = varColumnaDestino & X
Set auxRangoDestino = Range(auxPosicionDestino)
auxRangoDestino.FormulaLocal = "=LARGO(" & auxPosicionOrigen & ")"
varFilaDestino = varFilaDestino + 1
Next X
End Sub