No todo es copiar y pegar...

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