Variable

hola, Max !

Existe alguna variable que admita valores desde 1 hacia arriba.

considerando que las varibles son [precisamente] 'variables'... NO 'fijas' o 'constantes'...
[todo] 'depende' del tipo que le asignes a la variable al momento de 'declararla' en el codigo [p.e.]
-> si usas: Dim Mi_Variable [por omision 'asume' un tipo de datos 'Variant'... -de cualquier 'tipo'-]
-> si usas: Dim Mi_Variable As Byte 'aceptara' valores desde 0 hasta 255 [NO negativos NI bucles 'en reversa']
-> si usas: Dim Mi_Variable As Integer/Long/String/...
[... consulta en la ayuda de vba acerca de como usar/declarar/... variables y sus tipos] ;)

si cualquier duda [o informacion adicional]... comentas?
saludos,
hector.

Hola

Este macro que me has enviado me da esto de resultado:
VERDADERO 4+6+3
VERDADERO 4+6+3+1
VERDADERO 4+6
VERDADERO 4+6+1
VERDADERO 4+3+3
VERDADERO 4+3+3+1
VERDADERO 4+3
Quizas me he interpretado mal pero lo que quiero lograr es obtener solamente
resultados con 4 numeros y no el resto.
Recien estoy aprendiendo de macros por lo cual no se como interpretar
una condicion dentro de este macro para obtener solamente resultados con 4
cifras.
Te estare muy agradecido si me puedes dar la solucion a esto.

Max



"" escribió:

Hola Max, mientras llega KL, prueba a modificar esta parte del código, para que quede de esta manera:

For l = 1 To UFila
MiValor = _
Cells(i, "A") + _
Cells(j, "B") + _
Cells(k, "C") + _
Cells(l, "D")
MiCadena = _
IIf(Cells(i, "A"), Cells(i, "A"), "") & _
IIf(Cells(j, "B"), "+" & Cells(j, "B"), "") & _
IIf(Cells(k, "C"), "+" & Cells(k, "C"), "") & _
IIf(Cells(l, "D"), "+" & Cells(l, "D"), "")
If MiValor Then
Contador = Contador + 1
Cells(Contador, "I") = MiValor
Cells(Contador, "I").Offset(0, 1) = MiCadena
End If
Next l

Me comentas como te va, chao


"Max" escribió en el mensaje news:
Hola
La duda que tengo es que he recibido un maro de Kl en la cual


funciona perfectamente pero me incluye valores 0 o celdas vacias en
los resultados y no he podido modificarlo por cuenta propia el macro es asi:

Sub test()
Dim MiValor As Boolean
Dim MiCadena As String
Dim UFila As Long
Dim Contador As Long
Dim i As Long, j As Long, k As Long
Dim l As Long, m As Long, n As Long, o As Long

UFila = Cells(Rows.Count, "A").End(xlUp).Row
Contador = 0
For i = 1 To UFila
For j = 1 To UFila
For k = 1 To UFila
For l = 1 To UFila
MiValor = _
Cells(i, "A") + Cells(j, "B") _
+ Cells(k, "C") + Cells(l, "D")

MiCadena = _
Cells(i, "A") & "+" & Cells(j, "B") _
& "+" & Cells(k, "C") & "+" & Cells(l,
"D")

If MiValor Then
Contador = Contador + 1
Cells(Contador, "I") = MiValor
Cells(Contador, "I").Offset(0, 1) =
MiCadena
End If
Next l
Next k
Next j
Next i
End Sub
No quiero omitir los ceros y celdas vacias de la columna A,B,C,D pero en el
resultado no deben considerarse tales valores.
Con este macro obtengo resultados como el siguiente:
A B C D
4 6 3 0 VERDADERO 4+6+3+0
4 3 1 VERDADERO 4+6+3+1
VERDADERO 4+6++0
VERDADERO 4+6++1
VERDADERO 4+3+3+0
VERDADERO 4+3+3+1
VERDADERO 4+3++0
VERDADERO 4+3++1

VERDADERO 4+6+3+0
En todas las sumas deben existir 4 numeros desde el numero 1.

Si me pueden ayudar a obtener alguna solucion les estaria muy agradecido.
Max






"Héctor Miguel" escribió:

> hola, Max !
>
> > Existe alguna variable que admita valores desde 1 hacia arriba.
>
> considerando que las varibles son [precisamente] 'variables'... NO 'fijas' o 'constantes'...
> [todo] 'depende' del tipo que le asignes a la variable al momento de 'declararla' en el codigo [p.e.]
> -> si usas: Dim Mi_Variable [por omision 'asume' un tipo de datos 'Variant'... -de cualquier 'tipo'-]
> -> si usas: Dim Mi_Variable As Byte 'aceptara' valores desde 0 hasta 255 [NO negativos NI bucles 'en reversa']
> -> si usas: Dim Mi_Variable As Integer/Long/String/...
> [... consulta en la ayuda de vba acerca de como usar/declarar/... variables y sus tipos] ;)
>
> si cualquier duda [o informacion adicional]... comentas?
> saludos,
> hector.
>
>
>