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

• #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