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

• #7281 Delila_1 veterán ALbeeeee #7279

  Új Válasz 2010-05-21 13:29:53 #7281

  Ú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

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz ALbeeeee #7279 üzenetére

  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