Új hozzászólás Aktív témák

• ALbeeeee csendes tag

  #7287

  #7286 Delila_1

  2010-05-21 15:46:47

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  ALbeeeee

  csendes tag

  #7286 Delila_1

  Szia,

  pont most sikerült így megoldanom:

  Private Sub Worksheet_Change(ByVal Target As Range)
  If Sheets("Munka1").Range("F11") = 1 Then
  Munka1.TextBox1.Visible = True
  Else
  Munka1.TextBox1.Visible = False
  End If

  If Sheets("Munka1").Range("F11") = 1 Then
  Munka1.DrawingObjects("Lekerekített téglalap 10").Visible = False
  Else
  Munka1.DrawingObjects("Lekerekített téglalap 10").Visible = True
  End If

  End Sub

  Amit írtál azt is próbáltam, de valamiért nem csinálta meg...de még próbálkozom azzal a verzióval is!

  Lenyíló: Fejlesztőeszközök > Beszúrás > Beviteli lista (űrlap vezérlőelem)

  Ismerem az adatérvényesítést is, csak ott az nem tetszik a listánál, hogy egyszer rá kell kattintani és csak utána látható a lista(fül).

Új hozzászólás Aktív témák