Elektroda.pl
Elektroda.pl
X
Proszę, dodaj wyjątek www.elektroda.pl do Adblock.
Dzięki temu, że oglądasz reklamy, wspierasz portal i użytkowników.

VBA - Przeciąganie funkcji do ostatniej komórki

paweltsg 26 Lis 2013 11:15 2925 7
  • #1 26 Lis 2013 11:15
    paweltsg
    Poziom 2  

    Witam,

    Nie mogę znaleźć rozwiązania dla "przeciągnięcia" funkcji do ostatniej pełnej komórki w VBA. Jedyne co udaje mi się zrobić to wpisania kodu "na sztywno":

    Kod: vb
    Zaloguj się, aby zobaczyć kod


    Prośba o pomoc jak zamienić: Selection.AutoFill Destination:=Range("E2:E18") na "do ostatniej komórki"

    0 7
  • #2 26 Lis 2013 12:45
    fascynat
    Poziom 24  

    Może to Ci pomoże. znajduje ostatnią pełną komórkę w ostatnim wierszu i w ostatniej kolumnie:

    Kod: vb
    Zaloguj się, aby zobaczyć kod

    0
  • #3 26 Lis 2013 12:47
    cbrman
    Poziom 27  

    Musisz wyznaczyć ostatnią zapisaną komórkę w danej kolumnie, przykład dla kolumny D:

    Kod: vb
    Zaloguj się, aby zobaczyć kod

    Później wpisujesz do zakresu E2:E Ostatnia_Zapisana_Komórka Twoją formułę:
    Kod: vb
    Zaloguj się, aby zobaczyć kod

    0
  • #4 26 Lis 2013 12:56
    fascynat
    Poziom 24  

    cbrman napisał:
    Musisz wyznaczyć ostatnią zapisaną komórkę w danej kolumnie, przykład dla kolumny D:
    Kod: vb
    Zaloguj się, aby zobaczyć kod

    Później wpisujesz do zakresu E2:E Ostatnia_Zapisana_Komórka Twoją formułę:
    Kod: vb
    Zaloguj się, aby zobaczyć kod


    cbrman wydaje mi się, że jeżeli będzie pusta komórka lub kilka w ciągu danych, to raczej Twój kod nie zadziała. Pokaże adres niepustej komórki przed pierwszą pustą.
    Dodatkowo paweltsg nie napisał niestety, czy chodzi mu o kolumnę, czy wiersz.

    0
  • #5 26 Lis 2013 13:22
    paweltsg
    Poziom 2  

    @cbrman

    Działa! Ale mam jeszcze problem ze zwykłym przeciągnięciem funkcji *3,2 (mnóż komórkę przez 3,2)

    Zrobiłem tak:
    Zdefiniowałem na poczatku zmienną:

    Kod: vb
    Zaloguj się, aby zobaczyć kod


    i przeciągnięcie:
    Kod: vb
    Zaloguj się, aby zobaczyć kod


    Gdzie jest tutaj błąd, bo to nie działa :?:

    0
  • #6 26 Lis 2013 18:30
    101pawel
    Poziom 25  

    paweltsg napisał:

    Kod: vb
    Zaloguj się, aby zobaczyć kod
    Gdzie jest tutaj błąd, bo to nie działa :?:

    Ustaw kursor na słowie Destination i naciśnij F1
    :wink:
    Pozdrawiam

    0
  • Pomocny post
    #7 27 Lis 2013 08:33
    cbrman
    Poziom 27  

    paweltsg napisał:
    i przeciągnięcie:
    Kod: vb
    Zaloguj się, aby zobaczyć kod


    Gdzie jest tutaj błąd, bo to nie działa :?:


    Nie wiem dlaczego się uparłeś na metodę autofill?
    Ten problem możesz rozwiązać następującymi metodami:
    1. W cały podany zakres wpisujesz Twoją formułę:
    Kod: vb
    Zaloguj się, aby zobaczyć kod

    2. Jeśli tak bardzo chcesz użyć wypełniania, to najpierw musisz wpisać Twoją formułę w pierwszą komórkę zakresu:
    Kod: vb
    Zaloguj się, aby zobaczyć kod

    a później "przeciągnąć" ją w dół do końca zakresu:
    Kod: vb
    Zaloguj się, aby zobaczyć kod

    0
  • #8 27 Lis 2013 08:49
    paweltsg
    Poziom 2  

    Dzięki cbrman działa :D

    0