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

• #41282 RAiN91 őstag Fferi50 #41277

  Új Válasz 2019-07-03 14:50:34 #41282

  Ú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

  

  RAiN91

  őstag

  válasz Fferi50 #41277 üzenetére

  Szia

  Private Sub Worksheet_Change(ByVal Target As Range)

If Not Application.Intersect(Range("A1"), Range(Target.Address)) Is Nothing Then


Range("B1").Offset(0, k).Value = Target.Value
If k < 2 Then k = k + 1 Else k = 0


End If

End Sub

  Így már félig működik, csak az Offsetet nem lépteti valamiért. Mindig B1-be írja csak a változást, és azt írja felül.

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