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

• Fire/SOUL/CD félisten

  #7278

  #7277 Delila_1

  2010-05-21 11:45:38

  Ú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

  

  Fire/SOUL/CD

  félisten

  #7277 Delila_1

  Hali!

  Pedig már kérdeztem is korábban, de sebaj, ez egy ilyen nap...
  Na "leegyszerűsítettem" a kódot valamelyest...Remélem ALbeeeee-nek is sikerül létrehozni a Form-ot...

  Private Sub CommandButton1_Click()
  
  myCol = "D"
  Sheets("Munka2").Activate
  Cells(Sheets("Munka2").Rows.Count, myCol).End(xlUp).Offset(1, 0).Select
  If TextBox1.Text <> "" Then
  j = WorksheetFunction.CountIf(Range(myCol & "1:" & myCol & ActiveCell.Row), TextBox1.Text)
  If j = 0 Then
  ActiveCell = TextBox1.Text
  Else
  MsgBox ("A TextBox1 tartalma már szerepel a " & myCol & " oszlopban")
  End If
  Else
  MsgBox ("A TextBox1 üres!")
  End If
  With TextBox1
  .Text = ""
  .SetFocus
  End With
  'Sheets("Munka1").Activate
  
  End Sub
  
  Private Sub UserForm_Activate()
  If Sheets("Munka1").Range("F11") = 2 Then
  TextBox1.Visible = True
  Else
  TextBox1.Visible = False
  End If
  End Sub

  Fire.

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