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
'*********************************************
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


0