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

• #45412 Delila_1 veterán repvez #45411

  Új Válasz 2020-11-22 13:44:30 #45412

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

  Másold be az alábbi makrót a munkalapod kódlapjára (lásd a Téma összefoglalóban).
  Ha nem Munka2 a neve a másik lapodnak, írd át a makróban. A fájl makróbarátként kell elmentened.
  Private Sub Worksheet_Change(ByVal Target As Range)
Dim ide As Long
If Target.Address = "$H$2" Then
With Sheets("Munka2")
ide = .Range("A" & Rows.Count).End(xlUp).Row + 1
.Range("A" & ide) = Date
.Range("B" & ide) = Target
End With
End If
End Sub

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