Saltar al contenido

jose lopez contreras

Miembros
  • Contador de contenido

    89
  • Unido

  • Última visita

Sobre jose lopez contreras

  • Rango
    Miembro

Configuraciones

  • Campo que utilizas como separador de argumentos Array

Visitantes recientes del perfil

El bloque de últimos visitantes está desactivado y no se puede mostrar a otros usuarios.

  1. @Alfonso5597 ya encontré mi error faltaba declarar la hoja h1, ahora si funciona bien, pero tengo que eliminar en dos hoja como puedo adaptar esta parte para poder hacerlo si h1 es Resguardo y h2 es Salidas Private Sub CommandButton3_Click() Dim Rango As Range With ListBox1 For x = 0 To .ListCount - 1 If .Selected(x) Then If Rango Is Nothing Then Set Rango = H1.Rows(x + 2) Else Set Rango = Union(Rango, H1.Rows(x + 2)) End If End If Next End With If Not Rango Is Nothing Then Rango.Delete Cargar End If End Sub
  2. Hola amigo mira al adaptar tus instrucciones me arroja un error que dice " Se requiere un objeto " las instrucciones en mi proyecto quedo asi tomando tu ejemplo, cabe mencionar que el ListBox1 esta configurado igual al tuyo. OJO en esta parte " ListBox1.RowSource = "'" & .Name & "'!A2:I" & .Range("A" & Rows.Count).End(xlUp).Row ' OJO aqui es donde se detiene la macro " Private Sub UserForm_Initialize() Application.DisplayAlerts = False Application.ScreenUpdating = False Set h1 = Sheets("Resguardo") 'Worksheets("Resguardo").Select With ListBox1 .ColumnHeads = True .ColumnCount = 9 ' .ColumnWidths = "70;55;55;160;60;60;60;60;48;55;70;75;130;180;200;90;45;130;100;70;70;110;130;110;70;80;140" End With Cargar Application.DisplayAlerts = True Application.ScreenUpdating = True 'Al iniciar el formulario asignamos un mensaje tooltip al botón, 'así como un ícono personalizado para ser mostrado en over Me.CommandButton5.ControlTipText = "Mostrar la ayuda de este formulario." Me.CommandButton5.MousePointer = fmMousePointerHelp CommandButton3.Visible = False CommandButton6.Visible = False End Sub Private Sub Cargar() With h1 ListBox1.RowSource = "'" & .Name & "'!A2:I" & .Range("A" & Rows.Count).End(xlUp).Row ' OJO aqui es donde se detiene la macro End With End Sub
  3. Tienes toda la razón amigo, probé quitando la creación de la hoja temporal y ahora si elimina la fila correspondiente de la hoja pero ahora del ListBox no se elimina la fila seleccionada, ya que la hoja temporal era para ello, como podre hacer ahora que se borre del ListBox.
  4. Hola alguien sabrá con activar un botón oculto en un Userform donde tengo un ListBox en modo multiselect, anteriormente el ListBox lo tenia en modo single y con la siguiente instrucción funcionaba bien. Private Sub ListBox1_Click() CommandButton6.Visible = True End Sub
  5. @JSDJSD verdad que esta algo raro, mira coloque esto " On Error Resume Next " al inicio de la macro eliminarProducto para evitar el error, corre bien la macro pero no elimina las hojas indicadas.
  6. Gracias amigo por tu pronta respuesta, pero te comento que la hoja se genera automáticamente. Te dejo el archivo para que lo análisis y me des tus recomendaciones. https://mega.nz/#!rN5DXYrK!JQvY_1J2Xz_dVMUZKMrnYDJm5csFjObWzHvV2X61sOE
  7. Hoja amigos, les traigo a ustedes este error que me marca una macro, cabe decir que algunas macros las encontré en este foro y las adapte a mis necesidades. Les platico. la siguiente macro la tengo en un botón, el cual al dar clic llama a un userform Private Sub CommandButton6_Click() EliminarFilas2.Show End Sub en ese userform hay que poner una contraseña para poder eliminar Private Sub CommandButton1_Click() Dim resp As Integer resp = 3313 If TextBox1 = 3313 Then Unload Me 'Tu procedimiento aquí Call Busqueda_Resguardo.eliminarProducto Else MsgBox ("La clave ingresada es incorrecta"), vbInformation, "AVISO" TextBox1 = Clear TextBox1.SetFocus End If End Sub al dar clic debería ,eliminar del listbox y hojas pero me arroja un error. Sub eliminarProducto() 'Borrar del ListBox y de las hojas Dim sino As String sino = MsgBox("Estás seguro de Eliminar el Articulo seleccionado?", vbYesNo + vbQuestion, "CONFIRMA") If sino <> vbYes Then Exit Sub Dim fila As Integer Dim Final As Integer Dim Cantidad As Integer ''''AQUI REGISTRO EL CORRELATIVO FINAL PROCESADO Dim NombreHoja As String NombreHoja = "Inventario" 'Buscamos la última fila 'EN EL SIGUIENTE ME ESTOY REFIRIENDO A LA HOJA SEGUN EL SECTOR fila = 2 Do While ThisWorkbook.Sheets(NombreHoja).Cells(fila, 1) <> "" fila = fila + 1 Loop Final = fila 'CON ESTE CODIGO ESTARE RESTANDO "1" AL FOLIO EN CASO SE REGRESE A LA VENTANA ANTERIOR For fila = 2 To Final If ThisWorkbook.Sheets(NombreHoja).Cells(fila, 1) = ListBox1.Column(0) Then 'CORRESPONDE A LA COLUMNA "A" ThisWorkbook.Sheets(NombreHoja).Cells(fila, 8) = ThisWorkbook.Sheets(NombreHoja).Cells(fila, 7) - Val(ListBox1.Column(5)) Exit For End If Next '///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// Dim row_LB& With ListBox1 row_LB = .ListIndex If row_LB = -1 Then Exit Sub .RemoveItem row_LB .ListIndex = -1 End With With Sheets("Salidas") .Range("a2:n2").Offset(row_LB).Delete xlShiftUp End With With Sheets("Temporal") .Range("a2:n2").Offset(row_LB).Delete xlShiftUp End With With Sheets("Resguardo") .Range("a2:i2").Offset(row_LB).Delete xlShiftUp End With With Sheets("Stock") .Range("a2:n2").Offset(row_LB).Delete xlShiftUp End With MsgBox "Selección eliminada" End Sub de esta ultima macro me corre solo hasta aquí: sino = MsgBox("Estás seguro de Eliminar el Articulo seleccionado?", vbYesNo + vbQuestion, "CONFIRMA") If sino <> vbYes Then Exit Sub y es justo ahí es donde salta error pero en la segunda macro que coloque en esta parte Call Busqueda_Resguardo.eliminarProducto Se que es mucho rollo pero espero y me ayuden
  8. @Haplox ya logre solucionar el segundo error, anexo el archivo por si a alguien le sirve, agradezco de tu apoyo y de Cacho R para la solución de los dos errores. Gracias a todos. Imágenes.rar
  9. @Haplox Buenos días y gracias por tu apoyo, pero mira el segundo punto quedo solucionado con el cambio indicado " LoockAt=XlParrt ", pero el primer punto continua saliendo el error, como se podrá mejor que en lugar de que me mande el mensaje"No se muestra la imagen", aparezca una imagen que tengo donde dice "sin imagen" la cual se llama FEC-000000.JPG
  10. Hola amigos la siguiente macro la tengo en ComboBox como filtro, pero tengo dos detalles con ella espero contar con su apoyo. Cuando un articulo no cuenta con una imagen dentro de la carpeta imagenes me arroja un error y Cuando filtro un articulo por una sola palabra no lo realiza, es decir si busco la palabra cuadrada y esta está en medio o al final no la filtra, solo lo hace si esta al principio. Espero haberme explicado Dim C As Range, mPath$ Image1.Picture = LoadPicture("") Set C = Hoja8.Range("a1").CurrentRegion.Columns(2).Find(ComboBox1, , LookIn:=xlValues, LookAt:=xlWhole) If C Is Nothing Then Exit Sub Worksheets("inventario").Visible = True Worksheets("inventario").Select C.Select mPath = ThisWorkbook.path & "\imagenes\" mPath = mPath & Dir(mPath & Format(C.Offset(, -1), "FEC-" & "0000") & ".*") Image1.Picture = LoadPicture(mPath)
  11. Hola amigos tengo una macro que inserta una imagen en un control image y en una carpeta de imagenes, funciona bien hace su función casi perfecta, pero tengo un pequeño detalle cuando doy click en el botón donde esta la macro y aparece el explorador de windows y no selecciono ninguna imagen, pero cierro el explorador me arroja un error diciendo "archivo no encontrado".Alguien podrá ayudarme en revisar mi macro y decirme que me falta para que esto no suceda. Gracias por su atención. Private Sub CommandButton4_Click() ArchivoSeleccion = Application.GetOpenFilename ' Elegimos la imagen y la ruta Altas.Image1.Picture = LoadPicture(ArchivoSeleccion) ' cargamos la imagen en el formulario NuevoArchivo = ThisWorkbook.path & "\imagenes\" & TextBox1 & ".jpg" 'Ruta a guardar de la imagen FileCopy ArchivoSeleccion, NuevoArchivo 'Guardar imagen en carpeta Kill ArchivoSeleccion 'Cortar imagen seleccionada CommandButton1.Visible = True End Sub
  12. Hola amigos por aca de nuevo pidiendo de su apoyo, ten mun userform donde tengo un ComboBox como buscador este funciona bien pero ahora quisiera que al seleccionar o buscar un articulo de la lista del ComboBox1 aparesca la imagen en un control Image1 la cual esta en una carpeta llamada imagenes donde esta el archivo, la imagenes tienen el nombre que aparece en textbox1 Private Sub ComboBox1_Change() If ComboBox1 <> "" Then TextBox1 = Empty TextBox2 = Empty TextBox3 = Empty TextBox4 = Empty ComboBox2 = Empty End If Dim c As Range With Worksheets("Inventario").Range("B2:B1000000") Set c = .Find(ComboBox1, , LookIn:=xlValues, LookAt:=xlWhole) If Not c Is Nothing Then Worksheets("inventario").Visible = True Worksheets("inventario").Select c.Select Me.ComboBox1.DropDown End If End With TextBox1 = ActiveCell.Offset(0, -1).Value TextBox2 = ActiveCell.Offset(0, 0).Value TextBox3 = ActiveCell.Offset(0, 1).Value TextBox4 = ActiveCell.Offset(0, 2).Value TextBox8 = ActiveCell.Offset(0, 11).Value TextBox9 = ActiveCell.Offset(0, 7).Value TextBox13 = VBA.Format(TextBox13, "currency") TextBox8 = VBA.Format(TextBox8, "currency") Exit Sub End Sub
  13. Hola amigos ya logre poner la imagen seleccionada de un archivo cualquiera en el control Image pero aun no logra que esa imagen colocada en el control Image1 se guarde en la carpeta imagen donde esta el libro. alguien podrá echarme una mano. gracias. dejo lo avanzado. 'Private Sub CommandButton4_Click() ' ArchivoSeleccion = Application.GetOpenFilename ' Elegimos la imagen y la ruta ' Altas.Image1.Picture = LoadPicture(ArchivoSeleccion) ' cargamos la imagen en el formulario ' NuevoArchivo = ThisWorkbook.path & "\imagenes\" & TextBox1 & ".jpg" 'Guardar imagen en carpeta FileCopy ArchivoSeleccion Kill ArchivoSeleccion 'End Sub
×
×
  • Crear nuevo...

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.