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

• #7150 zsotesz81 senior tag

  Új Válasz 2010-05-10 13:21:25 #7150

  Ú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

  

  zsotesz81

  senior tag

  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.

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