MS Excel

Ahoj, jdou smazat stejné řádky na více listech dle označeného řádku na prvním listu? Když v prvním listu dvojklikem na buňku aktivuji makro, které odstraní řádek kde je "kurzor" tak aby dále v Listu1,Listu2,Listu3 byl odstraněn ten samý řádek...je to proveditelné?
Níže uvádím kód, který smaže řádek na listu:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Při dvojkliku smazat řádek s kurzorem
Select Case Smazat
Case vbYes
If ActiveCell.Column = 1 Then
Rows(ActiveCell.Row).Delete
Cells(ActiveCell.Row, ActiveCell.Column).Select
End If
Case vbNo
End Select
Exit Sub
End Sub

Zaslat odpověď >

Dingo(7.11.2013 16:25)#016169

Zkusím pomoct já. Ten kód mi na dvojklik nesmaže nic.
Já tuhle fintu s dvojklikem používám taky různě pro spuštění maker, má to nevýhodu pro toho, kdo je zvyklý editovat obsah buňky dvojklikem přímo v ní, pak se třeba spustí to co člověk zrovna nechce.
Proto jsem v ukázce tu oblast pro klik na smazání řádků omezil na sloupec A v Listu 1. Vyzkoušej.
Edit: Aha, já jen smažu obsah řádku, ty chceš odstranit, ale to se dá snadno změnit na .Delete

Příloha: zip

16169_smaz-radky-dvojklik.zip (16kB, staženo 23x)

citovat

Martin12345678(7.11.2013 16:33)#016170

Super, funguje lépe, když na dvojklik reaguje jen vybraný sloupec. Ale já pořebuji řádek odstranit úplně, špatně jsem to napsal

Zkoušel jsem nahradit Clear... na Delete, ale odstraní se jen řádek na prvním listu. Půjde to nějak zařídit i na ostatní?citovat

Martin12345678(7.11.2013 16:48)#016171

Teď čtu tvůj Edit, Delete odstraní řádek jen na prvním listu:-(citovat

cmuch(7.11.2013 16:58)#016172

Mě to Dingovo smaže řádek na všech listech pokud se dá delete místo clear...citovat

Martin12345678(7.11.2013 17:00)#016173

No a vlastně to z části neřeší můj problém. Potřeboval bych přesně definovat listy ve kterých by se mazalo....citovat

Martin12345678(7.11.2013 17:02)#016174

Pokud zaměním .ClearContents za .Delete tak se mě odstraní jen řádek v prvním listu. Dělám něco blbě?

Edit: Asi dělal pač už mě to jde. Takže omluva:-)
Nyní tedy zda půjde definovat názvy listů kde se bude řádek odstraňovat?citovat

cmuch(7.11.2013 18:00)#016175

Třeba
Sub makro()
Dim Wsht As Worksheet
' pro vsechny listy mimo list1
For Each Wsht In ThisWorkbook.Worksheets
If Wsht.Name <> "List1" Then
With Wsht
' smaz radek
.Rows(5).Delete
End With
End If
Next
End Subcitovat

Dingo(7.11.2013 18:02)#016176

Už jsem zase tu. Pokud těch listů není moc, stačí je vypsat, jak je v příloze. Taky se nabízí vynechat volání dalšího makra a napsat to mazání hned do události listu. Ale zvyknul jsem si to hlavní dávat do modulu, odtud je lepší "Přístup" kamkoliv do sešitu, bez dlouhého adresování. Je to tam v poznámce naznačené.

Příloha: zip

16176_smaz-radky-dvojklik-v2.zip (16kB, staženo 19x)

citovat

chey(7.11.2013 18:05)#016178

Já bych to řešil výběrem (označením) listů pomocí klávesy Shift nebo Ctrl na "ouškách" listů a pravým tlačítkem myši na čísle řádku výběrem Odstranit. Úkon bude proveden na vybraných listech.citovat

Martin12345678(7.11.2013 19:46)#016179

To Dingo...tohle je úplně pecka, díky
To cmuch...vyzkoušeno, tohle použiji v jiném sešitě
To chey...takto jsem to dosud řešil, ale potřeboval jsem to z automatizovat, jelikož mě nebavilo označovat Více než deset listů...

Všem moc děkuji za návrhy a řešenícitovat

Téma: Zmazání řádku na více listech současně

Uživatelské menu

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Aktivní diskuse

Čas od do

Čas od do

Čas od do

Čas od do

Makro smyčka

Makro smyčka

Makro smyčka