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

• #21144 Delila_1 veterán *Frenszisz* #21141

  Új Válasz 2014-03-29 09:47:01 #21144

  Ú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 *Frenszisz* #21141 üzenetére

  Munka2 laphoz

  Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = "$A$1" Then Képlet Target 'átadjuk a változót
  End Sub

  Modulba

  Sub Képlet(Target) 'átvesszük a változót
  Dim updating As Boolean
  Sheets("Munka1").Range("A1") = Target
  
  If updating Then Exit Sub
  
  updating = True
  If Sheets("Munka1").Range("A1") = 1 Then
  Sheets("Munka1").Range("B1") = 500
  Else: Sheets("Munka1").Range("B1") = ""
  End If
  
  updating = False
  End Sub

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