Saltar al contenido

Uso de ciclo FOR, IF o condiciones.

publicado

Hola Buen dia.

Me pueden ayudar a seleccionar la mejor sintaxis para el siguiente probema

Tenemos una tabla.

[TABLE=class: grid, width: 500, align: left]

[TR]

[TD=align: center][/TD]

[TD=align: center]A[/TD]

[TD=align: center]B[/TD]

[TD=align: center]C[/TD]

[/TR]

[TR]

[TD]1[/TD]

[TD]Variable 1[/TD]

[TD]Variable 2[/TD]

[TD]Resultado[/TD]

[/TR]

[TR]

[TD]2[/TD]

[TD]a[/TD]

[TD]1[/TD]

[TD]x[/TD]

[/TR]

[TR]

[TD]3[/TD]

[TD]a[/TD]

[TD]2[/TD]

[TD]y[/TD]

[/TR]

[TR]

[TD]4[/TD]

[TD]b[/TD]

[TD]1[/TD]

[TD]x[/TD]

[/TR]

[TR]

[TD]5[/TD]

[TD]b[/TD]

[TD]2[/TD]

[TD]y[/TD]

[/TR]

[TR]

[TD]6[/TD]

[TD]c[/TD]

[TD]1[/TD]

[TD]x[/TD]

[/TR]

[TR]

[TD]7[/TD]

[TD]c[/TD]

[TD]2[/TD]

[TD]y[/TD]

[/TR]

[/TABLE]

Resultado será el nombre de las Hojas del libro de excel.

Lo que necesito aquí es comparar variable 1 con 2 para que la filas coincidentes me de el resultado y luego me copie y pegue lo que de en resultado en una variable(dentro de VBA) y con esto dentro de un ciclo o condicional ejecute la acción.

Ejemplo:

En 2combox inerto los datos b y 2, entonces se guardan en una variable cada uno. Y comparo var1=b y var2=2 entonces var3 será=Y o "c5", entonces el programa hara los siguiente:

Sub OK_Click()

   [B] Aqui deberia ir la sintaxis del for, if, o condicional adecuada para que realice lo siguiente

[/B]

   Worksheets(var3).Select [B]<-----Para aqui necesito la variable 3

[/B]   aviso = ""


   On Error GoTo ErrorRango

   Range(Rango.Text).Select


   On Error GoTo ErrorArchivo

   Open Archivo For Output As #1


etc... etc..

[/CODE]

Me podrian ayudar a seleccionar la sintaxis adecuada, pasa que no soy programador y no tengo idea de como se haría, espero puedan ayudarme, esto que estoy haciendo dejenme darle las gracias que lo mucho o poco que he podido realizar es gracias a ustedes y sus aportes al foro.

De ante mano gracias.

[color=blue]- - - - - Mensaje combinado - - - - -[/color]

Ya lo solucioné era esto lo que queria.

[CODE]

'Las variables Globales.Familias y Globales.Pinboxvar las saque de un formulario que ingrese los datos antes de llegar aquí


Dim Hojavar As String

For i = 2 To 3
If Sheets("hoja1").Cells(i, "A") = Globales.Familiasvar And Sheets("BD").Cells(i, "B") = Globales.Pinboxvar Then
Hojavar = Sheets("hoja").Cells(i, "C")
End If
Next


Worksheets(Hojavar).Select
aviso = ""

On Error GoTo ErrorRango
Range(Rango.Text).Select

On Error GoTo ErrorArchivo
Open Archivo For Output As #1
etc etc etc..

[/CODE]

Tema solucionado, gracias por tomarse la moslestia de haberlo leido, si les sirve ahi les dejo la solucion

Featured Replies

No posts to show

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

Ir al listado de temas