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

• #7258 Fire/SOUL/CD félisten ALbeeeee #7255

  Új Válasz 2010-05-21 09:30:25 #7258

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

  Hali!

  1. kérdésre

  If Range("F12") = 2 Then
  TextBox1.Visible = True
  Else
  TextBox1.Visible = False
  End If

  Delila_1

  1. A kódod hol keresi meg, hogy már szerepelt-e a D oszlopban Textbox1 tartalma?
  2. Az első üres cella az kétértelmű, mert értelmezhető úgy is, hogy nem feltétlenül az utolsó cella+1 (pl D1 : D10 tartományban csak a D3 üres, ez esetben a D3-ba kell az adatot beírni, nem pedig a D11-be) De erről majd ALbeeeee nyilatkozik...

  Fire.

• #7257 Delila_1 veterán ALbeeeee #7255

  Új Válasz 2010-05-21 09:20:59 #7257

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

  A 2. kérdésre:

  Private Sub CommandButton1_Click()
  Dim usor
  usor = Range("D65536").End(xlUp).Row + 1
  If usor >= 65536 Then
  TextBox1.Value = ""
  Else
  Sheets("Munka2").Cells(usor, 4) = TextBox1.Value
  End If
  End Sub

  2007-es verziónál a 65536 helyett add meg a helyes értéket.

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