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

• zsotesz81 senior tag

  #7157

  #7150 zsotesz81

  2010-05-10 15:00:56

  Ú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

  

  zsotesz81

  senior tag

  #7150 zsotesz81

  #7150 zsotesz81

  Hali!

  Egy kis help kellene, hogy kell azt megcsinálni, hogy az alábbi makrót ismételje addig amíg a "nem" lesz a válasz?
  k = MsgBox("Van másik győztese a körnek?", vbYesNo)
  If k <> 7 Then

  With frmallinvictory
  .Label1.Caption = Range("A5")
  .Label2.Caption = Range("A6")
  .Label3.Caption = Range("A7")
  .Label4.Caption = Range("A8")
  .Label5.Caption = Range("A9")
  .Label6.Caption = Range("A10")
  .Label7.Caption = Range("A11")
  .Label8.Caption = Range("A12")
  .Label9.Caption = Range("A13")
  .Label10.Caption = Range("A14")
  End With

  frmallinvictory.Show vbModal

  A do-loop-pal próbáltam, de nem sikerült összehozni.

  "A do-loop-pal próbáltam, de nem sikerült összehozni." - mégiscsak sikerült.

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