2. Fórumok
  3. OS, alkalmazások
  4. Microsoft Excel topic
  5. (kiemelt téma)
  • Fototrend
    Frissítve: 2023-11-13 08:31 Téma összefoglaló
    Fototrend

    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

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

    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