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

• #6817 zsotesz81 senior tag

  Új Válasz 2010-04-07 13:36:17 #6817

  Ú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!

  Visszatérnék kicsit a #6768-as hsz-re. Szóval a kód amit Delila írt végülis jól működik, viszont amikor az a makró fut ami kiszámolja a nyereményeket akkor megáll Run Time error '13', Type mismatch hibával. Erről a kódról van szó:
  If Target.Address = "$D$5" And Target.Value > Cells(5, 3) Then
  MsgBox ("Ennyi pénzed már nincs, tegyél kisebb tétet vagy mondj all in-t!")
  Cells(5, 4).Select
  End If
  If Target.Address = "$D$6" And Target.Value > Cells(6, 3) Then
  MsgBox ("Ennyi pénzed már nincs, tegyél kisebb tétet vagy mondj all in-t!")
  Cells(6, 4).Select
  End If
  és így tovább egészen 14-ig.

  A makró azt csinálná, hogy az C5-be másolja a N5 tartalmát, a C614-be pedig az M6:M14 tartalmát. A C5-N5 másolást megcsinálja, viszont a többit nem, itt akad meg.
  Gőzöm nincs mi akasztja meg, ha rányomok a debugra akkor az if-es sort jelöli ki.
  Valami ötlet?

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