Hirdetés

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

  • Fferi50

    Topikgazda

    válasz Zozzy #26753 üzenetére

    Szia!

    Az A1 cellát másolod és ugyanoda beilleszted értékként, de ez elég macerás minden adatbevitel után.
    Ezért javaslom a következő makrót:

    Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column <> 2 Then Exit Sub
    If Target.Value <> "" Then
    Application.EnableEvents = False
    Target.Offset(0, -1).Value = Now()
    Application.EnableEvents = True
    End If
    End Sub

    Ezt úgy viheted be, hogy a munkalapfülre jobb egérgombbal rákattintasz, kód megjelenítése, majd a megjelent kódlapon az üres területre bemásolod.

    A makró azt csinálja, ha a B oszlop egy cellájába adatot írsz (vagy megváltoztatod az ott levő adatot), akkor beírja az A oszlopban mellette levő cellába a Most függvény értékét, ami természetesen nem fog a továbbiakban változni.

    Üdv.

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