Jump to content

Cesar Durand

Members
  • Content Count

    215
  • Joined

  • Last visited

  • Days Won

    4

Cesar Durand last won the day on January 14 2016

Cesar Durand had the most liked content!

1 Follower

About Cesar Durand

  • Rank
    Advanced Member
  • Birthday 01/10/1990

Converted

  • Campos
    ,

Recent Profile Visitors

574 profile views
  1. Ese título también llamó mi atención como la de Silvia , pero tampoco tengo acceso Slds.-
  2. A que te refieres con archivos cerrados? Solo necesitas tener un libro abierto que sería en el que copies la información. Te adjunto el código modificado para lo demás. Sub a() Application.ScreenUpdating = 0 ruta = "C:\Users\cdurand2\Desktop\xxxx" fila = 5: columna = 2: c = 0 Set fso = CreateObject("Scripting.FileSystemObject") Set folder = fso.GetFolder(ruta) Set subfolder = folder.Files For Each file In subfolder x = 0 Set nuevo = Workbooks.Open(file) For Each hoja In nuevo.Sheets If hoja.Name = "resumen" Then x = 1 Next If x = 0 Then GoTo salto With ThisWorkbook.Sheets(1) .Cells(fila + c, columna + 1) = nuevo.Sheets("resumen").[b10] .Cells(fila + c, columna + 2) = nuevo.Sheets("resumen").[b11] .Cells(fila + c, columna) = file.Name End With c = c + 1 salto: nuevo.Close Next With ThisWorkbook.Sheets(1) .[b4] = "Archivo" .[c4] = "celda b10" .[d4] = "celda b11" End With Set nuevo = Nothing Application.ScreenUpdating = 1 End Sub Slds.-
  3. Hola Litium, El siguiente código te ayudará, solo debes cambiar la ruta a la de contenedor de los archivos que quieras explorar, y copiar el código a un libro nuevo. Sub a() Application.ScreenUpdating = 0 ruta = "C:\Users\cdurand2\Desktop\xxxx" fila = 5: columna = 2: c = 0 Set fso = CreateObject("Scripting.FileSystemObject") Set folder = fso.GetFolder(ruta) Set subfolder = folder.Files For Each file In subfolder Set nuevo = Workbooks.Open(file) With ThisWorkbook.Sheets(1) .Cells(fila + c, columna) = file.Name .Cells(fila + c, columna + 1) = nuevo.Sheets("resumen").[b10] .Cells(fila + c, columna + 2) = nuevo.Sheets("resumen").[b11] End With nuevo.Close c = c + 1 Next Set nuevo = Nothing ThisWorkbook.Sheets(1).[b4] = "Archivo" ThisWorkbook.Sheets(1).[c4] = "celda b10" ThisWorkbook.Sheets(1).[d4] = "celda b11" Application.ScreenUpdating = 1 End Sub Slds.-
  4. Hola a todos, Yo también un pequeño aporte, y entiendo que no podrían haber 2 registros del mismo día de actualización (proveedor/código) cierto? slds.- Prueba.xlsx
  5. Hola Fedebarri, Si no realizas alguna acción (click, etc) que llame al evento, no ocurrirá nada. Private Sub UserForm_Activate() Prueba_1_Change End Sub Así puedes visualizar la fecha en tu primer txt. Lo demás sería añadir código. Slds.-
  6. Hola a todos, Tengo varios meses sin acceder al foro y desde hace varios dias me conecto, pero siempre tengo respuesta "la contraseña es incorrecta" y tengo que reiniciarla cada día que quiero acceder. A alguno le sucede? Me disculpo si se informó sobre ello y no me tomé el tiempo de buscar. Slds.-
  7. Volviendo por el foro luego de meses... Feliz cumpleaños Silvia!!! Me siento perdido en el foro
  8. Una consulta, En una oportunidad no tuviste esta duda y te respondí? O me estoy confundiendo. xD Slds.-
  9. Hola, Borra el dato de la celda [A5]. Slds.-
  10. Hola Daniela, Estoy trabajando en una manera de llenar los combos de manera dependiente, para no tener la necesidad de los autofiltros. Pero los ultimos 3 combos no sé con que los llenarías desde la tabla principal. Espero tus comentarios. Slds.- R_BASE_EVALUADOS.rar
  11. Vuelvo por aquí con la solución Private Sub ComboBox1_Change() 'COMBOBOX1 = EQUIPO Dim lista As Object Set lista = CreateObject("System.Collections.ArrayList") ComboBox2.Clear For Each celda In Range([e5], [e5].End(xlDown)) encontrado = False If celda.Offset(0, -1) = ComboBox1.Value Then For i = 0 To lista.Count - 1 If celda = lista(i) Then encontrado = True Next If encontrado = False Then lista.Add celda.Text End If Next lista.Sort For i = 0 To lista.Count - 1: ComboBox2.AddItem lista(i): Next End Sub[/CODE]Slds.- a todos los que comenten
  12. Hola Cesar, Útiliza este código para el evento del combo1. El que puedes emplear para los demás combos. Private Sub ComboBox1_Change() 'COMBOBOX1 = EQUIPO ComboBox2.Clear For Each celda In Range([e5], [e5].End(xlDown)) encontrado = False If celda.Offset(0, -1) = ComboBox1.Value Then For i = 0 To ComboBox2.ListCount - 1 If celda = CStr(ComboBox2.List(i)) Then encontrado = True Next If encontrado = False Then ComboBox2.AddItem celda End If Next End Sub[/CODE] Slds.-
  13. Hola José. Si, La verdad que me es molesto y tampoco supe como evitar ese parpadeo, por más que investigué. Supongo que es debido a que se utiliza otra aplicación (outlook) y que no indicamos un screenupdating=false como en excel. Espero encontrar la solución pronto ya que en envios de correo masivos molesta. Slds.-
×
×
  • Create New...

Important Information

Privacy Policy