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

• #8320 Delila_1 veterán Oly #8318

  Új Válasz 2010-09-30 15:03:40 #8320

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

  A második kérdésedre:

  Private Sub CommandButton1_Click()
  Application.Goto Reference:="bevitel"
  Selection = TextBox1
  End Sub

  A TextBox1 értéke itt a "bevitel" névvel ellátott cellába kerül. Mint látod, a .Value elhagyható, az előbbi makróba sem szükséges.

• #8319 Delila_1 veterán Oly #8318

  Új Válasz 2010-09-30 14:54:42 #8319

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

  Private Sub CommandButton1_Click()
  Sheets("Munka2").Cells(3, 1) = TextBox1.Value
  End Sub

  A Munka2 lap A3 cellájába beviszi a TextBox1 értékét.

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