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

• #7264 ALbeeeee csendes tag Delila_1 #7257

  Új Válasz 2010-05-21 10:19:42 #7264

  Ú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

  

  ALbeeeee

  csendes tag

  válasz Delila_1 #7257 üzenetére

  Szia Delila_1,

  Nálam ez valahogy, így néz ki és nem mukodik: (Excel 2007, magyar)

  Private Sub Lekerekítetttéglalap9_Kattintás()
  Dim usor
  usor = Range("D1048576").End(xlUp).Row + 1
  If usor >= 1048576 Then
  TextBox1.Value = ""
  Else
  Sheets("Munka2").Cells(usor, 4) = TextBox1.Value
  End If
  End Sub

  ____________________________
  Kérdés: Probléma ez az angol magyar keverés?

  Egyébként jó így, hogy az utolsó helyre pakol elvileg nem lesz közben üres cella.

  Köszönöm a segítséget...

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