[Miszcz_Joda]

Jest tu jakiś magik od excela i VBA, bo chyba wlasnie poleglem i nie wiem jak dalej przez to przejsc... wystarczy, ze wpisze w funkcje "Range" "Cells" i VBA juz wyrzuca błąd. Musze zastosować funkcje cells do okreslenia zakresu komorek.

#excel #programowanie #vba

[c.....s]

@Miszcz_Joda: jak dasz .select zamiast .copy to dalej blad?

[Miszcz_Joda]

@cohontes: dokladnie na poczatku dawlem select, potem zaczalem zmieniac na copy i caly czas wyrzuca blad po wrzuceniu adresu komorki w postaci cells

[Miszcz_Joda]

ogolnie kod wyglada mniej wiecej tak:

lastcodecopy = Worksheets("skanowanekody").Range("A12")

Range(Cells(2, 6), Cells(lastcodecopy + 2, 6)).Select

[1001001]

@Miszcz_Joda:

Możesz spróbować coś takiego:

dim ws as Worksheet
set ws

[brak_nicku]

@Miszcz_Joda: Kod na screenie wywala błąd, ponieważ właściwość Range dotyczy arkusza, który podałeś, natomiast właściwości Cells - skoro nie mają podanego arkusza - dotyczą innego arkusza (a którego dokładnie, to zależy od rodzaju modułu w którym kod się znajduje).
Zatem kod powinien wyglądać tak:

Worksheets("skanowane_kody").Range(Worksheets("skanowane_kody").Cells(2, 7), Worksheets("skanowane_kody").Cells(2, 7)).PasteSpecial ....

Wygląda dość paskudnie, dlatego są 2 wyjścia:
a) przypisać arkusz do zmiennej (jak sugerowane wyżej),

[Miszcz_Joda]

@1001001: dziekuje za podpowiedz
@brak_nicku: tez wyczytalem te rozwiazanie po pol dnia czytania, teraz smiga az milo, dziekuje za pomoc :)

Range(Worksheets("skanowanekody").Cells(2, 6), Worksheets("skanowanekody").Cells(lastcodecopy + 2, 6)).Copy
Worksheets("skanowane_kody").Range("G2").PasteSpecial Paste:=xlPasteValues

[brak_nicku]

teraz smiga az milo, dziekuje za pomoc :)

@Miszcz_Joda: Nie ma za co, to że działa to najważniejsze, ale mogę też udzielić paru wskazówek, które ułatwią życie w przyszłości.

1) W zaprezentowanym (krótkim) kodzie masz sporo magic numbers. "G2", "A12", 2, 6. Teraz przychodzi moment, gdy trzeba dostawić kolumnę z lewej strony, albo wiersz u góry i trzeba przeglądać i poprawiać kod. Przy kilku linijkach to żaden problem, ale gdy

[Miszcz_Joda]

@brak_nicku super dziękuję za rady, na pewno mi sie przydadzą. Mam tez pytanie. Jesli nazwe w arkuszu komórkę np. "kodkreskowy" potem w kodzie VBA umieszcznie ten adres powiedzymy. .... Range("kodkreskowy").... I następuje taka sytuacja, ze wcześniej kodkreskowy byl pod komórka A5 a teraz usuwam z tamtej komorki te nazwe i nazywam tak komórkę B5 to rozumiem, ze wtedy kod z automatu odniesie się do nowej komórki?

[brak_nicku]

@Miszcz_Joda: tak, kod będzie zawsze korzystał z aktualnego adresu przypisanego do nazwy - bez względu na to, czy adres zmieni się po zmianie struktury arkusza, czy też autor postanowi zmienić lokalizację

[Miszcz_Joda]

@brak_nicku ta wskazówka mi sie bardzo przyda