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

• #42619 RAiN91 őstag

  Új Válasz 2020-01-02 17:48:49 #42619

  Ú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

  Sziasztok,
  szeretném A1 cella értékét átírni, ha B1 cella értéke változik. B1 cella = B2-vel, tehát nem kézzel íródik át A1. (Igazából B2 sem kézzel íródik át, mert egy programon keresztül frissülnek az adatok).

  A lényeg, Target.Address-el nem működik nekem. Az alábbi két programot próbáltam.

  Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("B1"), Target) Is Nothing Then
Range("A1") = 10
End If
End Sub

  Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$1" Then
Range("A1") = 10
End If
End Sub
  

  Hogyan lehetne megoldani? Köszönöm előre is.

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