R1C1

Hola!

No entiendo mucho el problema...
Por ejemplo, la empresa es "Austral" o "Mecanica Austral"?
Hay otras "Mecanicas" aparte de Austral?
Vos lo que queres es consolidar la cantidad de transacciones de
"Mecanica" o de "Mecanica Austral"?

Capaz que me podes aclarar un poco el panorama, asi te puedo dar una
mano... pero estimo que se puede hacer sin necesidad de VBA!

Julio.

On 18 feb, 13:00, IRC wrote:

Necesito hacer una fórmula variable en visual basic o en forma de matriz

Ejemplo:

Tengo una columna de 2000 con nombres de empresas completos y otra muy
pequeña donde estan ciertas palabras que identifican a la empresa (nombre
corto) como puedo hacer para localizar por ejemplo las ventas

Con poder identificar que aparece la empresa y que en algúna columna se
coloque su nombre "corto" me es suficiente...

Ej: Carnicería - 4000 (Aparece 2 veces)
Mecánica - 4000 (Aparece 3 veces)
Telefonía - 2000 (Aparece 1 vez)
Lapicera - 0 (No Transaccionó)

Nombre - Ventas (2000 Registros)
Carnicería del Sureste - 1000
Mecánica Austral - 2000
Telefonía Digital - 2000
Copiadoras Hdz - 4000
Herrerías Herdez - 5000
Carnicería del Sureste - 3000
Mecánica Austral - 1000
Mecánica Austral - 2000

Gracias,

Hola Julio:

Sólo existe Mecanica Austral, pero la tengo en sistemas diferentes y no la
llaman igual, aveces le añaden por ejemplo S.A. o cortan el nombre, osea no
puedo parametrizarlos, porque la cantidad de veces que se repite la empresa
es muy grande y me envían la información mensual en una sola columna, además
de tenerla repartida en diferentes hojas, se que esto es cavernicola pero
mientras esto se resuelve la consolidación la tengo que hacer manual
(reemplazando/eliminando los caracteres que sobran) via ctrl + L o celda por
celda, es infinito.

Intenté hacer una macro pero no supe volver el R1C1 variable es por eso que
no terminé la macro.

Sub Encontrar()

'Nombre de la Empresa
For i = 6 To 10000

'Nombre Corto de la Empresa
For y = 6 To 20

If Worksheets("Base").Cells(i, 5).Value <> 0 Then

'Nombre Corto
nomcto = Worksheets("Datos").Cells(y, 4)

'No pude sustituir la fórmula para hacerla variable
ActiveCell.FormulaR1C1 = "=FIND(Datos!R[11]C[-2],Base!RC[-1],1)"

'Cuando encontrara el nombre corto entonces asignar para sacar
las ventas.
Worksheets("Base").Cells(i, 6)


End If

Next y

Next i





No se si con eso te ayudé un poco más.

Gracias,
Imelda


"jsilva69" escribió:

Hola!

No entiendo mucho el problema...
Por ejemplo, la empresa es "Austral" o "Mecanica Austral"?
Hay otras "Mecanicas" aparte de Austral?
Vos lo que queres es consolidar la cantidad de transacciones de
"Mecanica" o de "Mecanica Austral"?

Capaz que me podes aclarar un poco el panorama, asi te puedo dar una
mano... pero estimo que se puede hacer sin necesidad de VBA!

Julio.

On 18 feb, 13:00, IRC wrote:
> Necesito hacer una fórmula variable en visual basic o en forma de matriz
>
> Ejemplo:
>
> Tengo una columna de 2000 con nombres de empresas completos y otra muy
> pequeña donde estan ciertas palabras que identifican a la empresa (nombre
> corto) como puedo hacer para localizar por ejemplo las ventas
>
> Con poder identificar que aparece la empresa y que en algúna columna se
> coloque su nombre "corto" me es suficiente...
>
> Ej: Carnicería - 4000 (Aparece 2 veces)
> Mecánica - 4000 (Aparece 3 veces)
> Telefonía - 2000 (Aparece 1 vez)
> Lapicera - 0 (No Transaccionó)
>
> Nombre - Ventas (2000 Registros)
> Carnicería del Sureste - 1000
> Mecánica Austral - 2000
> Telefonía Digital - 2000
> Copiadoras Hdz - 4000
> Herrerías Herdez - 5000
> Carnicería del Sureste - 3000
> Mecánica Austral - 1000
> Mecánica Austral - 2000
>
> Gracias,

Hola!

Acordate que el argumento de la función ActiveCell.FormulaR1C1 es un
string, por lo que podes trabajarlo como cualquier string. Por
ejemplo...

ActiveCell.FormulaR1C1 = "=FIND(Datos!R[" & _
paramFila & "]C[" & _
paramColumna & "-2],Base!RC[-1],1)"

Si haces que varien paramFila y paramColumna, podes hacer lo que
necesitas.


On 18 feb, 14:42, IRC wrote:

Hola Julio:

Sólo existe Mecanica Austral, pero la tengo en sistemas diferentes y no la
llaman igual, aveces le añaden por ejemplo S.A. o cortan el nombre, osea no
puedo parametrizarlos, porque la cantidad de veces que se repite la empresa
es muy grande y me envían la información mensual en una sola columna, además
de tenerla repartida en diferentes hojas, se que esto es cavernicola pero
mientras esto se resuelve la consolidación la tengo que hacer manual
(reemplazando/eliminando los caracteres que sobran) via ctrl + L o celda por
celda, es infinito.

Intenté hacer una macro pero no supe volver el R1C1 variable es por eso que
no terminé la macro.

Sub Encontrar()

'Nombre de la Empresa
For i = 6 To 10000

'Nombre Corto de la Empresa
For y = 6 To 20

If Worksheets("Base").Cells(i, 5).Value <> 0 Then

'Nombre Corto
nomcto = Worksheets("Datos").Cells(y, 4)

'No pude sustituir la fórmula para hacerla variable
ActiveCell.FormulaR1C1 = "=FIND(Datos!R[11]C[-2],Base!RC[-1],1)"

'Cuando encontrara el nombre corto entonces asignar para sacar
las ventas.
Worksheets("Base").Cells(i, 6)

End If

Next y

Next i

No se si con eso te ayudé un poco más.

Gracias,
Imelda

"jsilva69" escribió:

> Hola!

> No entiendo mucho el problema...
> Por ejemplo, la empresa es "Austral" o "Mecanica Austral"?
> Hay otras "Mecanicas" aparte de Austral?
> Vos lo que queres es consolidar la cantidad de transacciones de
> "Mecanica" o de "Mecanica Austral"?

> Capaz que me podes aclarar un poco el panorama, asi te puedo dar una
> mano... pero estimo que se puede hacer sin necesidad de VBA!

> Julio.

> On 18 feb, 13:00, IRC wrote:
> > Necesito hacer una fórmula variable en visual basic o en forma de matriz

> > Ejemplo:

> > Tengo una columna de 2000 con nombres de empresas completos y otra muy
> > pequeña donde estan ciertas palabras que identifican a la empresa (nombre
> > corto) como puedo hacer para localizar por ejemplo las ventas

> > Con poder identificar que aparece la empresa y que en algúna columna se
> > coloque su nombre "corto" me es suficiente...

> > Ej: Carnicería - 4000 (Aparece 2 veces)
> > Mecánica - 4000 (Aparece 3 veces)
> > Telefonía - 2000 (Aparece 1 vez)
> > Lapicera - 0 (No Transaccionó)

> > Nombre - Ventas (2000 Registros)
> > Carnicería del Sureste - 1000
> > Mecánica Austral - 2000
> > Telefonía Digital - 2000
> > Copiadoras Hdz - 4000
> > Herrerías Herdez - 5000
> > Carnicería del Sureste - 3000
> > Mecánica Austral - 1000
> > Mecánica Austral - 2000

> > Gracias,