VBA HYPERLINK

[aty]

Salutare
As vrea sa fac urmatorul lucru: am in celula a1 un data validation Ion,pop si cand selectez ion as vrea sa ma trimita in acelas sheet in celula b3 iar cand selectez pop din data validation sa ma trimita in celula b4 in acelasi sheet. As vrea sa fac la fel pentru 60 de sheeturi. Sar putea face acest lucru si fara VBA?
MULTUMESC!

[Catalin B.]

Poti sa faci asta doar in VB, nu cred sa fie vreo posibilitate VB free...
O varianta ar fi sa creezi 2 siruri , in unul verifici ce s-a selectat din dropdown, din celalalt obtii range-ul corespunzator.
Cred ca e mai simplu asa decat sa scrii un select case cu 60 variante. (ai de scris 2 siruri de 60 elemente )

Cod: Selectaţi tot

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B8")) Is Nothing Then
  Dim Arr1 As Variant, Arr2 As Variant
  Dim i As Integer
      Arr1 = Array("ion", "pop", "vasile")
      Arr2 = Array("B3", "B4", "B5")

   For i = 0 To UBound(Arr1)
      If Target = Arr1(i) Then Range(Arr2(i)).Select
   Next
End If
End Sub