MS Excel

Ahojte.

Zrejme pre Vás to bude "s prstom v nose" no ja si neviem dať rady

Potreboval by som makro, ktoré :

Do buniek "A1:A10" sa prvotne vložia hodnoty.
Po vložení týchto hodnôt prebehne nejaká operácia - nie je podstatné aká iba opisujem proces.

Potrebujem to, že keď sa v týchto bunkách následne zmenia hodnoty, alebo sa vymažú, tak sa zároveň vymažú aj hodnoty v bunkách "B1:B10"

Je možné použiť pomocné stĺpce.

Ďakujem za akýkoľvek nápad

Zaslat odpověď >

elninoslov(10.9.2019 7:26)#044223

Hodnoty do A vkladá užívateľ alebo makro ?
JE PODSTATNÉ čo je to za operáciu! Robí niečo so stĺpcom A a B? Vypína EnableEvents ? ...
B môže užívateľ alebo iné makro meniť nezávisle na A?
Ak A mení užívateľ, tak za zmenu sa považuje akákoľvek zmena vyvolaná pomocou udalosti listu Worksheet_Change ? Teda aj zmena hodnoty na rovnakú hodnotu? Alebo iba zmena na inú hodnotu ako tam bola? To je zásadný rozdiel v spracovaní, lebo druhý variant vyžaduje odkladanie starých hodnôt do skrytého listu.
atď....
veľmi slabý popiscitovat

Alindros(10.9.2019 10:29)#044225

elninoslov napsal/a:

veľmi slabý popis

Máte pravdu veľmi slabý popis.
Tak skúsim ešte raz.

Stĺpec "A1:A10" - vkladá iba užívaťeľ.
Po vložení číselných hodnôt stlačí užívateľ pripravený button pod ktorým je malé makro, ktoré do stĺpca "B1:B10" vloží vzorec, ktorý má v sebe odkazy na bunky stĺpca "A".
Stĺpec "B" užívateľ nemôže meniť.

Za zmenu stĺpca "A1:A10" sa považuje - prepis buniek (všetkých, alebo aj iba jednej zo zadefinavanej oblasti), vymazanie, prepis aj na rovnakú hodnotu, nakopírovanie iných číselných hodnôt

No a keď prebehne zmena stĺpca "A1:A10" tak by som potreboval, aby sa ten stĺpec "B1:B10" vymazal, aby užívateľ bol znovu nútený vykonať kliknutie buttonom, ktorý nanovo nakopíruje vzorce do stĺpca "B1:B10".citovat

elninoslov(10.9.2019 11:14)#044226

No asi tomu stále nerozumiem, ale uvidíme...:
Private Sub btnZnovu_Click()
btnZnovu.BackColor = &H8000000F
Range("B1:B10").Formula = "=TODAY()+A1"
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Zmena As Range
Set Zmena = Intersect(Range("A1:A10"), Target)
If Not Zmena Is Nothing Then
btnZnovu.BackColor = vbGreen
Zmena.Offset(0, 1).ClearContents
Set Zmena = Nothing
End If
End Sub

Příloha: zip

44226_kontrola-novych-hodnt.zip (19kB, staženo 16x)

citovat

Alindros(11.9.2019 11:47)#044230

elninoslov napsal/a:

No asi tomu stále nerozumiem, ale uvidíme...:

Ďakujem.
Pracuje to tak ako som si predstavoval

Ešte raz ďakujem.citovat

Téma: VBA: vymaž bunky po zmene hodnôt

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje