Hirdetés

  2. Fórumok
  3. OS, alkalmazások
  4. Microsoft Excel topic
  5. (kiemelt téma)
Legfrissebb anyagok
Mobilarena témák
PROHARDVER! témák
IT café témák
GAMEPOD témák
  • 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

  • #28632 m.zmrzlina senior tag tam@s #28628
    Új Válasz #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

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