No me anda este vba Alguien me puede ayudar
Perdón cerré la pregunta y me surgió otra duda!
Bárbaro con lo que me indicaste, ahora. Como debe ajustar el código si quiero que ademas de eso, filtre también por otro dato que figure en la celda r4, Me anda solo la primer parte de lo que me habías enviado, pero la parte que agregue yo, no me anda.
Te copio el código por las dudas y gracias, lo subrayado es tu respuesta anterior, Muchas gracias nuevamente!
Private Sub Worksheet_Change(ByVal Target As Range)
'Si la celda es r3 entonces ejecuta el codigo
If Target.Address = "$R$3" Then
'Si la celda tiene el valor TODOS entonces ejecuta limpiar
If Target.Value = " ----TODOS----" Then
Call limpiar
'si en la celda no pone TODOS entonces ejecuta saldosxvendedor
Else
Call saldosxvendedor
End If
If Target.Address = "$R$4" Then
'Si la celda tiene el valor TODAS entonces ejecuta limpiar
If Target.Value = " ----TODAS----" Then
Call limpiar
'si en la celda no pone TODAS entonces ejecuta saldosxZONA
Else
Call saldosxzona
End If
End If
End Sub
Gracias
Bárbaro con lo que me indicaste, ahora. Como debe ajustar el código si quiero que ademas de eso, filtre también por otro dato que figure en la celda r4, Me anda solo la primer parte de lo que me habías enviado, pero la parte que agregue yo, no me anda.
Te copio el código por las dudas y gracias, lo subrayado es tu respuesta anterior, Muchas gracias nuevamente!
Private Sub Worksheet_Change(ByVal Target As Range)
'Si la celda es r3 entonces ejecuta el codigo
If Target.Address = "$R$3" Then
'Si la celda tiene el valor TODOS entonces ejecuta limpiar
If Target.Value = " ----TODOS----" Then
Call limpiar
'si en la celda no pone TODOS entonces ejecuta saldosxvendedor
Else
Call saldosxvendedor
End If
If Target.Address = "$R$4" Then
'Si la celda tiene el valor TODAS entonces ejecuta limpiar
If Target.Value = " ----TODAS----" Then
Call limpiar
'si en la celda no pone TODAS entonces ejecuta saldosxZONA
Else
Call saldosxzona
End If
End If
End Sub
Gracias
1 respuesta
Respuesta de duainsulch
1
Deberías ser más especifico siempre en el "no me anda". Te refieres a que te da error o que esa parte del código no se ejecuta, si es un error, ¿qué mensaje te sale?
En el codigo que has puesto falta un END IF despues de CALL SALDOSXVENDEDOR, pues deberian aparecer dos End IF, lo demas esta bien, ¿Seguro qué el valor de la celda debe ser "----TODAS----"? Ten en cuenta que debe ser exactamente igual al valor de la celda, con los 4 guiones y TODAS en mayúsculas, ¿no es TODOS?
En el codigo que has puesto falta un END IF despues de CALL SALDOSXVENDEDOR, pues deberian aparecer dos End IF, lo demas esta bien, ¿Seguro qué el valor de la celda debe ser "----TODAS----"? Ten en cuenta que debe ser exactamente igual al valor de la celda, con los 4 guiones y TODAS en mayúsculas, ¿no es TODOS?
¿Cómo vas con el problema?
