GoldenLine
Zaloguj się
Karol W.

Karol W. Technik Logistyk

Temat: Makro uzupełniające kolumnę

Potrzebuję napisać makro, które:

A2=Formuła
zaznaczanie komórki A3
kopiowanie formuły z A2 do A3
Kopiowanie z A3 do A3 jako wartość
przejście do A4
opiowanie formuły z A2 do A4
Kopiowanie z A4 do A4 jako wartość

itd. w pętli aż do określonego wiersza
Link do wypowiedziLink
Tomasz Zarzyka

Tomasz Zarzyka X-mart, właściciel

Temat: Makro uzupełniające kolumnę

możesz tak



Sub KopiaFormul()



Dim r As Long

Dim Ost As Long



Application.ScreenUpdating = False



Ost = 10 ' wstaw numer wiersza, do którego chcesz kopiować



Range("A2").Copy Range("A3:A" & Ost)



Range("A3:A" & Ost).Copy

Range("A3").PasteSpecial xlValues

Application.CutCopyMode = False



End Sub
Link do wypowiedziLink
Tomasz Orlikiewicz

Tomasz Orlikiewicz Student, Uniwersytet
Warszawski

Temat: Makro uzupełniające kolumnę

To trochę bez sensu jest, bo przecież to wszystko można zrobić "ręcznie" poświęcając na to 5 sekund (kopiując formułę do wszystkich wierszy, a potem wklejając ją jako wartości).
Wyjdzie nawet szybciej niż w przypadku makra, bo makro za każdym razem trzeba będzie edytować (bo rozumiem, że dane będą kopiowane raz do 50 wiersza, raz do 80 wiersza, etc.). Ewentualnie można w dodatkowym arkuszu wpisać odpowiednią formułę, która będzie podawała w wyniku liczbę wierszy, do których trzeba skopiować formułę,, ale to miałoby sens tylko i wyłącznie w sytuacji w której wszystkie operacje miałyby miejsce cały czas na tym samym arkuszu. Jeśli będą używane inne arkusze, to tak czy siak trzeba będzie formułę zmieniać (bo zmieni nam się nazwa arkusza).
Link do wypowiedziLink
Karol W.

Karol W. Technik Logistyk

Temat: Makro uzupełniające kolumnę

Dziękuję Panu Tomaszowi za kod
Lekko go zmodyfikowałem pod moje potrzeby I sprawdza się wyśmienicie.

Co do odpowiedzi powyżej, funkcje są podane dla kolumn A:AY do uzupełnienia ponad kilkadziesiąt milionów linii, dziele ie systematycznie na kilkaset tysięcy, zwykle przeciąganie funkcje powodowało wysypywanie się programu.
Dzięki temu makru zwiększam szybkość i stabilność.
Link do wypowiedziLink
Andy L.

Andy L. ITM, VUB

Temat: Makro uzupełniające kolumnę

te kilkadziesiąt milonów linii to chyba przesada :)))))
Rozmiar arkusza 1 048 576 wierszy na 16 384 kolumn
Link do wypowiedziLink
Karol W.

Karol W. Technik Logistyk

Temat: Makro uzupełniające kolumnę

Otóż nie. dlatego będzie to rozbite na "parę" arkuszy.
Link do wypowiedziLink
Karol W.

Karol W. Technik Logistyk

Temat: Makro uzupełniające kolumnę

Otóż nie. dlatego będzie to rozbite na "parę" skoroszytów :)
Link do wypowiedziLink
Andy L.

Andy L. ITM, VUB

Temat: Makro uzupełniające kolumnę

Raczej otóż tak bo informacja (jakakolwiek by ona nie była) nie zawiera odniesienia do "paru" skoroszytów tylko do kolumn A:AY. Czyli jest nieprecyzyjna.
Link do wypowiedziLink
« Wróć do tematów
Odpowiedz

Podobne tematy


Następna dyskusja:

ADO olewa mi jedną kolumnę




Wyślij zaproszenie do
Anuluj