Aneudys Martinez

Seria de la siguiente manera Private Sub CommandButton1_Click() Application.ScreenUpdating = False Ruta = "C:\Users\dani.martinez\Desktop\rntt\" nombre = "rntt.xls" Workbooks.Open Filename:=Ruta & nombre Sheets("results").Select ......tu...

Si no tiene celda en blanco hasta la ultima fila con datos puedes usar do while seria asi Do while activecell <> "" ActiveCell.Offset(0, 1). Copy Sheets("sheet2"). Range("a2"). PasteSpecial xlPasteValues loop Donde offset seria la columna B Sheet2...

[email protected] estes es mi correo

Presentanos tu macro para ver en que podemos mejorarla

Si he possible, 1 - como reguistras los datos en tu base de datos 2 - las exportadora estar fijas en su celda o varían 3 - tiene alguna macro que nos presente para mejorarla

Muéstranos el código para ver en que podemos ayudarte

1 -presentamos tu hoja de como estas 2 - otra hoja de como quiere quede 3 y si tiene una para ver en que podemos ayudarte

Para buscar los fabricante Usaría de la vba de la siguiente manera Private Sub UserForm_Initialize() range("f6").select do while activecell <> "" combobox3.additem activecell activecell.offset(1,0).select loop end sub Esto en el caso de que en tu...

Lo puede conseguir de la siguiente manera Desde el evento iniciar del userfrom Private Sub UserForm_Initialize() Application.ScreenUpdating = False Sheets("sheet1").Visible = xlSheetVisible Sheets("sheet1").Visible .Select Range("a2").Select Do While...

Presentanos tu hoja a ver en que podemos mejora tu macro