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

• #46089 lappy őstag pecze #46088

  Új Válasz 2021-02-17 10:29:11 #46089

  Ú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

  

  lappy

  őstag

  válasz pecze #46088 üzenetére

  Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B:B")) Is Nothing Then
a = Sheets("Munka2").Cells(Rows.Count, "A").End(xlUp).Row + 1
ActiveCell.Offset(-1, 0).Activate
Sheets("Munka2").Range("A" & a).Value = ActiveCell.Value
ActiveCell.Offset(1, 0).Select
End If
End Sub

  A Range("B:B") nél most a teljes B oszlop van amit néz, ezt majd változtasd meg

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