Jump to content

gfellay

Members
  • Content Count

    159
  • Joined

  • Last visited

  • Days Won

    6

gfellay last won the day on March 18 2016

gfellay had the most liked content!

1 Follower

About gfellay

  • Rank
    Advanced Member
  • Birthday 07/01/1970

Profile information

  • Gender
    Hombre

Converted

  • Campos
    ;

Recent Profile Visitors

558 profile views
  1. Coincido con john respecto al archivo. Igualmente estoy casi seguro que en tu caso se debe a que estás haciendo el buscarv contra "la tabla completa" de la segunda hoja y esto estaría mal, ya que el valor D197 está en la segunda columna y no en la primera (que es la que usa la función buscarv para realizar la búsqueda). Si no entendiste lo que dije o no es ese el problema, sube el archivo para poder revisarlo Saludos
  2. A priori yo cambiaría UltimaFila = Workbooks(OtroLibro).Sheets(OtraHoja).Range("A" & Cells.Rows.Count).End(xlUp).Row por esta otra UltimaFila = Workbooks(OtroLibro).Sheets(OtraHoja).Range("A1048576").End(xlUp).Row Aunque coincido con Macro Antonio que sin todo el contexto es difícil deducir que puede ser... Saludos
  3. Sube el archivo (o una muestra) para que te podamos ayudar Saludos
  4. Perdón la intromisión, cambio la columna F de la tabla, ya que creo que es lo que quieres, pues con la versión original se están "perdiendo" los valores de Pedro Perez que son menores al valor de referencia. Saludos ResTD.xlsx
  5. Perdon que me meta donde no me llaman pero por que no pones directamente ActiveCell = TextBox3 o ActiveCell = TextBox3.Text Saludos
  6. jaja, perfecto! Para ver la fórmula que define "rDatos", andá al menú Fórmulas y allí seleccioná el ícono del Administrador de Nombres Saludos!
  7. Te agregué unas columnas auxiliares y un autofiltro Saludos Libro1-EJEMPLO.xlsx
  8. Acabo de ver que el mínimo, al no haberlo definido, lo considera en cero y por eso falla la instrucción, podés cambiar el código del Change del SinButton, por lo siguiente Private Sub SpinButton1_Change() Dim fHasta As Long 'Dim uf1 As Double 'Dim uf2 As Double If SpinButton1 = 0 Then Exit Sub With Hoja1 If LbNPC.Caption > 0 Then fHasta = Cells(Rows.Count, 2).End(xlUp).Row LbNPC.Caption = SpinButton1 TbxNombre = Application.WorksheetFunction.VLookup(SpinButton1, .Range("rDatos"), 2, False) LbCode = Application.WorksheetFunction.VLookup(SpinButton1, .Range("rDatos"), 3, False) ' uf1 = Cells(Rows.Count, 2).End(xlUp).Row ' uf2 = Cells(Rows.Count, 3).End(xlUp).Row ' TbxNombre = .Range("B" & uf1) ' LbCode = .Range("C" & uf2) End If End With End Sub Fijate que agregué una instrucción antes del "With Hoja1" Saludos
  9. Fijate con esta modificación Spinbutton para recorrer datos segun label.xlsm
  10. Si es "sencillo" de realizar, pero sube un archivo Excel con este mismo planteo para que te podamos ayudar (se que eres nueva aquó, pero lee las reglas del foro) Saludos
  11. Agrega el archivo para poder arreglarlo. Deberías tener a la vista la lista de campos, que deberías arrastrar y soltar en la zona de la tabla donde quieras la información. Saludos
  12. Para que parpadee la celda, hay que hacerlo con macros y te va a hacer muy lento el archivo. Lo que te recomiendo es que lo hagas con formatos condicionales (te dejo una opción). Saludos SORT1.xlsm
  13. No estoy seguro de entender lo que necesitás, pero creo que lo podés arreglar todo, cambiando los textos en el gráfico dinámico... Te dejo el archivo con esta pequeña modificación... CONTROL LAVADOS FLOTA gfxls (1).xls
  14. En que parte ves eso? Porque en la tabla el encabezado dice "Datos" Como tenés la tabla del archivo ya está de este modo, solo debes presionar el botón + en cada uno de los meses No entiendo esto
  15. Te dejo la segunda opción. Fijate que junté todos las hojas en una sola (que es la que deberías empezar a llenar a partir de ahora). Además a esa hoja le agregué: - Columna auxiliar para que calcule el mes (M) - En el libro definí el rango rDatos para que tu tabla dinámica vaya creciendo acorde a los datos que vas teniendo Saludos CONTROL LAVADOS FLOTA gfxls.xls
×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png