Consulta de lista desplegable en Excel usando VBA

Sleepwalking dijo:

Hola, estoy haciendo una lista desplegable dependiente en excel, la primera columna es de Regiones y la segunda ciudades(dependiente)
al usar el siguiente código me anda bien para solo para la primera celda, (A2), no se como determinar que sea para toda la columna A. lo que busco es que si la región se cambia, la celda de al lado (ciudad) se muestre en blanco en blanco si ya habia sido modificada (por ejemplo en la celda A2 selecciono Arica, en la B2 selecciono Putre,pero luego en la misma celda A2 cambio a O'higgins que me deje en blanco la celda de al lado, y no me siga mostrando Putre)

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = “$A$2” Then
Range(“B2”) = “”

End If
End Sub

este código hace lo que busco pero solo me funciona en la celda A2, dado que es la que se "especifica", como puedo ampliar para que se aplique en toda la columna A?

saludos!

Haz clic para expandir...

Ariadno dijo:

Sacale el $ al 2 y prueba:
"$A2"

Haz clic para expandir...

apip dijo:

estimado prueba esto: "A2:A900"

Haz clic para expandir...

Sleepwalking dijo:

Hola, estoy haciendo una lista desplegable dependiente en excel, la primera columna es de Regiones y la segunda ciudades(dependiente)
al usar el siguiente código me anda bien para solo para la primera celda, (A2), no se como determinar que sea para toda la columna A. lo que busco es que si la región se cambia, la celda de al lado (ciudad) se muestre en blanco en blanco si ya habia sido modificada (por ejemplo en la celda A2 selecciono Arica, en la B2 selecciono Putre,pero luego en la misma celda A2 cambio a O'higgins que me deje en blanco la celda de al lado, y no me siga mostrando Putre)

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = “$A$2” Then
Range(“B2”) = “”

End If
End Sub

este código hace lo que busco pero solo me funciona en la celda A2, dado que es la que se "especifica", como puedo ampliar para que se aplique en toda la columna A?

saludos!

Haz clic para expandir...

prsepulv dijo:

Le hice tu pregunta a ChatGPT...
Esto dijo:

Puedes usar un ciclo For para iterar sobre las celdas en la columna A y comparar su valor con el valor anterior. Si el valor ha cambiado, puedes limpiar el contenido de la celda correspondiente en la columna B. Aquí te muestro el código:

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column = 1 Then ' Si la celda modificada está en la columna A
Dim i As Integer
For i = 2 To Target.Row ' Iterar desde la fila 2 hasta la fila de la celda modificada
If Cells(i, 1).Value <> Cells(i, 1).Value2 Then ' Si el valor ha cambiado
Cells(i, 2) = "" ' Limpiar la celda correspondiente en la columna B
End If
Next i
End If

End Sub

De esta manera, cada vez que se modifique una celda en la columna A, se ejecutará el ciclo y se comparará el valor actual con el valor anterior, y si ha cambiado, se limpiará el contenido de la celda correspondiente en la columna B.

Podrías probar...






Sent from my 2201116SG using Tapatalk

Haz clic para expandir...

apip dijo:

tienes que ocupar el ActiveCell.Address , te dejo el codigo. a mi me funciono.


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim letra As String
Dim nombrecelda As String

letra = "A"
nombrecelda = Trim(Mid(ActiveCell.Address, 2, 1))

If nombrecelda = letra Then


If Target.Address = ActiveCell.Address Then
Range("B2") = ""


End If
End If


End Sub

Haz clic para expandir...

apip dijo:

el código lo que hace borra la celda b2 siempre y cuando haya un cambio en la columna A, podrías ser más especifico que parte no funciono?

Haz clic para expandir...