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

• #7283 Delila_1 veterán ALbeeeee #7282

  Új Válasz 2010-05-21 13:49:29 #7283

  Ú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 #7282 üzenetére

  Igen.

  Kimerítő válasz

  Egy picit szépítettem a hosszabb makrón (Fire, utólagos engedelmeddel)

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

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