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: 64411 Skopiuj do schowka Zaznaczenie
Autor Wiadomość
gajus21
Exceloholic


Posty: 114
Wysłany: 13-03-2019, 10:43   Zaznaczenie

Cześć,
Mam pytanie mianowicie chcę zaznaczyć pewien zakres:
Kod:
Range("P2:U80").Select

Ale na takiej zasadzie:
Kod:
LastRow = wrk1.Cells(wrk1.Rows.Count, "A").End(xlUp).Row
LastColumn = wrk1.Cells(7, wrk1.Columns.Count).End(xlToLeft).Column

Range("'LastRow-5''LastColumn':'LastRow''LastColumn+5'").Select


I próbowałem na różne sposoby i za każdym razem wyskakuje problem.
ID posta: 364091 Skopiuj do schowka
 
 
J_B 
Excel Expert


Pomógł: 273 razy
Posty: 778
Wysłany: 13-03-2019, 10:59   

Tak
Kod:

Range(Cells(LastRow - 5, LastColumn), Cells(LastRow, LastColumn + 5)).Select
ID posta: 364098 Skopiuj do schowka
 
 
minijack 
Exceloholic


Pomógł: 65 razy
Posty: 180
Wysłany: 13-03-2019, 11:03   

sprubuj tak:
Kod:
Range(cells(LastRow-5,LastColumn),cells(LastRow,LastColumn+5)).Select


spóźniony ;-)
Ostatnio zmieniony przez minijack 13-03-2019, 11:04, w całości zmieniany 1 raz  
ID posta: 364100 Skopiuj do schowka
 
 
kuma 
Excel Expert


Pomógł: 1198 razy
Posty: 3548
Wysłany: 13-03-2019, 11:03   

Przetestuj
Kod:
With Sheets("wrk1")
        LastRow = .Cells(Rows.Count, "A").End(xlUp).Row
        LastColumn = .Cells(7, Columns.Count).End(xlToLeft).Column
        .Range(Cells(5, 1), Cells(LastRow, LastColumn)).Select
    End With
Pozdrawiam.
ID posta: 364101 Skopiuj do schowka
 
 
gajus21
Exceloholic


Posty: 114
Wysłany: 13-03-2019, 11:04   

Dziękuję za szybką odpowiedź.
ID posta: 364102 Skopiuj do schowka
 
 
BrunO 
ExcelSpec



Pomógł: 126 razy
Posty: 554
Wysłany: 13-03-2019, 11:13   

No trochę przedobrzyłeś. LastColumn zwraca ci wartość liczbową, a Range standardowo oczekuje liter. W cudzysłowy i apostrofy nawet nie próbuję się wczytywać, bo to już w ogóle masakra.
Range musimy podać komórki skrajne. Z tego co mamy formy tekstu tego nie zrobimy, wiec trzeba się wspomóc Cells.
Jeśli dobrze odczytuje twoje plany, to powinieneś to zapisać:
Kod:
Range(Cells(LastRow - 5, LastColumn), Cells(LastRow, LastColumn + 5)).Select

a przy okazji musisz zadbać by żaden z parametrów dla Cells nie spadł poniżej 1 i był liczbą całkowitą.

EDIT: Za długo pisałem :/
ID posta: 364103 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