ID tematu: 288
 |
modyfikacja makra - ukrywanie wierszy |
| Autor |
Wiadomość |
pindi 
ExcelSpec
Pomógł: 189 razy
Posty: 485
|
 Wysłany: 16-01-2007, 16:52 modyfikacja makra - ukrywanie wierszy
|
|
|
w załączonym pliku muszę wykonać nastepujące czynności
1) uruchomic makro "a_niechron" powodujące zdjęcie ochrony z arkuszy oraz wprowadzenie formuł w dane komórki, adkrycie arkusza "plany" i ustawienie sie na komórce J9
2) nastepnie wprowadzam do komórki J9 dane liczbowe
3) dokonuję zablowanie arkuszy poprzez makro "chron"
w powyzszym pliku znajduję się dodatkowe (dzięki pomocy Trebora) makro powodujące ukrywanie arkuszy )
http://www.excelforum.pl/...&highlight=#927
wszystko byłoby ok lecz w momencie gdy przechodze do zakładki razem miesiąc i w komórce B9 chcę wprowadzić nazwisko pojawia się komunikat
"Run time error '1004'
Ustwienie właściwości Hidden klasy Range nie jest możliwe"
wzór.rar
|
 Pobierz Plik ściągnięto 668 raz(y) 34.25 KB |
|
_________________
pindi
FB |
|
 | ID posta:
1487
|
|
|
 |
|
|
|
|
Mireczek
Starszy Forumowicz
Pomógł: 2 razy
Posty: 57
|
| Wysłany: 16-01-2007, 18:41
|
|
|
Witam
Dobrze się na tym nie znam, lecz zauważyłem, że dzieje się tak przy zablokowanych okienkach. Gdy arkusz nie jest chroniony można wprowadzać dane bez problemu. Ale nie wiem czy o to ci chodzi.
Pozdrawiam |
_________________
Mirek F. |
|
 | ID posta:
1488
|
|
|
|
|
|
|
pindi
ExcelSpec
Pomógł: 189 razy
Posty: 485
|
| Wysłany: 16-01-2007, 18:47
|
|
|
dzięki za chęci, ale nie o to chodziło
ochrona arkusza jest celowa |
_________________
pindi
FB |
|
| ID posta:
1489
|
|
|
|
|
|
Trebor
Excel Expert
Pomógł: 1752 razy
Posty: 4680
|
| Wysłany: 16-01-2007, 20:55
|
|
|
Zerknij do załącznika czy czegoś nie zepsułem. 
wzór.zip
|
| Pobierz Plik ściągnięto 778 raz(y) 39.57 KB |
|
_________________
Trebbor@wp.pl |
|
| ID posta:
1491
|
|
|
|
|
|
pindi
ExcelSpec
Pomógł: 189 razy
Posty: 485
|
| Wysłany: 16-01-2007, 21:15
|
|
|
troche się namieszało
1) uruchominie makra "a_niechron" powinno się zakończyć odsłoną arkusza plan i ustawieu się komórce J9
zapis
'okrycie akrusza plan
Sheets("Plan").Range("J7:J8") = "produkt"
jest ale chyba nie działa
wystarczy nagrać nowe marko i dorzucić ?? |
_________________
pindi
FB |
|
| ID posta:
1493
|
|
|
|
|
|
pindi
ExcelSpec
Pomógł: 189 razy
Posty: 485
|
| Wysłany: 16-01-2007, 21:24
|
|
|
to już sobie poprawiłem
ale pojawił się nastepny problem
automatyczen odkrywanie wierszy działa tylko w zakładce "razem miesiąc"
wzór.rar
|
| Pobierz Plik ściągnięto 895 raz(y) 33.36 KB |
|
_________________
pindi
FB |
|
| ID posta:
1494
|
|
|
|
|
|
Trebor
Excel Expert
Pomógł: 1752 razy
Posty: 4680
|
| Wysłany: 17-01-2007, 14:24
|
|
|
Działa również zgodnie z
| Kod: |
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If InStr(1, UCase(ActiveSheet.Name), "TYDZIEŃ") > 0 Or ActiveSheet.Name = "Pozostałe" Then
Call odkryj_ukryj
End If
End Sub
|
to znaczy wtedy gdy wybierzesz arkusz.
Napisz jak i kiedy powinno działać (przy jakim zdarzeniu).
Pozdrawiam |
_________________
Trebbor@wp.pl |
|
| ID posta:
1527
|
|
|
|
|
|
pindi
ExcelSpec
Pomógł: 189 razy
Posty: 485
|
| Wysłany: 17-01-2007, 14:42
|
|
|
sorry Trebor troche namieszałem
w zakładkach tygodni usunąłem łącza z nazwiskami z arkusza "razem miesiąc"
z przyzwyczajenia wpisywałem nazwiska w "razem miesiąc" a nastepnie przechodząc do tygodni chciałem zaobserwować odkrywanie się wierszy w tygodniach
wielkie dzięki za pomoc |
_________________
pindi
FB |
|
| ID posta:
1530
|
|
|
|
|
|
|
|
Regulamin
