Jump to content

juandi

Members
  • Content Count

    69
  • Joined

  • Last visited

Everything posted by juandi

  1. juandi

    Do while

    Estimado adjunto archivo. La idea es que con este código... For Each celda In Worksheets("Hoja2").Range("A1:A1000").SpecialCells(xlCellTypeVisible) Sheets("Balance").Cells(y, 3) = Worksheets("Hoja2").Range("A1").Value y=y+1 Next Si está visible la fila, pegue en la hoja Balance. Muchas gracias por su ayuda.ayuda excel.xlsx
  2. juandi

    Do while

    Este es el codigo For Each celda In Worksheets("Hoja2").Range("A1:A1000").SpecialCells(xlCellTypeVisible) If Worksheets("Hoja2").Range("A1:A20000").SpecialCells(xlCellTypeVisible) = True Then Sheets("Balance").Cells(y, 3) = Worksheets("Hoja2").Range("A1").Value End If Next
  3. juandi

    Do while

    Hola, lo probé pero no anda, empiza a copiar como si estuvieran todas visibles. como defino a CELDA como Range?
  4. Buenas tarde. Tengo una hoja com mas de 1900 registros, luego de aplicar un filtro quedas 5, como haga para hacer un do while solo con los 5 registros filtrados. Al hacer el do while no "ve" lo filtrado y me recorre todo. Gracias
  5. Gente buenas tardes. Estoy trabajando con Excel 2013, y necesito abrir un archivo con código fuente. : Dim XL As New Excel.Application XL.Workbooks.Open "Z:\Documentos Personales\Juan Arduini\cargas de suero.xlsx", , False El problema es que de esta forma lo abre indicando Error de activación de productos en rojo en la parte de arriba y cuando lo quiero buscar no lo encuentra, ahora si lo abro haciendo clik no aparece el error y luego si lo detecta el código. La pregunta es, como hacer para que a través de código fuente se abra pero sin el error? Gracias Juan
  6. Buenas tardes, lo resolví usando el evento Exit. Muchas gracias
  7. Buenas tardes, me parece que no es por el tipo de variable. Al estar en el evento change de un textbox, cuando paso la lectora por un codigo de barras, al detectar el cambio se ejecuta, pero el tema es que no alcanza a leer todo el lago del codo ya con el primer digito se ejecuta el evento, no se como hacer para que despues de un par de segundo se ejecute
  8. Hola como están? Estoy programando una lectora de codigo de barras, lo que lee la lectora lo coloca en TEXTBOX, el problema que me surge es que necesito validar que el código leido figiura en los articulos cargados, para esto cuando se ejecuta el change, pero es rápido y solo me lee el primir digito, el codigo de barra es 7845115, y solo lee el 7 y me dice que el codigo no existe, y no encintro Timer en vb de excel. Como hago para que el change se ejecute lugo de un par de segundo, para que le de tiempo a cargarse todpos los digitos en el textbox. Abajo dejo el codigo. Muchas gracias Private Sub txtbarra_Change() Dim a As String Dim paso As Boolean a = 1 Do While Not Sheets("Articulos").Cells(a, 1) = "" If Sheets("Articulos").Cells(a, 12) = txtbarra.Text Then TextBoxDescripcion = Sheets("Articulos").Cells(a, 2) TextBoxUDM = Sheets("Articulos").Cells(a, 4) TextBoxDescuentoItem = Sheets("Articulos").Cells(a, 9) TextBoxInventario = Sheets("Articulos").Cells(a, 12) TextBoxUnitario = Sheets("Articulos").Cells(a, 12) TextBoxCantidad = 1 paso = True Exit Do End If a = a + 1 Loop If paso = False Then MsgBox "Código Incorrecto.", vbInformation txtbarra.Text = "" Exit Sub End If end sub
  9. juandi

    Busqueda

    Leopoldo, mil gracias por tu respuesta es lo que necesitaba. Como siempre esta pagina dando excelentes respuestas. Un saludos para usted
  10. juandi

    Busqueda

    Hola. Abajo les dejo el código. El problema que tengo es que cuando el usuario tipea una sola palabra funciona bien hay coincidencias y se carga el listbox, pero cuando tipea dos o mas palabras separadas por un espacio no encuentra nada. Por ejemplo si tipea "caja" y en el listado hay textos que contegan esa palabra la trae, pero cuan tipea "Caja azul" y en listado hay un texto que dice ""Caja grande de color azul" no lo trae. Gracias por su ayuda palabra = "*" + Sheets("Pedido").cmb1.Text + "*" lst1.Clear Do While Not Sheets("Base").Cells(a, 3) = "" If Sheets("Base").Cells(a, 3) Like palabra Then g = lst1.ListCount lst1.AddItem lst1.List(g, 0) = Sheets("Base").Cells(a, 3) lst1.List(g, 1) = Sheets("Base").Cells(a, 2) lst1.List(g, 2) = Sheets("Base").Cells(a, 7) End If a = a + 1 Loop
  11. juandi

    ean 13

    Hola gente, necesito instalar en mi pc o sea en la carpeta fonts el archivo para codigo de barras ean 13 ó dun 14 pero no lo encuentro en ningún lado, como hago?? saludos Juandi
  12. Hola como va. Mi pregunata es la siguiente: tengo en mio maquina que esta en red una planilla que que muy consultado por otras maquinas , pero el problema es que yo voy haciendo cambios seguidos, y si en las otras maquinas dicha planilla esta abierta no pueden ver estos cambios, claro la unica forma es cerrando y volviendola a abrir, lo que queiro es que no haga falta cerrar y abrir para poder ver lo cambios que yo hago de mi maquina. espero ser claro saludos Juandi Cordoba Argentina
  13. Re: se abre solo el libro?? Cesar, en esta link http://www.megaupload.com/?d=0AC8K1VC esta el libro con la corrección de la coma, pero en mi pc se sigue abriendo solo, que puede hacer, le tengo que encontrar solución. conrespecto a las variables se utlizan en un rpocedimiento que se llama peso, y que son variables privadas. este procedimiento lo llamo en "ClockParaSumarcolor", o sea que se hace ejecutra cada 6 segundos; no creo que este por ahi el problema. QUE PUEDO HACER?? Gracias de antemano saludos Juan
  14. Re: se abre solo el libro?? Cesar, aquite dejo el link donde ya corregí el error de la coma, http://www.megaupload.com/?d=0AC8K1VC A mi se me sigue abriendo solo, y ahora que hago!!! en el procedimiento ClockParaSumarcolor llamo a una procedimiento pesos, que estan ahi las variables que son privadas, no creo que eso ocasione porblemas. Descargate el archivo y me contas saludos Juandi
  15. Re: se abre solo el libro?? esta es la direccion: http://www.megaupload.com/?d=WGHZVFIZ En el rango E126:E135 esta puesta la funcion, la contraseña es paz, gracias mil garcias por tu interes!! Juandi
  16. Re: se abre solo el libro?? Hola, quiero subirlo pero lo comprimo y me queda de 629 KB, como hago o estoy comprimiendo mal?? saludos y gracias
  17. Re: se abre solo el libro?? Que tal, gracias por la respuesta, pero sigue sin funcionar, tanto si guardo o no los cambios, por favor que otra cosa puedo probar. Es muy importante para mi solucionarlo ya que es un informe que envio por mail, y lo he probado y hace desastre, gracias pur su interes. saludos Juandi, Argentina, cordoba
  18. Gente, como va El codigo de abajo es que utilizo para calcular la funcion Sumarcolor que esta colocada en varias celdas, y que se calcula cada 6 segundos, el problema es que cierro el libro, guardando o no los cambios ,y se vuelve a abrir solo, que puede estar pasando?? Function Sumarcolor(Celdacolor As Range, Rangosuma As Range) As Double Dim celda As Range For Each celda In Rangosuma If celda.Interior.ColorIndex = Celdacolor.Cells(1, 1).Interior.ColorIndex Then Sumarcolor = Sumarcolor + celda Next celda Set celda = Nothing Application.Volatile End Function Sub ClockParaSumarcolor() If Stopit = True Then Exit Sub [A1].Calculate Application.ScreenUpdating = True PESOS Application.OnTime (Now + TimeSerial(0, 0, 6)), "ClockParaSumarcolor" End Sub Private Sub Workbook_Open() ClockParaSumarcolor End Sub Private Sub Worksheet_Activate() Stopit = False ClockParaSumarcolor End Sub Private Sub Worksheet_Deactivate() Stopit = True End Sub
  19. Gente como andan?? El incoveniente es que la macro que describo abajo, colocada en el un modulo y en thisworkbook cuando esta abiero el libro se ejecuta cada 10 minutos, pero cuando esta cerrado el libro tambien se ejecuta e incluisive se ejecuta con tos los libros abietos de excel, y cuando yo la consulto de mi maquina primero ovbiamnete me dice que esta abierta y es de solo lectura hasta ahi todo bien, pero la cierro y se vueve a abrir. como puedo solucionar esto con una macro NO con la funciona Autoguardado de excel ya que no graba sobre el mismo archivo. EN EL MODULO Sub Guarda() dTime = Now + TimeValue("00:10:00") Application.OnTime dTime, "Guarda" ActiveWorkbook.Save End Sub Private Sub Workbook_BeforeClose(Cancel As Boolean) Application.OnTime dTime, "Guarda" End Sub Private Sub Workbook_Open() Application.OnTime Now + TimeValue("00:10:00"), "Guarda" End Sub Sub Guarda() dTime = Now + TimeValue("00:10:00") Application.OnTime dTime, "Guarda" ActiveWorkbook.Save End Sub
  20. Hola amigos; coloqué en una hoja varias flechas; ahora lo no se como hacer con codigo para que cambien de posicion y de tamaño segun lo que yo elija en una lista. With ActiveSheet.Shapes("171 Conector recto de flecha") ???????? End With saludos juandi
  21. Hola, tengo el siguiente procedimiento: For i = 0 To Sheets.Count - 1 If ListBox1.Selected(i) = True Then Sheets(ListBox1.List(i)).PrintOut 'buscar_seleccion = ListBox1.List(i) End If Next i lo que necesito es poner codigo para que en una sola hoja me imprima el area seleccionada, que es igual en todas las hojas; podrá ser un una ó que se incremente de acuardo la cantidad de hojas y que no manda la impresion sino que haga vista previa saludos a todos Juandi
  22. Hola: tengo un rango que va desde S39:S99, en cada celda hay una formula con condiciones, que si no se cumple queda vacia, entonces tengo algunas con resultados y otras que no. El poblema es que tengo que llevar estos resultado a a otra hoja y colocarlos en un rango que va desde B2:14 (14 celdas consecutivas), y en éstas tienen que completas o puede ser que esten las primeras cinco y las otras no me explico?? saludos hoja 1 hoja2 pepe pepe jose jose "" luis "" y las otras 11 vacias Luis "" saludos juandi
  23. Respuesta: problemas con funcion buscav TE explico, lo que necesito es que se busque el texto "Envase Bolsas" columna C y me devuelva todos los mombres que cumplan esa condición, eso por un lado; pero tambien el problema es que el resultado lo tengo que colocar en 13 celdas diferenates (hoja Porgramacion en la columna Mañana) espero ser claro y que me puedas dar alguna respuesta, desde yá gracias. saludos juandi
×
×
  • Create New...

Important Information

Privacy Policy