Jump to content

juandi

Members
  • Content Count

    69
  • Joined

  • Last visited

About juandi

  • Rank
    Advanced Member
  • Birthday 01/07/1978

Converted

  • Campos
    ,
  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
×
×
  • Create New...

Important Information

Privacy Policy