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

• #8433 m.zmrzlina senior tag

  Új Válasz 2010-10-15 14:10:41 #8433

  Ú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

  

  m.zmrzlina

  senior tag

  Do
  ActiveCell.Offset(1, 0).Select
  If ActiveCell.Value = "" Then
  
  Select Case Params
  Case Is = 1
  Cells(1 + Params, columnid_1).Select
  cikl = columnid_1
  Case Is = 2
  Cells(1 + Params, columnid_2).Select
  cikl = columnid_2
  Case Is = 3
  Cells(1 + Params, columnid_3).Select
  cikl = columnid_3
  Case Is = 4
  Cells(1 + Params, columnid_4).Select
  cikl = columnid_4
  Case Is = 5
  Cells(1 + Params, columnid_5).Select
  cikl = columnid_5
  Case Else
  Range("I1").Select
  End Select
  
  For k = cikl To 1440
  With Selection.Interior
  .Pattern = xlSolid
  .ColorIndex = 4
  .TintAndShade = 0
  .PatternTintAndShade = 0
  End With
  ActiveCell.Offset(0, 1).Select
  Next k
  Else Goto start
  Loop Until Mid(ActiveCell.Text, 13, 1) = Params

  A fenti programrészlet Futtatáskor a következő hibaüzenetet adja
  LOOP without DO

  Mi lehet az oka?
  Próbáltam már kikommentezni a Case szerkezetet és a ciklust is de nem jöttem rá mi kavar be.

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