Error al momento de seleccionar una línea en un listbox al querer eliminarla.

TodoExpertos, muy buenos días. Tengo un listbox que carga la información de una tabla. El inconveniente surge al momento de seleccionar la línea e intentar eliminarla. Surge el error 1004 en tiempo de ejecución. No se puede obtener la propiedad CurrentRegion de la clase Range.

Respuesta
1

Pon la macro aquí

Adriel, el botón para eliminar tiene la siguiente macro

'Eliminar el registro
Private Sub CommandButton4_Click()
Pregunta = MsgBox("Está seguro de eliminar el registro?", vbYesNo + vbQuestion, "")
If Pregunta <> vbNo Then
    ActiveCell.EntireRow.Delete
End If
Call CommandButton5_Click
End Sub
Private Sub CommandButton5_Click()
 'Act.Por.Dante Amor
    Set h1 = Sheets("Hoja1")
    Set h2 = Sheets("Temporal")
    '
    If Me.txtFiltro1.Value = "" Then Exit Sub
    If cmbEncabezado = "" Then Exit Sub
    '
    h2.Cells.Clear
    ListBox1.RowSource = ""
    h1.Rows(1).Copy h2.Rows(1)
    '
    j = cmbEncabezado.ListIndex + 1
    n = 2
    '
    For i = 2 To Range("a1").CurrentRegion.Rows.Count
        If LCase(Cells(i, j)) Like "*" & LCase(txtFiltro1) & "*" Then
            h1.Rows(i).Copy h2.Rows(n)
            n = n + 1
        End If
    Next i
    u = Range("A" & Rows.Count).End(xlUp).Row
    If u = 1 Then
        MsgBox "No existen registros con ese filtro", vbExclamation, "FILTRO"
        Exit Sub
    End If
    ListBox1.RowSource = h2.Name & "!A2:Z" & u
End Sub

Y la siguiente instruccion es donde se detiene al borrar en "Set Rango = Range("A1").CurrentRegion " y es indicado en amarillo

'
'Activar la celda del registro elegido
Private Sub ListBox1_Click()
Range("a2").Activate
Cuenta = Me.ListBox1.ListCount
Set Rango = Range("A1").CurrentRegion 'marca de error al intentar borrar
For i = 0 To Cuenta - 1
    If Me.ListBox1.Selected(i) Then
        Valor = Me.ListBox1.List(i)
        Rango.Find(What:=Valor, LookAt:=xlWhole, After:=ActiveCell).Activate
    End If
Next i
frmMasinformacion.Show 'activa con un click el formulario con mas información
    frmMasinformacion.TextBox1 = ListBox1.Column(0)
    frmMasinformacion.TextBox1 = ListBox1.Column(0)
    frmMasinformacion.TextBox2 = ListBox1.Column(1)
    frmMasinformacion.TextBox3 = ListBox1.Column(2)
    frmMasinformacion.TextBox4 = ListBox1.Column(3)
    frmMasinformacion.TextBox5 = ListBox1.Column(4)
    frmMasinformacion.TextBox6 = ListBox1.Column(5)
    frmMasinformacion.TextBox7 = ListBox1.Column(6)
    frmMasinformacion.TextBox8 = ListBox1.Column(7)
    frmMasinformacion.TextBox9 = ListBox1.Column(8)
    frmMasinformacion.TextBox10 = ListBox1.Column(9)
    frmMasinformacion.TextBox11 = ListBox1.Column(10)
    frmMasinformacion.TextBox12 = ListBox1.Column(11)
    frmMasinformacion.TextBox13 = ListBox1.Column(14)
    frmMasinformacion.TextBox14 = ListBox1.Column(13)
    frmMasinformacion.TextBox15 = ListBox1.Column(12)
'copia valor de la primer columna
Dim strList As String
'Dim i As Integer
For i = 0 To Me.ListBox1.ListCount - 1
   If Me.ListBox1.Selected(i) = True Then
      If Len(Trim(Me.ListBox1.List(i))) > 0 Then ' blank values excluded here
         strList = strList & Trim(Me.ListBox1.List(i)) & " " & vbNewLine '
      End If
   End If
Next i
Dim MyData As DataObject
Set MyData = New DataObject
MyData.Clear
MyData.SetText Trim(strList)
MyData.PutInClipboard
End Sub

Gracias por tu tiempo.

Revisa este apartado que puede ayudarte

https://ayudaexcel.com/foro/topic/32891-error-en-el-metodo-delete-de-la-clase-range/

1 respuesta más de otro experto

Respuesta
1

Reemplaza tu código por lo siguiente:

Esta línea debe ir al inicio de todo el código:

Dim borrando As Boolean


Dim borrando As Boolean
'Eliminar el registro
Private Sub CommandButton4_Click()
  Dim Pregunta As Variant
  Pregunta = MsgBox("Está seguro de eliminar el registro?", vbYesNo + vbQuestion, "")
  If Pregunta <> vbNo Then
    borrando = True
    ActiveCell.EntireRow.Delete
    Call CommandButton5_Click
    borrando = False
  End If
End Sub
Private Sub CommandButton5_Click()
 'Act.Por.Dante Amor
  Dim h1 As Worksheet, h2 As Worksheet
  Dim j As Long, n As Long, i As Long, u As Long
  Set h1 = Sheets("Hoja1")
  Set h2 = Sheets("Temporal")
  '
  If Me.txtFiltro1.Value = "" Then Exit Sub
  If cmbEncabezado = "" Then Exit Sub
  '
  h2.Cells.Clear
  ListBox1.RowSource = ""
  h1.Rows(1).Copy h2.Rows(1)
  '
  j = cmbEncabezado.ListIndex + 1
  n = 2
  '
  For i = 2 To Range("a1").CurrentRegion.Rows.Count
    If LCase(Cells(i, j)) Like "*" & LCase(txtFiltro1) & "*" Then
        h1.Rows(i).Copy h2.Rows(n)
        n = n + 1
    End If
  Next i
  u = h2.Range("A" & Rows.Count).End(xlUp).Row
  If u = 1 Then
    MsgBox "No existen registros con ese filtro", vbExclamation, "FILTRO"
    Exit Sub
  End If
  ListBox1.RowSource = h2.Name & "!A2:Z" & u
End Sub
'
'Activar la celda del registro elegido
Private Sub ListBox1_Click()
  Dim Rango As Range
  Dim cuenta As Long, i As Long, valor As Variant
  If borrando = True Then Exit Sub
  Range("a2").Activate
  cuenta = Me.ListBox1.ListCount
  Set Rango = Range("A1").CurrentRegion 'marca de error al intentar borrar
  For i = 0 To cuenta - 1
      If Me.ListBox1.Selected(i) Then
          valor = Me.ListBox1.List(i)
          Rango.Find(What:=valor, LookAt:=xlWhole, After:=ActiveCell).Activate
      End If
  Next i
  frmMasinformacion.Show 'activa con un click el formulario con mas información
  frmMasinformacion.TextBox1 = ListBox1.Column(0)
  frmMasinformacion.TextBox1 = ListBox1.Column(0)
  frmMasinformacion.TextBox2 = ListBox1.Column(1)
  frmMasinformacion.TextBox3 = ListBox1.Column(2)
  frmMasinformacion.TextBox4 = ListBox1.Column(3)
  frmMasinformacion.TextBox5 = ListBox1.Column(4)
  frmMasinformacion.TextBox6 = ListBox1.Column(5)
  frmMasinformacion.TextBox7 = ListBox1.Column(6)
  frmMasinformacion.TextBox8 = ListBox1.Column(7)
  frmMasinformacion.TextBox9 = ListBox1.Column(8)
  frmMasinformacion.TextBox10 = ListBox1.Column(9)
  frmMasinformacion.TextBox11 = ListBox1.Column(10)
  frmMasinformacion.TextBox12 = ListBox1.Column(11)
  frmMasinformacion.TextBox13 = ListBox1.Column(14)
  frmMasinformacion.TextBox14 = ListBox1.Column(13)
  frmMasinformacion.TextBox15 = ListBox1.Column(12)
  'copia valor de la primer columna
  Dim strList As String
  'Dim i As Integer
  For i = 0 To Me.ListBox1.ListCount - 1
     If Me.ListBox1.Selected(i) = True Then
        If Len(Trim(Me.ListBox1.List(i))) > 0 Then ' blank values excluded here
           strList = strList & Trim(Me.ListBox1.List(i)) & " " & vbNewLine '
        End If
     End If
  Next i
  Dim MyData As DataObject
  Set MyData = New DataObject
  MyData. Clear
  MyData. SetText Trim(strList)
  MyData. PutInClipboard
End Sub

Eso resuelve el problema cuando intentas borrar. Pero ya no revisé el resto de tu código. Si tienes algún otro problema, crea una nueva pregunta.

¡Gracias! 

Me alegra ayudar. No o l v i d e s valorar la respuesta. ¡Gracias! Por comentar.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Encontrar datos no coincidentes excel

Sucede que tengo que comparar dos bases de datos y encontrar los elementos no coincidentes para analizar. Se puede hacer por fórmula pero necesito algo más optimizado. El otro problema es que los datos son más de 1.48.576 capacidad de líneas de...
1 respuesta

¿Cómo resolver num a letras en excel?

En un libro excel habilitado para macros al convertir números a letras, en lugar de aparecer el resultado esperado aparece el mensaje # ¿NOMBRE?.
2 respuestas

´No sé que fórmulas usar para resolverme el problema

La imagen no me la sube y tampoco veo como se sube un fichero, os intentaré explicar lo mejor que pueda mi problema. En una hoja Excel tengo hallados los pagos por formas de pago: SUMAR.SI(D1:D16;"Efectivo";B1:B16), y...
3 respuestas

¿Cómo ajustar texto automáticamente en celdas combinadas en Excel 2019?

Solicito amablemente su valiosa ayuda para ajustar automáticamente un rango de celdas de una columna, he intentado con la opción de ajuste autamático de filas, también con al opción de ajustar texto de la pestaña inicio e incluso con la siguiente...
1 respuesta

¿Cómo usar un excel con macros desde varios ordenadores?

A tod@s! Tengo una aplicación en excel para introducir datos y visualizarlos con diferentes formularios creados. Lo que quiero hacer es: 1 Que ese libro este alojado en un sitio común y que lo puedan abrir desde varios ordenadores. 2º Que se pueda...
3 respuestas

Error en macro al ejecutar el botón aceptar

Necesitaría la colaboración para resolver el error que sucede al ejecutar el botón aceptar Set mifila = Hoja2.ListObjects(1).ListRows.Add Lo que yo agregue solamente a la base fue una columna al inicio ("A") anteriormente se llamaba Tabla6 y yo ahora...
1 respuesta

Detectar cambios en tabla dinámica

Tengo una hoja donde se van actualizando datos mediante una tabla dinámica. ¿Cómo detecto cuando se producen cambios (sólo en la parte de la tabla dinámica) para ejecutar otra macro en la misma hoja?
1 respuesta

Macro con combinación de teclas

Acudo aquí buscando ayuda, ¿Cómo crear una macro que genere una combinación de teclas? NO se trata de asignar una macro a una combinación de teclas, es todo lo contrario. El problema radica en que tengo una macro que rellena ciertas celdas con...
1 respuesta

Pasar datos de listbox a hoja con decimales

Como están estimados maestros y maestras, una vez mas solicitando vuestra experta ayuda. Tengo un formulario que busca datos entre 2 fechas desde 2 textbox, carga en listbox lo filtrado, en la columna 2 del listbox carga valores con formato de 2...
1 respuesta

Una macro que de aviso sobre vencimiento de una cedula de identidad

Tengo una hoja de calculo de 6 columnas en donde la columna A es fecha de vencimiento, las columnas B, C, y D son apellidos paterno, Materno u nombres, la columna E es el numero de cedula de identidad Con Formato ##.###.###-# la columna F es lo...
1 respuesta