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

• tam@s tag

  #28628

  #28623 m.zmrzlina

  2015-09-16 10:57:41

  Új Válasz

  Ú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

  

  tam@s

  tag

  #28623 m.zmrzlina

  Nagyon szépen köszönöm, de sz még mindig megakadok vele valahogy, kérnék még egy kis segítséget.
  Átalakítottam a makródat a következőképpen:

  Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Row >= 4 And Target.Row <= 11 Then

  If Target.Column = 2 Then
  On Error Resume Next
  Cells(Target.Row, 4).Value = Cells(Target.Row, 2).Value / 1.044
  Cells(Target.Row, 6).Value = Cells(Target.Row, 2).Value / Cells(Target.Row, 5)

  ElseIf Target.Column = 4 Then
  On Error Resume Next
  Cells(Target.Row, 2).Value = Cells(Target.Row, 4).Value * 1.044
  Cells(Target.Row, 6).Value = Cells(Target.Row, 2).Value / Cells(Target.Row, 5)

  ElseIf Target.Column = 6 Then
  On Error Resume Next
  Cells(Target.Row, 2).Value = Cells(Target.Row, 6).Value * Cells(Target.Row, 5)
  Cells(Target.Row, 4).Value = Cells(Target.Row, 2).Value / 1.044

  End If
  End If

  End Sub

  Végtelen loopba kerülök...

  A táblázatról:
  8 termk egymás alatt
  2 oszlop a nagyker ár
  4 oszlop a termelői ár
  5 oszlop azt mutatja, hogy egy dobozban hány tabletta van
  6 oszlop az egy tablettára jutó nagyker ár ----> itt a gond, mert ha ezt is beleírom, akkor visszaírja a nagyker árat, és lefagy.
  Innen még lenne 5 oszlop, amit oda vissza kellene írni, de csak addig megy, amíg vissza nem számoltatok egy olyan cellát, amelyik szerepel a "ElseIf Target.Column = XX" feltételnél, és akkor vége.

  Nem lehet valahogy leállítani, hogy ne számolja újra, hanem csak azt, ami az adott IF részfeltételben van?

  Bocs, ha nem voltam szakszerű, közgazdász vagyok, ez a 2. makró életemben...

  Köszi minden segítséget előre is!
  Üdv.:
  Tamás

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