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

• Delila_1 veterán

  #2948

  #2947 Lokids

  2017-12-11 12:36:46

  Ú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

  

  Delila_1

  veterán

  #2947 Lokids

  #2947 Lokids

  Sziasztok!

  Miért lehet az, hogy 2 látszólag egymástól független range változó Subscript out of range hibát okoz?

  Set s_PrjRng = Workbooks(Main_WB_Name).Worksheets(KAT_WB_Projects_Sheet).Range(NotNeeded_Prj_Name)

For actRow = 2 To 95 'InputTRows
s_PrjName = Workbooks(Input_F_Name).Worksheets(Input_KATWS_Name).Cells(actRow, ColumnLetterToNumber(Data_KAT_Projname))
For Each s_prng In s_PrjRng 'Workbooks(Main_WB_Name).Worksheets(KAT_WB_Projects_Sheet).Range(NotNeeded_Prj_Name)
If s_PrjName = s_prng.value Then
i = i + 1
End If
Next s_prng

s_Status = Workbooks(Input_F_Name).Worksheets(Input_KATWS_Name).Cells(actRow, ColumnLetterToNumber(Data_KAT_Stat))

If (s_Status <> "5 - Lezárt") And (s_Status <> "4 - Zárás") And (i = 1) Then
If actRow = 2 Then
Workbooks(OutputKAT_F_Name).Worksheets(1).Name = Left(s_wsName, 31) '2017.09.26
Write_Header5 OutputKAT_F_Name, s_wsName
End If
CopyRow OutputKAT_F_Name, s_wsName, s_OutRow, actRow
s_OutRow = s_OutRow + 1
End If
i = 1
Next actRow

  Ez meghívja a CopyRow-ot, amin belül pedig van egy ilyen rész:

  Set s_RowRange = Workbooks(p_WB).Worksheets(p_WS).Range(HeaderKAT_Frst_Col & p_Row & ":" & HeaderKAT_Last_Col & p_Row)

For Each s_Cell In s_RowRange
s_CNum = Workbooks(Main_WB_Name).Worksheets(KAT_WB_Head_Sheet).Cells(4, s_Cell.Column)

  Ez utóbbi jól működött egészen addig, amíg a fenti Range bele nem került. Most a Set s_RowRange sornál hibát dob.

  És nem értem miért.

  Akkor van bibi, ha a HeaderKAT_Frst_Col változó értéke szám.

  Szám esetén

  Set változó=range(cells(sor1, oszlop1), cells(sor2, oszlop2) ) formában adhatsz értéket.

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