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

• Delila_1 veterán

  #7281

  #7279 ALbeeeee

  2010-05-21 13:29:53

  Ú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

  

  Delila_1

  veterán

  #7279 ALbeeeee

  A Munka1 laphoz két makrót kell illesztened – a VBE-ben bal oldalon a Munka1-en dupla klikk-re kapott üres lapra:

  Private Sub Worksheet_Activate()
  If Cells(11, 6) = 2 Then
  TextBox1.Visible = True
  Else
  TextBox1.Visible = False
  End If
  End Sub
  
  
  Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = "$F$11" Then
  If Target.Value = 2 Then
  TextBox1.Visible = True
  Else
  TextBox1.Visible = False
  End If
  End If
  End Sub

  A Module1 laphoz:

  Sub Lekerekítetttéglalap_9_Kattintáskor()
  myCol = "D"
  Sheets("Munka2").Activate
  Cells(Sheets("Munka2").Rows.Count, myCol).End(xlUp).Offset(1, 0).Select
  If Munka1.TextBox1.Text <> "" Then
  j = WorksheetFunction.CountIf(Range(myCol & "1:" & myCol & ActiveCell.Row), Munka1.TextBox1.Text)
  If j = 0 Then
  ActiveCell = Munka1.TextBox1.Text
  Else
  MsgBox ("A TextBox1 tartalma már szerepel a " & myCol & " oszlopban")
  End If
  Else
  MsgBox ("A TextBox1 üres!")
  End If
  
  Munka1.TextBox1.Text = ""
  Sheets("Munka1").Select
  End Sub

  Ezt a makrót kell hozzárendelned az alakzatodhoz.

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