Keresés: - Microsoft Excel topic - Mobilarena Hozzászólások

Hirdetés

Legfrissebb anyagok

Mobilarena témák

PROHARDVER! témák

IT café témák

GAMEPOD témák

LOGOUT témák

Keresés

Téma összefoglaló

Utoljára frissítve: 2023-11-13 08:31

Mobilarena

A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
Kérdés felvetése előtt olvasd el, ha még nem tetted.

Ú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.