MS Excel

Dobrý den, už nějakou hodinku zápasím s něčím, co určitě pro zkušeného bude otázka minuty...nevím, zda zvolit podmíněné formátování nebo něco jiného...v prvním sloupci mám pod sebou například jména a ve 2.,3. a 4. sloupci od něj ke jménu popisky a potřeboval bych, aby při smazání jména zmizely a tyto popisky ve vedlejších sloupcíh....nevíte, jak na to nejjednodušeji? Děkuji

Zaslat odpověď >

Poki(25.5.2012 9:39)#008608

Zdravim,
pokud potrebujete hodnoty ve sloupcich 2-4 skutecne smazat a nej skryt (coz by udelalo to podminene formatovani), tak musite pouzit makro - to bude navazano na udalost proceduru.
Tedy vzdy, kdyz smazete hodnotu ve sloupci A, tak smazete prislusne hodnoty ve sloupcich B-D

Tento kod vlozte do modulu prislusneho listu:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Len(Target) = 0 Then
Cells(Target.Row, Target.Column + 1).ClearContents
Cells(Target.Row, Target.Column + 2).ClearContents
Cells(Target.Row, Target.Column + 3).ClearContents
End If
End Subcitovat

jablicko85(25.5.2012 10:09)#008609

Tohle by bylo perfektní řešení a pracuje to skvěle, já ale bohužel následující bunky +1, +2 a +3 mám vždy vzniklé spojením 2 buněk (2 sloupců) a to mi hází chybu, nevíte, zda to jde nějak ošetřit?citovat

Poki(25.5.2012 10:22)#008610

hm, tak mozna takto:
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Column = 1 And Len(Target) = 0 Then
Range(Cells(Target.Row, Target.Column + 1), Cells(Target.Row, Target.Column + 2)).ClearContents
Range(Cells(Target.Row, Target.Column + 3), Cells(Target.Row, Target.Column + 4)).ClearContents
Range(Cells(Target.Row, Target.Column + 5), Cells(Target.Row, Target.Column + 6)).ClearContents
End If
Application.EnableEvents = True
End Subcitovat

Téma: mazat data v dalším sloupci na základě prvního

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje