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

• #12779 Delila_1 veterán Pá #12778

  Új Válasz 2012-02-03 08:01:46 #12779

  Ú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

  

  Delila_1

  veterán

  válasz Pá #12778 üzenetére

  Rendeld a lapodhoz a makrót. Az A oszlopba írva a B-ben lesz a dátum, a C-ben a sorszám.
  Mikor törölsz az A-ból egy adatot, üres lesz az azonos sorban lévő B és C cella, a sorszámok maradnak. Ha ebbe az üres A-ba új adatot írsz, a következő sorszám lesz a C-ben.

  Pl. folyamatosan írtál az A1-be, A2-be és A3-ba. A C1=1, C2=2, C3=3. Törlöd az A2-t, a C2 (és B2) üres lesz. Új értéket írsz az A2-be, a sorszáma 4 lesz, amiből látszik, hogy később töltötted ki a 2. sort, mint a 3-at.

  Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column = 1 Then
  If Not IsEmpty(Target) Then
  Cells(Target.Row, 2) = Date
  Cells(Target.Row, 3) = Application.Max(Columns(3)) + 1
  Else
  Range("B" & Target.Row & ":C" & Target.Row) = ""
  End If
  End If
  End Sub

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