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

• #1774 martonx veterán shiz #1773

  Új Válasz 2012-07-03 09:57:23 #1774

  Ú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

  

  martonx

  veterán

  válasz shiz #1773 üzenetére

  node minek ide with egyáltalán?

  Ez is feleslegesenek tűnik:

  Dim ml As Worksheet
  Set ml = Worksheets("Munka1")

  Ez egyértelműen zárójel hibás:

  Set erdmeny = keszlet - felhet / 2) Debugolás a barátod

  Ez így működésképtelen. Ismétlem, minek ide with?

  With eredmeny
  If eredmeny > 0 Then
  .Range("BK" & sor).Value = 0
  Else
  .Range("BK" & sor).Value = eredmeny
  End If
  End With

  Ehelyett simán csak valami ilyesmi kellene neked:
  If eredmeny > 0 Then
  Range("BK" & sor).Value = 0
  Else
  Range("BK" & sor).Value = eredmeny
  End If

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