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

• #14457 lacid90 csendes tag

  Új Válasz 2012-07-25 17:47:36 #14457

  Ú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

  

  lacid90

  csendes tag

  Hát próbálkozom, próbálkozom...., de úgy látszik ez nekem nem nagyon megy, ezért kivonatosan leírom hogy volt eddig, és én hogyan próbáltam javítani.

  Dim szin, le, valasz, oszl
  Private Sub CommandButton1_Click() 'v.zöld 35
  szin = 35: le = 1
  SumColor
  End Sub
  Private Sub CommandButton2_Click() 'sárga 6
  szin = 6: le = 0
  SumColor
  End Sub

  stb...stb.., majd az oldal végén a szubrutin

  Sub szinek()
  Application.ScreenUpdating = False 'a képernyőfrissités kikapcsolása (makró gyorsítás)
  Dim CV As Range, usor As Long
  oszl = ActiveCell.Column
  ActiveCell.Interior.ColorIndex = szin
  ...
  ...
  Application.ScreenUpdating = True
  ActiveCell.Offset(le).Activate
  End Sub

  Ha minden az oldalon van akkor jól működik.
  A szinek szubrutint áthelyeztem a modul1-be, és oldalon maradt részt átírtam a javaslatod szerint.

  Public szin As Integer, le As Integer, valasz As Integer, oszl As Integer
  Private Sub CommandButton1_Click() 'v.zöld 35
  szin = 35: le = 1
  szinek
  End Sub
  Private Sub CommandButton2_Click() 'sárga 6
  szin = 6: le = 1
  szinek
  End Sub

  Sajnos így sem működik, pedig már próbáltam úgy is hogy a gomb vezérlő részt átraktam a ThisWordbook mappába mivel minden oldalon ugyanazt a dolgot kell ellátnia.
  Kérlek segíts ebben, és ha van időd egy pár szóval írd le hogy mit miért kell úgy csinálni hogy jó legyen. Ha netán tudsz egy linket ahol egyszerűen le vannak írva ezek a dolgok az is nagy segítség lenne.
  Előre is köszönöm.

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