VBA przenosi wartość z formuły do kolejnej kolumny

Witam siedzę już drugi dzień nad tą formuła i dalej nie widzę rozwiązania. Chodzi mi o to żeby przenosiło wynik z formuły do np. sąsiedniej kolumny(zwracało w postaci wartości). Dobrze byłoby gdyby każdy kolejny wynik przeliczenia formuły przenosiło do kolejnej kolumny (n+1). Do tej pory udało mi się ustalić następujący kod:




Dim tmp

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 4 Then
Target.Offset(0, 1 + n).Formula = tmp
n = n + 1
End If

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
tmp = Target.Value
End Sub

Zwraca mi wynik z poprzedniej wartość ale gdy zamiast wartości podstawiam formułę nie ma efektu.

np dla kolumny A będzie to tak:

Bardzo dziękuje za szybką i treściwą odpowiedź. Zauważyłem jednak, że gdy zmieniam dane, z których kolumna A pobiera dane do przeliczenia przy drugim wprowadzeniu danych, w samej kolumnie A otrzymuje prawidłowy wynik, natomiast w kolumnie B cały czas jest wynik z pierwszego przeliczenia.

Na załączonym arkuszu mam nadzieje, że uda mi się lepiej omówić problem. Zależy mi aby za każdym razem kiedy zmienię dane w kolumnach wsadowych C i D, wartość przeliczenia kolumnę E zwracało np. do kolumny G, a każde kolejne podstawienie danych wsadowych przenosiło wartość z kolumny E do następnej kolumny (G+1,G+2,...,G+n). Dobrze by było gdyby zwracało również datę z przeliczenia. Najlepiej gdyby przeniesienie danych nie odbywało się automatycznie tylko za pomocą skrótu klawiszowego.

Jeżeli dobrze wszystko rozumiem, to wszystko wydaje się być prostsze niż na początku to opisywałeś.
Otóż w nowym module wklejasz to:

Skrót klawiszowy ustawisz sobie w menu "Makra" klikasz na swoje makro i naciskasz w menu "opcje" tam ustawiasz skrót klawiszowy.
Warto problem opisać od początku do końca tak jak ma być, bo tak to podwójna robota.

Kod jest jak najbardziej poprawny, tylko identyczne rozwiązanie dostane przy zastosowaniu makra. Mi natomiast najbardziej zależy aby każde kolejne naciśnięcie skrótu klawiszowego crtl+a przenosiło o jedną kolumnę dalej ("G:G"+1,"G:G"+2,..."G:G"+n), czy jest możliwe zastosowanie takiego ciągu??

Dodaj zmienna globalną i za każdym razem ją powiększaj
(zwróć uwage gdzie jest deklaracja zmiennej "i" - to ważne)

Skonstruowałem następujący kod niestety wciąż nie wiem jak rozwiązać problem aby przy naciśnięciu skrótu Ctrl+Shift+A przenosiło wartość tylko o jedną kolumnę, a nie od kolumny 7 do 106.

Ale nic się nie uczysz. i nie czytasz ze zrozumieniem.

Jeszcze raz zaznaczę: musisz ustawić zmienną globalną która będzie pamiętana poza działającą procedurą.
Zwróć uwagę gdzie jest deklaracja zmiennej "i" w moim kodzie a gdzie w twoim. (gdzie jest deklaracja a gdzie początek procedury)

Cytat:

... aby przy naciśnięciu skrótu Ctrl+Shift+A przenosiło wartość tylko o jedną kolumnę, a nie od kolumny 7 do 106.

To po co wprowadziłeś do kodu pętlę FOR robiącą 100 obrotów za każdym razem zmieniając wartość zmiennej "i" o jeden?
Tak jak napisałeś tak się procedura wykonuje.

Wklej mój kod do modułu i przypisz mu (poprzez menu makr) skrót klawiszowy i sprawdź jak działa.

Pozostaje jedna kwestia:
W przypadku mojego kodu numer kolumny jest pamiętany tylko do momentu zamknięcia arkusza excelowskiego.
Jeżeli go ponownie otworzysz znów zacznie liczyć od 1

Jeżeli wklejenie do odpowiedniej kolumny miało by być pamiętane po ponownym włączeniu skoroszytu, czyli skopiowałeś już do 50 kolumny zamykasz zeszyt a w następnym dniu otwierasz go ponownie i chcesz kopiować dalej już od 51 kolumny itd., trzeba wartość zmiennej "i" zapisywać do którejś komórki (np w dodatkowym arkuszu "Pomoc"). Czyli trzebaby było zmienić kod makra.
Wtedy zmienna nie musiałaby być globalna, ale jej wartość musiała by być gdzieś przetrzymywana. Najlepiej tak jak pisałem w dodatkowym arkuszu pomocniczym (lub pomocniczej komórce w aktualnych arkuszach - taka komórka celu).

Faktycznie stosując zmienna globalną poza procedurą otrzymuje zadowalający mnie efekt.

Bardzo dziękuje za pomoc.