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

• #1773 shiz csendes tag

  Új Válasz 2012-07-03 08:28:27 #1773

  Ú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

  

  shiz

  csendes tag

  Üdv!

  A következő kód javításában kérnék segítséget.
  A hiba a végén van. Ha jól gondolom akkor a with blokk-hoz nem jól deklarálok de nem tudom hol a hiba.
  Sub Gomb2_Kattintás()
  
  Dim sor As Integer
  Dim oszlop
  Dim ml As Worksheet
  Set ml = Worksheets("Munka1")
  With ml
  For sor = 9 To 1500 Step 8
  oszlop = Application.Match(1, .Range("C" & sor & ":BJ" & sor), 0)
  If VarType(oszlop) = vbError Then
  felhet = "nincs"
  keszlet = "nincs"
  Else
  felhet = .Cells(sor, oszlop).Offset(-6, 2).Value
  keszlet = .Cells(sor, oszlop).Offset(2, 2).Value
  End If
  Next
  End With
  
  [B]Dim eredmeny As Variant
  Set erdmeny = keszlet - felhet / 2)[/B]
  
  With eredmeny
  If eredmeny > 0 Then
  .Range("BK" & sor).Value = 0
  Else
  .Range("BK" & sor).Value = eredmeny
  End If
  End With
  End Sub

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