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

• #1777 shiz csendes tag martonx #1776

  Új Válasz 2012-07-05 15:03:15 #1777

  Ú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

  válasz martonx #1776 üzenetére

  Szia!

  Ide feltettem a táblából egy darabot: Tábla

  "BK"-ban látszi, hogy mi is az amire szükségem lenne eredményként.
  Nem valószínű, hogy előfordul de egy hibakeresés csak kell szerintem arra az esetre ha az adott sorba nem szerepelne 1-es érték(erre írtam volna a match-hez egy "nincs" szöveget.

  A segítséget előre is köszönöm.

  Üdv:

• #1775 shiz csendes tag martonx #1774

  Új Válasz 2012-07-03 13:30:59 #1775

  Ú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

  válasz martonx #1774 üzenetére

  Gondoltam kicsi részletezem mire is kellene mert még így sem működik.

  A oszlopban termékek 2. sortól 13 soronként.
  CJ-ben különböző adatok a termékekhez.
  A tábla 9. sorától kezdve 1500 ig minden 8 sorban meg kellene vizsgálni szerepel e benne az "1" érték.
  Találat estén ettől a cellától jobbra és és fel illetve jobbra és le található cellák különbségét ki kellene íratnom BK oszlopba az 1 találati érték sorától 7 sorral feljebb.
  (illetve hiba helyett vmi szöveget kellene kiíratnom arra az esetre ha a match nem találna semmit.

• #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