Aneudys Martinez

Lo puede conseguir de esta manera Presiona alt + f11 esto te lleva al vba aquí eliges insentar y inserta un modulo Y pegas esta macro Sub imprimir() If Range("a1") = "x" Or Range("b1") = "y" Then Range("a3:g6").Select ActiveSheet.PageSetup.PrintArea...

Puedes explicar major lo que intentas hacer por lo que veo en la columna B Quiere que todos los numero que sean menor que 6 copie la fecha en la misma columna Cells(Rows. Count, 2).End(xlUp). Row en esta parte le estas diciendo que empiece de abajo...

La hora cambia hasta por un Segundo estos de beria definirlo solo en minuto Lo de la fecha cambia por día tiene que ser más especifico porque si la fecha 2/2/17 8:01 seria diferente de 2/2/17 8:02 por que si no es diferente entonces seria solo busca...

Es possible solo tiene que tener la informacion Muestranos la hoja donde tiene los datos que se va a copier en el cuerpo ¿O major dicho la base de datos estas en un ahoja de excel en el mismo libro o en otro?

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

Muéstranos el código 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...