Saltar al contenido

isidrod

Miembros
  • Contador de contenido

    83
  • Unido

  • Última visita

Sobre isidrod

  • Rango
    Miembro

Formas de contacto

  • Web https://www.ayudaexcel.com/foro/profile.php?do=editprofile
  1. Concatenar y buscarv

    bueno días nico0601 ahí esta un ejemplo espero a ver entendido tu problemática saludos isidro ejemplo.xlsx
  2. gracias por su aporte gerson y antoni no es una película de indio no están pesado 6632 kb los archivo copiar el código de un modulo ala hoja de calculo para codificarlo en la hoja de calculo no en otro modulo es error de office ya me dejo hacer es paso de copia de modulo a hoja de calculo pero no cierres el tema por favor gracias saludos isidro
  3. buenos días foro tengo un pequeño detalle con excel cuando copio de un modulo de un codigo de macros y abro un libro nuevo y lo quiero pegarla en la hoja nueva me sale este error alguien podría decir que es o que le falta o que esta desactivado gracias por sus apoyos brindados asta hora en vio la imagen en un archivo mil gracias saludos isidro
  4. gracias por tu aporte otogg ya vi tu vídeo este interesante ¿como realizo un for para que no corra en las 3 primeras hojas partir de la hoja4 empiece a ejecutarse el código? saludos isidro
  5. buenas noches equipo de este foro este código lo tome de esta pagina https://www.youtube.com/watch?v=_nsq7ZqBIQU Sub sfsotecal() Dim NOMBREDELACUENTA As String Dim TOTALPESOS2017 As String Dim TOTALPESOS2016 As String Dim DIFERENCIA As String Dim SUCURSAL As String Dim ENERO2017 As String Dim ENERO2016 As String Dim FEBRERO2017 As String Dim FEBRERO2016 As String Dim MARZO2017 As String Dim MARZO2016 As String Dim ABRIL2017 As String Dim ABRIL2016 As String Dim MAYO2017 As String Dim MAYO2016 As String Dim JUNIO2017 As String Dim JUNIO2016 As String Dim JULIO2017 As String Dim JULIO2016 As String Dim AGOSTO2017 As String Dim AGOSTO2016 As String Dim SEPTIEMBRE2017 As String Dim SEPTIEMBRE2016 As String Dim OCTUBRE2017 As String Dim OCTUBRE2016 As String Dim NOVIEMBRE2017 As String Dim NOVIEMBRE2016 As String Dim DICIEMBRE2017 As String Dim DICIEMBRE2016 As String Dim ultimafila As Long Dim utimafilahoja As Long Dim cont As Long Application.ScreenUpdating = False ultimafila = Sheets("base").Range("B" & Rows.Count).End(xlUp).Row For cont = 2 To ultimafila 'NOMBREDELACUENTA = Sheets("base").Cells(cont, 1) 'TOTALPESOS2017 = Sheets("base").Cells(cont, 2) 'TOTALPESOS2016 = Sheets("base").Cells(cont, 3) 'DIFERENCIA2017 = Sheets("base").Cells(cont, 4) SUCURSAL = Sheets("base").Cells(cont, 2) ENERO2017 = Sheets("base").Cells(cont, 6) ENERO2016 = Sheets("base").Cells(cont, 7) FEBRERO2017 = Sheets("base").Cells(cont, 8) FEBRERO2016 = Sheets("base").Cells(cont, 9) MARZO2017 = Sheets("base").Cells(cont, 10) MARZO2016 = Sheets("base").Cells(cont, 11) ABRIL2017 = Sheets("base").Cells(cont, 12) ABRIL2016 = Sheets("base").Cells(cont, 13) MAYO2017 = Sheets("base").Cells(cont, 14) MAYO2016 = Sheets("base").Cells(cont, 15) JUNIO2017 = Sheets("base").Cells(cont, 16) JUNIO2016 = Sheets("base").Cells(cont, 17) JULIO2017 = Sheets("base").Cells(cont, 18) JULIO2016 = Sheets("base").Cells(cont, 19) AGOSTO2017 = Sheets("base").Cells(cont, 20) AGOSTO2016 = Sheets("base").Cells(cont, 21) SEPTIEMBRE2017 = Sheets("base").Cells(cont, 22) SEPTIEMBRE2016 = Sheets("base").Cells(cont, 23) OCTUBRE2017 = Sheets("base").Cells(cont, 24) OCTUBRE2016 = Sheets("base").Cells(cont, 25) NOVIEMBRE2017 = Sheets("base").Cells(cont, 26) NOVIEMBRE2016 = Sheets("base").Cells(cont, 27) DICIEMBRE2017 = Sheets("base").Cells(cont, 28) DICIEMBRE2016 = Sheets("base").Cells(cont, 29) If SUCURSAL = "S01030101 ES 407 SFS LEMARROY" Then utimafilahoja = Sheets("Hoja3").Range("E" & Rows.Count).End(xlUp).Row 'Sheets("Hoja3").Cells(utimafilahoja + 1, 1) = NOMBREDELACUENTA 'Sheets("Hoja3").Cells(utimafilahoja + 1, 2) = TOTALPESOS2017 'Sheets("Hoja3").Cells(utimafilahoja + 1, 3) = TOTALPESOS2016 'Sheets("Hoja3").Cells(utimafilahoja + 1, 4) = DIFERENCIA2017 Sheets("Hoja3").Cells(utimafilahoja + 1, 5) = SUCURSAL Sheets("Hoja3").Cells(utimafilahoja + 1, 6) = ENERO2017 Sheets("Hoja3").Cells(utimafilahoja + 1, 7) = ENERO2016 Sheets("Hoja3").Cells(utimafilahoja + 1, 8) = FEBRERO2017 Sheets("Hoja3").Cells(utimafilahoja + 1, 9) = FEBRERO2016 Sheets("Hoja3").Cells(utimafilahoja + 1, 10) = MARZO2017 Sheets("Hoja3").Cells(utimafilahoja + 1, 11) = MARZO2016 Sheets("Hoja3").Cells(utimafilahoja + 1, 12) = ABRIL2017 Sheets("Hoja3").Cells(utimafilahoja + 1, 13) = ABRIL2016 Sheets("Hoja3").Cells(utimafilahoja + 1, 14) = MAYO2017 Sheets("Hoja3").Cells(utimafilahoja + 1, 15) = MAYO2016 Sheets("Hoja3").Cells(utimafilahoja + 1, 16) = JUNIO2017 Sheets("Hoja3").Cells(utimafilahoja + 1, 17) = JUNIO2016 Sheets("Hoja3").Cells(utimafilahoja + 1, 18) = JULIO2017 Sheets("Hoja3").Cells(utimafilahoja + 1, 19) = JULIO2016 Sheets("Hoja3").Cells(utimafilahoja + 1, 20) = AGOSTO2017 Sheets("Hoja3").Cells(utimafilahoja + 1, 21) = AGOSTO2016 Sheets("Hoja3").Cells(utimafilahoja + 1, 22) = SEPTIEMBRE2017 Sheets("Hoja3").Cells(utimafilahoja + 1, 23) = SEPTIEMBRE2016 Sheets("Hoja3").Cells(utimafilahoja + 1, 24) = OCTUBRE2017 Sheets("Hoja3").Cells(utimafilahoja + 1, 25) = OCTUBRE2016 Sheets("Hoja3").Cells(utimafilahoja + 1, 26) = NOVIEMBRE2017 Sheets("Hoja3").Cells(utimafilahoja + 1, 27) = NOVIEMBRE2016 Sheets("Hoja3").Cells(utimafilahoja + 1, 28) = DICIEMBRE2017 Sheets("Hoja3").Cells(utimafilahoja + 1, 29) = DICIEMBRE2016 ElseIf SUCURSAL = "S01030102 ES 3863 SFS QUEVEDO" Then utimafilahoja = Sheets("Hoja2").Range("E" & Rows.Count).End(xlUp).Row 'Sheets("Hoja2").Cells(utimafilahoja + 1, 1) = NOMBREDELACUENTA 'Sheets("Hoja2").Cells(utimafilahoja + 1, 2) = TOTALPESOS2017 'Sheets("Hoja2").Cells(utimafilahoja + 1, 3) = TOTALPESOS2016 'Sheets("Hoja2").Cells(utimafilahoja + 1, 4) = DIFERENCIA2017 Sheets("Hoja2").Cells(utimafilahoja + 1, 5) = SUCURSAL Sheets("Hoja2").Cells(utimafilahoja + 1, 6) = ENERO2017 Sheets("Hoja2").Cells(utimafilahoja + 1, 7) = ENERO2016 Sheets("Hoja2").Cells(utimafilahoja + 1, 8) = FEBRERO2017 Sheets("Hoja2").Cells(utimafilahoja + 1, 9) = FEBRERO2016 Sheets("Hoja2").Cells(utimafilahoja + 1, 10) = MARZO2017 Sheets("Hoja2").Cells(utimafilahoja + 1, 11) = MARZO2016 Sheets("Hoja2").Cells(utimafilahoja + 1, 12) = ABRIL2017 Sheets("Hoja2").Cells(utimafilahoja + 1, 13) = ABRIL2016 Sheets("Hoja2").Cells(utimafilahoja + 1, 14) = MAYO2017 Sheets("Hoja2").Cells(utimafilahoja + 1, 15) = MAYO2016 Sheets("Hoja2").Cells(utimafilahoja + 1, 16) = JUNIO2017 Sheets("Hoja2").Cells(utimafilahoja + 1, 17) = JUNIO2016 Sheets("Hoja2").Cells(utimafilahoja + 1, 18) = JULIO2017 Sheets("Hoja2").Cells(utimafilahoja + 1, 19) = JULIO2016 Sheets("Hoja2").Cells(utimafilahoja + 1, 20) = AGOSTO2017 Sheets("Hoja2").Cells(utimafilahoja + 1, 21) = AGOSTO2016 Sheets("Hoja2").Cells(utimafilahoja + 1, 22) = SEPTIEMBRE2017 Sheets("Hoja2").Cells(utimafilahoja + 1, 23) = SEPTIEMBRE2016 Sheets("Hoja2").Cells(utimafilahoja + 1, 24) = OCTUBRE2017 Sheets("Hoja2").Cells(utimafilahoja + 1, 25) = OCTUBRE2016 Sheets("Hoja2").Cells(utimafilahoja + 1, 26) = NOVIEMBRE2017 Sheets("Hoja2").Cells(utimafilahoja + 1, 27) = NOVIEMBRE2016 Sheets("Hoja2").Cells(utimafilahoja + 1, 28) = DICIEMBRE2017 Sheets("Hoja2").Cells(utimafilahoja + 1, 29) = DICIEMBRE2016 End If Next cont Application.ScreenUpdating = True End Sub sabe como hacer que este código sea mas rápido para copiar de una hoja a otra es que tarda 45 minutos y es que tengo en un archivo 121 sucursales cada una tiene 143 fila que hay pasar cada hoja que le corresponde una sucursal gracias pruebaderesultado1.xlsm
  6. Cual función y como debo hacer este problema

    ahi esta la formula =SI(E2>=70%,"pasa","no pasa") danilo
  7. haplox el archivo es: pruebaderesultado.xlsm gracias saludos isidro
  8. lo que e aprendido en este foro y todo el Internet general aquí esta mi archivo haciendo una mezcla de dulce y de manteca que de sal a ver si alguien mas puede darle una buena pulida porque lo mio esta muy rustico este ese el archivo gracias saludos isidro
  9. ola foro buen día hoy subo un posible solución mas o meno como quiero que de los resultado finales la información
  10. gracias Abraham Valencia mil gracias por tu aportación se aprende todo los días cosas nuevas por eso cuando nos topamos con una piedra no hay que tirarlo hay que hacer de ella un escalón saludos isidro
  11. ese método antoni ya lo realice gracia solo lo subí para saber el porque de problema para saber donde atacarlo y si alguien sabe o si alguien mas le sucedió lo mismo que ami en meses anterior tenia una maquina con excel 2007 y me sucedió algo parecido en que ya vez ero solo lo controles activex no me dejaba agregar pero esta vez solo es el archivo no parece activado gracias a todos vamos a ver quien da al clavo gracias tu aportación antoni saludos isidro
  12. excel en win7 hector y Custom ui Editor donde lo veo pero su el archivo gracia por su apoyo a los dos saludos isidro NOVIEMBRE .xlsm
  13. ninguno de eso 3 punto tiene hector y no están los controles de los formularios desaparecieron los botones que se ejecutaban las macros envió el archivo como esta en mi maquina gracias a los dos por su apollo saludos isidro
  14. no esta activado el botón pero si esta activado la pestaña de desarrollador gracias avalencia
×