Problema con sentencia de macros

publicado el 10 de febrero11 años

buenas tardes

saludos Expertos, queria comentarles que estaba creando un codigo en el cual despues de una cantidad de datos (revisando que sea un producto y de ahi vaya a otra columna y ponga su nombre ) llega a un numero y busque el nombre de otro vendedor y continue haciendo lo mismo, pero da la casualidad que estaba creando el codigo de acuerdo a la base de datos, pero realmente si la distribucion de nombres seria distinta (x lo que se aprecia es orden alfabetico, pero si cambia) mi codigo genera error podrian ayudarme adjunto archivo

no puedo mostrar el código porque es muy grande.

gracias

Saludos

Brian

ayudaDatos.zip

publicado el 10 de febrero11 años

Autor

Este es el codigo del archivo espero su ayuda gracias

Sub prueba()

Range("D5").Select

    While ActiveCell <> ""

        If IsNumeric(ActiveCell) Then ActiveCell.Offset(1, -2).Select


        If ActiveCell = "CARLOS LOPEZ" Then

        ActiveCell.Offset(1, 14).Select

        ActiveCell = "CLOPEZ"

        ActiveCell.Offset(1, -12).Select

            While ActiveCell <> ""


        ActiveCell.Offset(0, 12).Select

        ActiveCell = "CLOPEZ"

        ActiveCell.Offset(1, -12).Select

        If IsNumeric(ActiveCell) Then ActiveCell.Offset(1, -2).Select

            'OTRO

                If ActiveCell = "GIANCARLO DAVILA" Then

  ActiveCell.Offset(1, 14).Select

      ActiveCell = "GDAVILA"

      ActiveCell.Offset(1, -12).Select

      While ActiveCell <> ""

    ActiveCell.Offset(0, 12).Select

      ActiveCell = "GDAVILA"

    ActiveCell.Offset(1, -12).Select

          If IsNumeric(ActiveCell) Then ActiveCell.Offset(1, -2).Select

          'OTRO2

            If ActiveCell = "HELEN REYES LOPEZ" Then

            ActiveCell.Offset(1, 14).Select

            ActiveCell = "HREYES"

            ActiveCell.Offset(1, -12).Select

          While ActiveCell <> ""

      ActiveCell.Offset(0, 12).Select

  ActiveCell = "HREYES"

      ActiveCell.Offset(1, -12).Select

      If IsNumeric(ActiveCell) Then ActiveCell.Offset(1, -2).Select

    'OTRO3 ,RCADILLO,

        If ActiveCell = "ROLLY CADILLO P." Then

        ActiveCell.Offset(1, 14).Select

          ActiveCell = "RCADILLO"

            ActiveCell.Offset(1, -12).Select

            While ActiveCell <> ""

      ActiveCell.Offset(0, 12).Select

  ActiveCell = "RCADILLO"

          ActiveCell.Offset(1, -12).Select

                If IsNumeric(ActiveCell) Then ActiveCell.Offset(1, -2).Select

            'OTRO4 AREQUIPA,

                If ActiveCell = "AREQUIPA" Then

            ActiveCell.Offset(1, 14).Select

                ActiveCell = "AREQUIPA"

                  ActiveCell.Offset(1, -12).Select

                  While ActiveCell <> ""


                ActiveCell.Offset(0, 12).Select

          ActiveCell = "AREQUIPA"

                  ActiveCell.Offset(1, -12).Select

          If IsNumeric(ActiveCell) Then ActiveCell.Offset(1, -2).Select

              'OTRO5 CHIMBOTE,

                If ActiveCell = "CHIMBOTE" Then

              ActiveCell.Offset(1, 14).Select

            ActiveCell = "CHIMBOTE"

        ActiveCell.Offset(1, -12).Select

            While ActiveCell <> ""

      ActiveCell.Offset(0, 12).Select

                ActiveCell = "CHIMBOTE"

    ActiveCell.Offset(1, -12).Select

    If IsNumeric(ActiveCell) Then ActiveCell.Offset(1, -2).Select

          'OTRO6 CHICLAYO,

      If ActiveCell = "CHICLAYO" Then

      ActiveCell.Offset(1, 14).Select

    ActiveCell = "CHICLAYO"

              ActiveCell.Offset(1, -12).Select

      While ActiveCell <> ""

      ActiveCell.Offset(0, 12).Select

            ActiveCell = "CHICLAYO"

                ActiveCell.Offset(1, -12).Select

              If IsNumeric(ActiveCell) Then ActiveCell.Offset(1, -2).Select

            'OTRO7 TRUJILLO,

  If ActiveCell = "TRUJILLO" Then

            ActiveCell.Offset(1, 14).Select

            ActiveCell = "TRUJILLO"

          ActiveCell.Offset(1, -12).Select

                                        While ActiveCell <> ""

      ActiveCell.Offset(0, 12).Select

      ActiveCell = "TRUJILLO"

        ActiveCell.Offset(1, -12).Select

        If IsNumeric(ActiveCell) Then ActiveCell.Offset(1, -2).Select

          'OTRO8 OLIMA,

            If ActiveCell = "VENTAS OFICINA" Then

          ActiveCell.Offset(1, 14).Select

        ActiveCell = "OLIMA"

          ActiveCell.Offset(1, -12).Select

          While ActiveCell <> ""

      ActiveCell.Offset(0, 12).Select

ActiveCell = "OLIMA"

          ActiveCell.Offset(1, -12).Select

      If IsNumeric(ActiveCell) Then ActiveCell.Offset(1, -2).Select

                'OTRO9 LPORTUGUEZ,

      If ActiveCell = "LUIS PORTUGUEZ" Then

        ActiveCell.Offset(1, 14).Select

        ActiveCell = "LPORTUGUEZ"

        ActiveCell.Offset(1, -12).Select

      While ActiveCell <> ""

      ActiveCell.Offset(0, 12).Select

    ActiveCell = "LPORTUGUEZ"

        ActiveCell.Offset(1, -12).Select

              If IsNumeric(ActiveCell) Then ActiveCell.Offset(1, -2).Select

                      'OTRO10 MRUIZ,

            If ActiveCell = "MANUEL RUIZ" Then

            ActiveCell.Offset(1, 14).Select

            ActiveCell = "MRUIZ"

            ActiveCell.Offset(1, -12).Select

            While ActiveCell <> ""

      ActiveCell.Offset(0, 12).Select

          ActiveCell = "MRUIZ"

          ActiveCell.Offset(1, -12).Select

          If IsNumeric(ActiveCell) Then ActiveCell.Offset(1, -2).Select

                    'OTRO11 GVELAZQUEZ,

            If ActiveCell = "GVELAZQUEZ" Then

          ActiveCell.Offset(1, 14).Select

          ActiveCell = "GVELAZQUEZ"

          ActiveCell.Offset(1, -12).Select

        While ActiveCell <> ""

      ActiveCell.Offset(0, 12).Select

  ActiveCell = "GVELAZQUEZ"

      ActiveCell.Offset(1, -12).Select

          If IsNumeric(ActiveCell) Then ActiveCell.Offset(1, -2).Select

        'OTRO12 MREQUENA,

        If ActiveCell = "MAURICIO REQUENA" Then

                ActiveCell.Offset(1, 14).Select

            ActiveCell = "MREQUENA"

          ActiveCell.Offset(1, -12).Select

          While ActiveCell <> ""

      ActiveCell.Offset(0, 12).Select

    ActiveCell = "MREQUENA"

      ActiveCell.Offset(1, -12).Select

                    If IsNumeric(ActiveCell) Then ActiveCell.Offset(1, -2).Select

            'OTRO13 PIURA,

            If ActiveCell = "LUIS PARODI" Then

          ActiveCell.Offset(1, 14).Select

          ActiveCell = "PIURA"

              ActiveCell.Offset(1, -12).Select

        While ActiveCell <> ""

      ActiveCell.Offset(0, 12).Select

              ActiveCell = "PIURA"

                  ActiveCell.Offset(1, -12).Select

                    If IsNumeric(ActiveCell) Then ActiveCell.Offset(1, -2).Select

                'OTRO14 SANLUIS,

            If ActiveCell = "VENTAS SAN BORJA" Then

                ActiveCell.Offset(1, 14).Select

                  ActiveCell = "SANLUIS"

                  ActiveCell.Offset(1, -12).Select

                  While ActiveCell <> ""

      ActiveCell.Offset(0, 12).Select

              ActiveCell = "SANLUIS"

              ActiveCell.Offset(1, -12).Select

              If IsNumeric(ActiveCell) Then ActiveCell.Offset(1, -2).Select

          'OTRO15 NOUSAR,

          If ActiveCell = "NO USAR..........." Then

          ActiveCell.Offset(1, 14).Select

                ActiveCell = "NOUSAR"

              ActiveCell.Offset(1, -12).Select

          While ActiveCell <> ""

      ActiveCell.Offset(0, 12).Select

      ActiveCell = "NOUSAR"

  ActiveCell.Offset(1, -12).Select

            If IsNumeric(ActiveCell) Then ActiveCell.Offset(1, -2).Select

            'OTRO16 CUZCO,

          If ActiveCell = "CUZCO" Then

        ActiveCell.Offset(1, 14).Select

          ActiveCell = "CUZCO"

        ActiveCell.Offset(1, -12).Select

        While ActiveCell <> ""

      ActiveCell.Offset(0, 12).Select

              ActiveCell = "CUZCO"

            ActiveCell.Offset(1, -12).Select

              If IsNumeric(ActiveCell) Then ActiveCell.Offset(1, -2).Select

                'OTRO17 CALLAO,

                If ActiveCell = "VENTAS FAUCETT" Then

                ActiveCell.Offset(1, 14).Select

                  ActiveCell = "CALLAO"

                  ActiveCell.Offset(1, -12).Select

                While ActiveCell <> ""

      ActiveCell.Offset(0, 12).Select

              ActiveCell = "CALLAO"

          ActiveCell.Offset(1, -12).Select

              If IsNumeric(ActiveCell) Then ActiveCell.Offset(1, -2).Select

                  'OTRO18 LICITACIONES

              If ActiveCell = "LICITACIONES" Then

              ActiveCell.Offset(1, 14).Select

            ActiveCell = "LICITACIONES"

    ActiveCell.Offset(1, -12).Select

          While ActiveCell <> ""

      ActiveCell.Offset(0, 12).Select

    ActiveCell = "LICITACIONES"

        ActiveCell.Offset(1, -12).Select

          If IsNumeric(ActiveCell) Then ActiveCell.Offset(1, -2).Select

        Wend

    End If

            Wend

          End If

            Wend

            End If

              Wend

          End If

            Wend

            End If

          Wend

          End If

                Wend

                  End If

              Wend

                End If

                Wend

                  End If

                  Wend

                  End If

              Wend

              End If

                  Wend

                  End If

                    Wend

                  End If

                      Wend

                    End If

        Wend

      End If

                  Wend

                End If

                  Wend

                  End If

  Wend

    End If

          Wend

        End If


        'ActiveCell.Offset(1, 0).Select

        ActiveCell.Offset(0, 12).Select

        ActiveCell = "ABARREDO"

        ActiveCell.Offset(1, -12).Select


    Wend



End Sub

[/CODE]

publicado el 10 de febrero11 años

Hola, considera la posibilidad de usar la instrucción Select Case:

Cómo utilizar las instrucciones IF THEN ELSE y SELECT CASE en los ejemplos escritos en Visual Basic para Excel 2000

publicado el 10 de febrero11 años

Autor

He tratado de hacerlo con select case pero me manda error .. podrias darme un ejemplo con mi codigo y yo continuarlo, soy muy nuevo en esto, disculpa

publicado el 11 de febrero11 años

Amigo @[uSER=161327]Bcordero[/uSER], con todo el perdon del mundo, pero eso que estas haciendo en una locura, pues si tienes 1000 nombres diferentes no me quiero imaginar el tamaño de tu macro, creo entender que deseas llenar la columna P con el nombre abreviado según el nombre de la columna B, cierto??, si así, revisa el anexo, la macro que dice prueba_nueva, espero que te sirva;

simplemente agregue adicionalmente una tablita en la hoja1, allí completas los datos de las personas adicionales que tengas luego

suerte

ayudaDatos_SM.zip

publicado el 11 de febrero11 años

Si incluyes en el ejemplo los resultados para 2-3 nombres, sugerire algo.

publicado el 11 de febrero11 años

Autor

muchas gracias @bigpetroman me sirvio de mucho tu ayuda

SOLUCIONADO

Archivado

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

Ir al listado de temas

190 Archivos
99 Comentarios
29 Revisiones
Última descarga

Gráficos de aranceles con colores difusos
- 1

Nuevo diseño del foro

Israel, no debes registrarte de nuevo ni hacer nada especial. En unos meses habrá noticias sobre ello.

Por Sergio, · publicado hace 8 horas 8 hr
Nuevo diseño del foro

Sumo mis felicitaciones ahora en el tema adecuado porque sólo lo hice dentro de un tema regular, a mí me ha gustado.
La sección que me ha generado dudas es la de "planes de suscripción", ¿tengo que volver a registrarme o actualizar algo en mi perfil? ¿Es una sección diferente de preguntas y respuestas sólo visible al registrarse?
Y agrego a las felicitaciones a los maestros y a los usuarios avanzados que contribuyen con las respuestas, con la IA avanzando en grande, la interacción humana (al menos en esto de los foros) va siendo desplazada.
¡Gracias Totales!

Por Israel Cassales, · publicado hace 8 horas 8 hr
Fórmula para buscar con condición mayor/menor

Al escribir fórmulas debemos evitar siempre que podamos anidar funciones SI (sobre todo cuando tenemos información que se repite).
Por favor, prueba la siguiente fórmula:
=SI.ERROR( LET( id, B3, fecha_ref, F3, rango_ids, '[Base Snte 05 Coah 2.xlsx]Pagos'!$F$2:$F$10000, rango_fechas, '[Base Snte 05 Coah 2.xlsx]Pagos'!$K$2:$K$10000, rango_resultado, '[Base Snte 05 Coah 2.xlsx]Pagos'!$D$2:$D$10000, diferencia, ABS(rango_fechas - fecha_ref), filtro, (rango_ids = id) * diferencia, min_dif, MIN.SI.CONJUNTO(diferencia, rango_ids, id), fila, COINCIDIR(min_dif, filtro, 0), INDICE(rango_resultado, fila) ), "No encontrado")Coméntanos si funciona.

Por Sergio, · publicado hace 9 horas 9 hr
Fórmula para buscar con condición mayor/menor

Excelente jueves a tod@s,

Agradezco en verdad todo su apoyo y comentarios les comparto una formula que use para cruzar con dos archivos pero mi maquina no es tan poderosa y se me traba con esta formula:
=SI.ERROR(
INDICE('[Base Snte 05 Coah 2.xlsx]Pagos'!$D:$D,
COINCIDIR(
MIN(
SI([BaseSnte05Coah2.xlsx]Pagos!$F:$F=B3,
ABS([BaseSnte05Coah2.xlsx]Pagos!$K:$K-F3))),
SI([BaseSnte05Coah2.xlsx]Pagos!$F:$F=B3,
ABS([BaseSnte05Coah2.xlsx]Pagos!$K:$K-F3)),
0)),"No encontrado")

Sabrán de alguna alternativa que use tanta ram o recursos del pc,

Mil gracias a de nuevo

Por Enrique González Jiménez, · publicado hace 12 horas 12 hr
Presentación

Soy novato pero aprendo rápido...

Gracias por admitirme

Por Damiruan, · publicado hace 16 horas 16 hr

No hay usuarios registrado para ver esta página.

Conéctate a Ayuda Excel

Problema con sentencia de macros

Featured Replies

Archivado

Archivos

Gráficos de aranceles con colores difusos

Cómo crear hipervínculos inteligentes con fórmulas

Cambios en el Control Horario

Un juego del Rabino en Excel

Agenda Calendario Lunar 2025

Estadísticas de descargas

Mensajes

Nuevo diseño del foro

Nuevo diseño del foro

Fórmula para buscar con condición mayor/menor

Fórmula para buscar con condición mayor/menor

Presentación

Visualizado recientemente 0

Account

Navigation

Buscar