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

• #51464 karlkani aktív tag

  Új Válasz 2023-09-30 14:08:59 #51464

  Ú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

  

  karlkani

  aktív tag

  Sziasztok!

  Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Range("C2:C8"), Target) Is Nothing Then
Cells(10, 3).Value = Now()
    End If
    
    If Target.Column = 7 Then
        Application.EnableEvents = False
        If Application.WorksheetFunction.CountA(Range(Target.Address)) = Target.Count Then
            Range(Target.Address).Offset(, 1) = Date
        Else
            Range(Target.Address).Offset(, -1) = ""
            Range(Target.Address).Offset(, 1) = ""
        End If
        Application.EnableEvents = True
    End If
    
End Sub

  Készpénzzel történő vásárláshoz használtam a makró második felét. Ha beírtam a G oszlopba, akkor a H-ba bekerült az aktuális dátum. Ha töröltem, akkor az F és H érték is törlődött.

  F - megnevezés
  G - összeg (kp)
  H - dátum

  Bankkártyás vásárlást is beletettem (beszúrtam egy oszlopot az F után). Ezentúl a G vagy H oszlopba kerül az összeg. Hogyan lehet megoldani, ha a G-be kerül, akkor 2 sorral jobbra írja a dátumot (I), ha a H-ba, akkor csak 1 sorral (I) ? Az összeg törlésekor az első sor valamit a dátum is törlődjön.

  F - megnevezés
  G - összeg (bankkártya)
  H - összeg (kp)
  I - dátum

  Így nézne ki a dolog.
  

  Előre is köszönöm!

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