Excel - Macro nombre de variables

 
Vista:

Macro nombre de variables

Publicado por Jean  (15 intervenciones) el 19/02/2009 17:03:15
Hola! estoy haciendo una macro que sirve para guardar item (textbox) de un userform a una hoja excel celda por celda. generalmente los guardaba linea por linea
algo asi:

Worksheets("EMPRESA").Cells(1, 1).Value = Me.TextRazonS.Value
Worksheets("EMPRESA").Cells(1, 2).Value = Me.TextRazonC.Value
Worksheets("EMPRESA").Cells(1, 3).Value = Me.TextAntRazon.Value

pero ahora tengo muchos mas item y queria hacer un for y conatenar una variable, pero no concatenar el valor de la variable sino el "nombre de la variable" .

varcampo#
bueno este es mi codigo
pero al conatenar el "nombre de la variable" no lo hace y contena solo el valor botando como texto.

espero que me den alguna solucion gracias de antemano.
'***********************************************
Private Sub CmdGuardar_Click()
Dim i As Integer
Dim varcampo1 As String
Dim varcampo2 As String
Dim varcampo3 As String

varcampo1 = Me.TextRazonS.Value
varcampo2 = Me.TextRazonC.Value
varcampo3 = Me.TextAntRazon.Value


For i = 1 To 3
juntavar = "varcampo" & Trim(i)
Worksheets("EMPRESA").Cells(1, i).Value = juntavar
Next i

End Sub
'*********************************************
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de JuanC

RE:Macro nombre de variables

Publicado por JuanC (1237 intervenciones) el 19/02/2009 19:54:03
lo que quieres hacer no se puede (concatenar los nombres de las variables)
hay muchas formas de pasar los datos del UserForm a una planilla
acá va una simple...

Dim v As Variant
ReDim v(2) As Variant
v(0) = TextBox1.Text
v(1) = TextBox2.Text
v(2) = TextBox3.Text

Cells(1, 1).Resize(, 3) = v
Erase v

Saludos desde Baires, JuanC
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Macro nombre de variables

Publicado por Jean (15 intervenciones) el 15/04/2009 17:59:08
gracias JuanC, me servio mucho tu respuesta.

Jeannette
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar