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

• #46018 Delila_1 veterán marec1122 #46017

  Új Válasz 2021-02-11 15:54:46 #46018

  Ú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 marec1122 #46017 üzenetére

  A kérdéses laphoz rendeld az eseményvezérelt makrót, ami a B oszlopba íráskor felviszi a K oszlop első üres sorába a beírt dátumot, mellé az L-be pedig az A oszlopban megadott számot. Arra a fevitelt végzőnek kell ügyelnie, hogy a B oszlopban valóban dátumot adjon meg.
  Az eddigi dátumokat és a hozzájuk tartozó számokat előre fel kell vinni, mert csak a makró beírása után végzi automatikusan ezt a munkát. B oszlopot másold K-ba, Ismétlődések eltávolítása funkció, majd (INDEX, HOL.VAN) függvénnyel melléjük az A oszlop adatai.

  Private Sub Worksheet_Change(ByVal Target As Range)
Dim ide As Long

If Target.Column = 2 Then
If Application.WorksheetFunction.CountIf(Columns(11), Target) = 0 Then
Application.EnableEvents = False
ide = Range("K" & Rows.Count).End(xlUp).Row + 1
Range("K" & ide) = Target: Range("L" & ide) = Range("A" & Target.Row)
Application.EnableEvents = True
End If
End If
End Sub

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