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

  • 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. :R

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