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

• #45426 Delila_1 veterán repvez #45424

  Új Válasz 2020-11-22 20:02:38 #45426

  Ú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 repvez #45424 üzenetére

  A szerkesztéskor beírt szerint a 45425 ös makróban az
  If Target.Column = 8 Then
  sort írd át
  If Not Intersect(Target, [H2:H20]) Is Nothing Then -re

• #45425 Delila_1 veterán repvez #45424

  Új Válasz 2020-11-22 19:57:39 #45425

  Ú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 repvez #45424 üzenetére

  Újabb változat. Eddig arról volt szó, hogy azonos dátumnál a következő oszlopba írja be az értéket, most meg hogy írja felül a B oszlopban lévőt.
  FFeri makróját módosítva:

  Private Sub Worksheet_Change(ByVal Target As Range)
Dim cel As Variant
If Target.Column = 8 Then
With Sheets("Munka2")
cel = Application.Match(CLng(Date), .Range("A:A"), 0)
If IsError(cel) Then
cel = .Range("A10000").End(xlUp).Row + 1
.Cells(cel, 1).Value = Date: .Cells(cel, 2) = Target
Else
.Cells(cel, 2) = Target
End If
End With
End If
End Sub

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