Excel Forum - Porady, Pomoc,  Excel Help, Excel FAQ Strona Główna
 FAQ  RegulaminRegulamin  Szukaj   Użytkownicy   Grupy   Rejestracja   Profil   Twoje wiadomości   Zaloguj 


Poprzedni temat «» Następny temat
ID tematu: 64042 Skopiuj do schowka Blokowanie wierszy z pustą komórką
Autor Wiadomość
JacekDelta
świeżak


Posty: 2
Wysłany: 05-02-2019, 10:41   Blokowanie wierszy z pustą komórką

Witam. Jestem baaardzo początkujący w VBA. Mam następujący problem/potrzebę:

W arkuszu potrzebuję makro, które będzie mi wyszukiwać pustą komórkę w danej kolumnie. Dajmy na to kolumna " I ". A następnie te wiersze w której znajdzie pustą komórkę w kolumnie I, będzie blokować widok (tak jak w zablokuj okienko/wiersz).

Coś tam zacząłem skrobać ale popełniam jakieś idiotyczne problemy uniemożliwiające kompilację skryptu.

Pomoże ktoś?
ID posta: 361980 Skopiuj do schowka
 
 
Tadek
Excel Expert


Pomógł: 1465 razy
Posty: 4725
Wysłany: 05-02-2019, 14:10   

Witaj na Forum.
Przeczytaj regulamin tego Forum i zastosuj się do niego, a szczególnie do tego punktu:
„pkt 2.3 Użyj załącznika żeby pokazać układ i rodzaj danych w Twoim arkuszu, własne próby rozwiązania problemu. Koniecznie umieść w nim przykładowe dane na jakich operujesz i koniecznie umieść dane wynikowe jakie chcesz otrzymać.”
ID posta: 362001 Skopiuj do schowka
 
 
JacekDelta
świeżak


Posty: 2
Wysłany: 06-02-2019, 08:10   

Niestety nie mogę wrzucić załącznika z arkuszem ponieważ zawiera sporo danych osobowych. Operuje na kolumnach od A do K. Kolumna "I" jest kluczowa jeśli chodzi o zablokowanie widoku okienka. Na jej podstawie powinien się blokować widok. Moja próba:
Kod:
If IsEmpty(ActiveCell.Offset(1, 0)) Then
    Range("I").Select
With ActiveWindow
    .FreezePanes = False
    .ScrollRow = 1
    .ScrollColumn = 1
    .FreezePanes = True
   
    End If
End With
    ActiveWindow.SmallScroll Down:=-63
End Sub


edycja Zbiniek:
Przy wpisywaniu kodów makr lub formuł proszę używać znaczniki [code] (zgodnie z pkt. 3.1 Regulaminu naszego forum).
ID posta: 362050 Skopiuj do schowka
 
 
BrunO 
ExcelSpec



Pomógł: 119 razy
Posty: 513
Wysłany: 06-02-2019, 08:44   

1. A czy tobie ktoś każe wrzucać tu wszystko? zawsze można skopiować ten jeden arkusz, zostawić w nim kilka przykładowych wierszy zamieniając nazwiska na Jan Kowalski i Lech Nowak, miejscowości na Pcim Dolny i Góry itd... Nikogo twoje dane nie interesują, ale ich struktura i owszem...
2. Piszesz, że nie działa jak należy, ale w sumie nadal nie wiemy jak powinno działać...
3. Nie wiem czy ta pierwsza pusta komórka ma być nad czy pod "kreską".
4. Chcesz zablokować tylko wiersze czy również kolumny na lewo od I?
5. Nie wiem po co ci te scrollowania.

Poniższe makro mi działa, aczkolwiek nie wiem czy tak jak sobie wymarzyłeś.

Kod:
Sub Makro()
Dim r As Integer

For r = 1 To 20 'niżej bym nie zjeżdżał, bo nie chcemy chyba zablokować całego ekranu?
   
    If Cells(r, "I") = Empty Then
        ActiveWindow.FreezePanes = False
        Cells(r, "I").Select
        ActiveWindow.FreezePanes = True
        Exit Sub
    End If
Next r

End Sub
ID posta: 362054 Skopiuj do schowka
 
 
Wyświetl posty z ostatnich:   
Odpowiedz do tematu
Nie możesz pisać nowych tematów
Nie możesz odpowiadać w tematach
Nie możesz zmieniać swoich postów
Nie możesz usuwać swoich postów
Nie możesz głosować w ankietach
Nie możesz załączać plików na tym forum
Możesz ściągać załączniki na tym forum
Dodaj temat do Ulubionych
Wersja do druku

Skocz do:  

Powered by phpBB modified by Przemo © 2003 phpBB Group
Theme xandgreen created by spleen& Programosy modified v0.3 by warna
Opieka techniczna www.marketingNET.pl

Archiwum

Strona używa plików cookies.

Kliknij tutaj, żeby dowiedzieć się jaki jest cel używania cookies oraz jak zmienić ustawienia cookie w przeglądarce.
Korzystając ze strony użytkownik wyraża zgodę na używanie plików cookies, zgodnie z bieżącymi ustawieniami przeglądarki.
Sprawdź, w jaki sposób przetwarzamy dane osobowe