MS Excel

Dobrý den / Ahoj

Řeším, jak se vyhnout nepřímým odkazům touto cestou:

Private Sub Worksheet_Calculate()

If Cells(2, 4) = "ano" And Cells(2, 8) = "" Then Cells(2, 8) = "=B2"
End Sub

Moc by mi pomohlo, kdyby mi někdo poradil, jak udělat, aby makro fungovalo na sloupce: pokud ve sloupci 4 je "ano" a zároveň ve sloupci 8 stejného řádku není prázdná buňka, tak do stejného řádku ve sloupci 8 zapiš vzorec =B(číslo řádku).

Moc by mi to pomohlo, děkuji.

Zaslat odpověď >

Jeza.m(27.11.2017 16:45)#038501

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Cells(Target.Row, 4) = "ano" And Cells(Target.Row, 8) = "" Then Cells(Target.Row, 8) = "=B" & Target.Row
Application.EnableEvents = True
End Sub
M@citovat

Vovka(28.11.2017 9:32)#038503

Maličko bych ten kód upravil, aby se události vypínaly jen v případě potřeby:

Private Sub Worksheet_Change(ByVal Target As Range)
if Cells(Target.row,4) = "ano" and Cells(Target.Row, 8) = "" Then
Application.EnableEvents = False
Cells(Target.Row, 8) = "=B" & Target.Row
Application.EnableEvents = True
End If
End Sub

Nebo bych ty události nevypínal vůbec a nechal tu událost proběhnout dvakrát.citovat

Dejwing(28.11.2017 10:37)#038504

Děkuji za rady, skvělá práce! ještě jsem zapomněl dodat, že neklikám do řádku, ale hodnota ano je ze vzorce, tudíž vůbec neklikám do řádků dalo by se to udělat automaticky? na základě toho, že je vzorec v buňce? A pokud je v poli například "B2" napsán 28.8.2017, tak aby se propsala hodnota ideálně, může být i ten vzorec.citovat

Vovka(28.11.2017 11:30)#038508

Vzorec v 8.sloupci by způsobil, že každé přepsání B2 by se promítlo do všech buněk 8.sloupce (to asi nechcete). Lze ale napsat makro, aby změna v B2 vyvolala ve všech řádcích definované tabulky, kde 8.sloupec je ještě prázdný, jeho zaplnění hodnotou z B2. Jestli je to podle Vašeho záměru, napíšu Vám to.
Také umím napsat makro, které by pro každý nový řádek tabulky převzalo do jejího 8.sloupce automaticky aktuální hodnotu z B2. Vyberte si.citovat

Dejwing(28.11.2017 13:03)#038509

Můj záměr je, aby makro reagovalo na "ano" ve sloupci, může reagovat klidně na přepsání B2, ale chci přehodnotit celý 8 sloupec, za splnění podmínek => převzetí aktuální hodnoty z řádku sloupce B. :)citovat

Vovka(28.11.2017 16:42)#038510

Přestal jsem hloubat nad smyslem Vašeho zadání a pokusil jsem se dodržet ho v té podobě, jak jsem ho pochopil.

Příloha: zip