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

• #29038 Delila_1 veterán alfa20 #29032

  Új Válasz 2015-10-14 07:37:04 #29038

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

  Másik módszer

  Dim fent As Double, bal As Double, usor
  
  fent = Range("F" & Range("F" & Rows.Count).End(xlUp).Row).Offset(3).Top
  bal = Range("F1").Left
  ActiveSheet.Buttons.Add(bal, fent, 72, 26).Name = "Gomb"

  A gomb kívánt szélességét és magasságát add meg a 72 és a 26 helyett.

• #29037 Delila_1 veterán alfa20 #29032

  Új Válasz 2015-10-14 07:10:02 #29037

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

  Létrehozod a gombot tetszőleges helyzettel, nevet adsz neki, majd

  usor = Range("F" & Rows.Count).End(xlUp).Row + 3
  With ActiveSheet.Shapes("Gomb")
  .Top = Range("F" & usor).Top
  .Left = Range("F" & usor).Left
  End With

• #29034 alfa20 senior tag alfa20 #29032

  Új Válasz 2015-10-13 22:48:48 #29034

  Ú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

  

  alfa20

  senior tag

  válasz alfa20 #29032 üzenetére

  jobb ötletem nem volt így azt találtam ki, hogy formázom a táblát Arial 8-ra, majd:

  ActiveSheet.Buttons.Add(267, usor * 11.25 + 11, 72, 26).Select

  így pont 2 cellával van lejjebb mint az utolsó sor

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