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

• m.zmrzlina senior tag

  2011-10-16 14:40:32 #11716

  Új Válasz

  Ú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

  

  m.zmrzlina

  senior tag

  válasz Fire/SOUL/CD üzenetére #11712

  Na meglett a hiba.
  A második form Initialize() eseményében volt egy sor ami rejtett munkalapot akart aktiválni és ez akasztotta meg a programot.

  Csak azt nem értem, hogy a munkalapról viszont szépen beolvasta a form összes labelére az összes adatot.

  Private Sub UserForm_Initialize()
  'Dim vissza As String
  'vissza = ActiveSheet.Name
  Dim hova As String
  'Application.ScreenUpdating = False
  'Worksheets("eredmenyek").Visible = True
  Worksheets("eredmenyek").Activate
  
  For j = 1 To 4
  hova = Cells(1 + j, 7).Value
  For k = 1 To 10
  Controls(hova & k).Caption = Cells(1 + k, 1 + j).Value
  Next
  Next
  'Worksheets("eredmenyek").Visible = False
  'Worksheets(vissza).Activate
  'Application.ScreenUpdating = True
  End Sub

  A kikommentezett sorok kerültek be utólag és így már működik.

  Köszi mégegyszer.

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