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

• #44610 Delila_1 veterán lrobertoc #44609

  Új Válasz 2020-08-12 10:47:06 #44610

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

  A Munka1 laphoz rendeld a makrót.
  Írd be a nevet (ha még nincs) az A oszlopba. Mikor beírtál egy adatot valamelyik hónaphoz, adj duplaklikket rá.

  Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim ide As Long, oszlop As Variant
If Target.Row > 1 And Target.Column > 1 Then
With Sheets("Munka2")
ide = .Range("A" & Rows.Count).End(xlUp).Row + 1
.Cells(ide, 1) = Cells(Target.Row, 1) 'név
oszlop = Application.Match(Target.Column, .Rows(1), 0)
.Cells(ide, 2) = Cells(1, Target.Column) 'hónap neve
.Cells(ide, 3) = Target 'érték
End With
Cancel = True
End If
End Sub

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