Ú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

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

  Új Válasz 2014-03-29 09:30:06 #21142

  Ú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

  A laphoz rendelt eseménykezelő csakis a saját lapján tud módosítani, de meghívhatsz vele egy nem eseménykezelő makrót.

  Megoldás: a Munka2 laphoz rendelj eseménykezelőt, ami az A1 cella változása esetén meghív egy makrót, amivel a Munka1!A1-be beíratod hivatkozást.

• #20601 Mutt senior tag *Frenszisz* #20600

  Új Válasz 2014-02-21 04:20:17 #20601

  Ú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

  

  Mutt

  senior tag

  válasz *Frenszisz* #20600 üzenetére

  Hello,

  Az alabbiak lehetnek a gondok:
  - az eredeti program kikapcsolja az esemenykezeleseket, nezd meg hogy van-e benne Application.Enableevents parancs.
  - nem adja vissza a vezerlest a program. Ahol a varakozas meg van adva oda irjal be egy DoEvents parancsot.

  Mindket esetben hozza kell ferned az eredeti kodhoz, ami azt jelenti hogy akkor mar az eredeti programot egyszerubb lenne kiegesziteni a legkisebb ertek keresesel. A korabban megadott kodban csak aprot kell valtoztatni:
  - Target reszt le kell cserelni Range("A1") -re
  - az elso If-et hagyd el

  udv

• #20598 Mutt senior tag *Frenszisz* #20595

  Új Válasz 2014-02-20 21:30:02 #20598

  Ú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

  

  Mutt

  senior tag

  válasz *Frenszisz* #20595 üzenetére

  Hello,

  Szerintem a munkalap Change eseményét használd erre:

  Private Sub Worksheet_Change(ByVal Target As Range)
  
  If Target.Address = "$A$1" Then
  If Target.Value < Range("B1").Value Or IsEmpty(Range("B1").Value) Then Range("B1").Value = Target.Value
  End If
  
  End Sub

  üdv

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