[VBA][Excel] makro kopiujące komórkę z arkusza1 do arkusza2

capone · Post autor: **capone** » 12 gru 2015, o 21:19

Witam,
Potrzebuję wykonać pewnie niezbyt trudne makro, ale utknąłem w martwym punkcie.

Chcę, aby makro po kliknięciu przycisku wykonało nastepujące operacje:
1. przejdź do komórki H1 w arkuszu1 i skopiuj wartość.
2. wartość z H1 jest jednocześnie wartością do wklejenia w arkuszu2 w kolumnie A oraz wyznacznikiem wiersza, w którym wartość ma być wklejona.
3. wróć do arkusza1 pobierz wartość z komórki C2 i wpisz ją w arkusz2 do komórki w kolumnie B w rzędzie równym wartości komórki H1 w arkuszu1.
4. wróć do arkusza1 pobierz wartość z komórki D3 i wpisz ją w arkusz2 do komórki w kolumnie C w rzędzie równym wartości komórki H1 w arkuszu1..
5.Wydrukuj pierwszą stronę z arkusza1 i zapisz zmiany w całym pliku excela. (pozostaw plik otwarty)

Zacząłem i mam tyle:

Kod: Zaznacz cały

Sub zapisuj()
Range("H1").Select
gdzie = ActiveCell.Value
Worksheets("arkusz3").Select
Range(ActiveCell.Value, 1).Value = ActiveCell.Value

End Sub

ale nie mam pojęcia dlaczego Debuger nie trawi mojej ostatniej linijki

Pomóżcie.

PiotrowskiW · Post autor: **PiotrowskiW** » 12 gru 2015, o 21:25

Wydaje mi się, ze zamiast Range w linii 5. ma być Cells aby to robiło to czego teraz nie robi.
Pomijając to wszystko, czy tu nie ma błędu (logicznego?!), bo wiersze i kolumny numeruje się od 1, tymczasem pusta komórka h1 oznacza zero...

capone · Post autor: **capone** » 12 gru 2015, o 21:27

Nie przepuszcza.

a4karo · Post autor: **a4karo** » 12 gru 2015, o 21:27

Wskazówka: nagraj sobie to makro i zobacz jak wygląda kod

capone · Post autor: **capone** » 12 gru 2015, o 21:30

oczywiście tak zrobiłem i nie zadawałbym tego pytania, gdyby nie małe ale: nie mogę nagrać makra, które będzie uzależniało numer wiersza docelowego od wartości komórki w arkuszu1.

a kod z nagranego jak zmieniam, to tez nie działa

a4karo · Post autor: **a4karo** » 12 gru 2015, o 21:39

A na co wskazuje ActiveCell po linii 4?
Może 5 lepiej napisać

Kod: Zaznacz cały

Worksheets("arkusz2").cells(gdzie,1).value=gdzie

capone · Post autor: **capone** » 12 gru 2015, o 21:49

nie, ale już doszedłem, że dla liczb będzie działalo Value2 a nie Value - jeszcze nie zgłębiłem w czym różnica.

SlotaWoj · Post autor: **SlotaWoj** » 12 gru 2015, o 23:56

capone pisze:oczywiście tak zrobiłem i nie zadawałbym tego pytania, gdyby nie małe ale: nie mogę nagrać makra, które będzie uzależniało numer wiersza docelowego od wartości komórki w arkuszu1.

a kod z nagranego jak zmieniam, to tez nie działa

Nagraj makro, a później zmodyfikuj instrukcje wyboru przed wstawianiem tak:

Kod: Zaznacz cały

    Range("H1").Select
    H1Value = Selection.Value
    Selection.Copy
    Sheets("Arkusz2").Select
    Range("A" & H1Value).Select
    ActiveSheet.Paste
    ...

OShon · Post autor: **OShon** » 23 gru 2015, o 23:20

Nagrywanie makr to tylko gra wstępna. Nagrywarka rejestruje dokładne kroki, których w większości nie są wam potrzebne. Usunięcie poleceń takich jak Select czy Activete jest niezbędne, ponieważ opóźnia to realizację kodu przez "miganie". Należy tego uniknąć.

Zasada jest prosta. Kopiowanie może być realizowane na 2 sposoby.
Pierwszy to polecenie Copy, które korzysta z pamięci i umożliwia kopiowanie większych obszarów.

Kod: Zaznacz cały

Sheets("Arkusz2").Range("D7").Copy Sheets("Arkusz1").Range("B5")

Drugie to przypisanie danych z jednego miejsca do drugiego, gdzie w tym przypadku 1:1 będzie szybsze.
Tutaj wg głównej zasady prawa strona równania to źródło, a lewe to miejsce docelowe.

Kod: Zaznacz cały

Sheets("Arkusz1").Range("B5") = Sheets("Arkusz2").Range("D7")

Obydwa kody realizują ten sam cel. Proszę dostosować sobie do swoich potrzeb.
Następnym etapem wtajemniczenia to deklaracje zmiennych i zmiennych obiektowych. Tworzenie wiązań i pętli aby takie kopiowanie realizować seryjnie. Zainteresowanych zapraszam.