UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo

Sólo por unos días suban sus archivos a Dropbox y dejan link en sus consultas. Gracias.

No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

Manuel TR


Hola, por favor que alguien me pueda ayudar con lo siguiente:
Tengo una macro que realiza lo que deseo todo bien hasta ahí , pero al borrar los datos de la columna B, para volverla a ejecutar al instante me sale un error de " tiempo en ejecución: no coinciden los tipos"
el error marca de amarillo esta linea : If (celda) = Target Then
y luego tengo que depurar y restablecer la macro para volverla a ejecutar con normalidad.
entiendo que se debería especificar una condicional mas para parar la macro en caso se borre datos de la columna B,
o no debería ejecutarse si la columna B esta vacía, algo así entiendo.
dejo la macro con la cual estoy trabajando
muchas gracias.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim celda As Range
If Union(Target, Range("B8:b10000")).Address = Range("B8:b10000").Address Then
    With Hoja2
        For Each celda In .Range("A4:o" & .Range("P" & Rows.Count).End(xlUp).Row)
            If (celda) = Target Then
                Hoja5.Range("A" & Target.Row) = .Range("p" & celda.Row)
            End If
        Next celda
    End With
End If
End Sub

Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.