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

• #7270 Fire/SOUL/CD félisten ALbeeeee #7267

  Új Válasz 2010-05-21 10:54:23 #7270

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz ALbeeeee #7267 üzenetére

  Hali!

  Csináld meg a Formot, amit Delila_1 itt feljebb bemutatott, aztán illeszd be ezt a kódot.

  Private Sub CommandButton1_Click()
  
  myCol = "D"
  myColasInt = Asc(myCol) - Asc("@")
  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
  
  'Ezt akkor, ha az adott oszlop végére kell beírni a Textbox1 tartalmát
  'ActiveCell = TextBox1.Text
  
  'Ezt meg akkor, ha nem a végére
  j = ActiveCell.Row
  Range(myCol & "1").Select
  For i = 1 To j
  If Cells(i, myColasInt) = "" Then
  Cells(i, myColasInt) = TextBox1.Text
  Exit For
  End If
  Next i
  Else
  MsgBox ("A Texbox1 tartalma már szerepel a " & myCol & " oszlopban")
  End If
  Else
  MsgBox ("A Texbox1 üres!")
  End If
  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.

  UI: Igen, valóban F11, nem F12...

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