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

• #28635 m.zmrzlina senior tag tam@s #28633

  Új Válasz 2015-09-16 12:02:37 #28635

  Ú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

  

  m.zmrzlina

  senior tag

  válasz tam@s #28633 üzenetére

  Nincs mit, fő hogy működjön.

• #28632 m.zmrzlina senior tag tam@s #28628

  Új Válasz 2015-09-16 11:53:06 #28632

  Ú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

  

  m.zmrzlina

  senior tag

  válasz tam@s #28628 üzenetére

  Sőt így talán jobb mert a nullával való osztás nem okoz problémát ha nincsen kitöltve a dbszám/doboz oszlop.

  Private Sub Worksheet_Change(ByVal Target As Range)
  
  If Target.Row >= 4 And Target.Row <= 11 Then
  Application.EnableEvents = False
  If Target.Column = 2 Then
  Cells(Target.Row, 4).Value = Cells(Target.Row, 2).Value / 1.044
  On Error Resume Next
  Cells(Target.Row, 6).Value = Cells(Target.Row, 2).Value / Cells(Target.Row, 5)
  ElseIf Target.Column = 4 Then
  Cells(Target.Row, 2).Value = Cells(Target.Row, 4).Value * 1.044
  On Error Resume Next
  Cells(Target.Row, 6).Value = Cells(Target.Row, 2).Value / Cells(Target.Row, 5)
  ElseIf Target.Column = 6 Then
  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
  Application.EnableEvents = True
  End If
  
  End Sub

• #28630 m.zmrzlina senior tag tam@s #28628

  Új Válasz 2015-09-16 11:39:08 #28630

  Ú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

  

  m.zmrzlina

  senior tag

  válasz tam@s #28628 üzenetére

  Le kell tiltani az eseménykezelést:

  Private Sub Worksheet_Change(ByVal Target As Range)
  
  If Target.Row >= 4 And Target.Row <= 11 Then
  Application.EnableEvents = False
  
  If Target.Column = 2 Then
  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
  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
  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
  
  Application.EnableEvents = True
  End If
  
  End Sub

• #28623 m.zmrzlina senior tag tam@s #28622

  Új Válasz 2015-09-15 21:06:42 #28623

  Ú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

  

  m.zmrzlina

  senior tag

  válasz tam@s #28622 üzenetére

  Próbáld ki ezt:

  Private Sub Worksheet_Change(ByVal Target As Range)
  
  If Target.Row >= 3 And Target.Row <= 12 Then
  If Target.Column = 7 Or Target.Column = 8 Then
  On Error Resume Next
  Cells(Target.Row, 9).Value = Cells(Target.Row, 7).Value * Cells(Target.Row, 8).Value
  Exit Sub
  ElseIf Target.Column = 9 Then
  On Error Resume Next
  Cells(Target.Row, 8).Value = Cells(Target.Row, 9).Value / Cells(Target.Row, 7).Value
  Exit Sub
  End If
  End If
  
  End Sub

• #28618 m.zmrzlina senior tag tam@s #28615

  Új Válasz 2015-09-15 16:31:20 #28618

  Ú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

  

  m.zmrzlina

  senior tag

  válasz tam@s #28615 üzenetére

  Elsőre az alábbi Móricka megoldás jutott eszembe:

  Private Sub Worksheet_Change(ByVal Target As Range)
  
  If Target.Address = "$G$3" Or Target.Address = "$H$3" Then
  Range("I3").Value = Range("G3").Value * Range("H3").Value
  Exit Sub
  ElseIf Target.Address = "$I$3" Then
  Range("H3").Value = Range("I3").Value / Range("G3").Value
  Exit Sub
  End If
  
  End Sub

  G3-ban van az ár, H3-ban a darabszám, I3-ban pedig az árbevétel. Ha az árbevételt változtatod akkor az árat fixnek tekinti és a darabszámot adja meg ami az adott áron "belefér" a keretbe.

  A makrót az adott munkalaphoz kell rendelni amin a kérdéses cellák vannak és .xlsm-ként elmenteni.

  Rémlik még valami Célérték keresés nevű dolog az excelben ami ilyesmire való de azt én még nemigen használtam.

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