VBA.Mania

Dziś jest sobota, 27 kwietnia 2024 roku.

Powrót do serwisu

Regulamin

RSS

	tytuł wątku:
Wątki dyskusji	Kopiowanie stałych danych otwarty rozpoczął: toczi1 postów: 5

napisał: toczi1 postów: 75 umieszczony: 20 października 2016 20:13
	Działa wszystko robi tak jak należy. Dzięki wielkie Trebor Cytat: Wypróbuj kod: Sub kopiowanie() Dim kolumna_zapisu As Long, wiersz_zapisu As Long With Sheets("DQR Logbook") kolumna_zapisu = .Cells(11, .Columns.Count).End(xlToLeft).Column + 2 .Range("C11:D33").Copy .Cells(11, kolumna_zapisu) End With With Sheets("Over Inspection Record") wiersz_zapisu = .Cells(.Rows.Count, 1).End(xlUp).Row + 2 .Range("A3:M10").Copy .Cells(wiersz_zapisu, 1) .Range("B" & wiersz_zapisu) = "='DQR Logbook'!R11C" & kolumna_zapisu & "" .Range("I" & wiersz_zapisu) = "='DQR Logbook'!R12C" & kolumna_zapisu & "" .Range("M" & wiersz_zapisu + 1) = "='DQR Logbook'!R14C" & kolumna_zapisu & "" End With End Sub

napisał: Trebor postów: 1209 umieszczony: 20 października 2016 19:02
	Wypróbuj kod: Sub kopiowanie() Dim kolumna_zapisu As Long, wiersz_zapisu As Long With Sheets("DQR Logbook") kolumna_zapisu = .Cells(11, .Columns.Count).End(xlToLeft).Column + 2 .Range("C11:D33").Copy .Cells(11, kolumna_zapisu) End With With Sheets("Over Inspection Record") wiersz_zapisu = .Cells(.Rows.Count, 1).End(xlUp).Row + 2 .Range("A3:M10").Copy .Cells(wiersz_zapisu, 1) .Range("B" & wiersz_zapisu) = "='DQR Logbook'!R11C" & kolumna_zapisu & "" .Range("I" & wiersz_zapisu) = "='DQR Logbook'!R12C" & kolumna_zapisu & "" .Range("M" & wiersz_zapisu + 1) = "='DQR Logbook'!R14C" & kolumna_zapisu & "" End With End Sub

napisał:

toczi1
postów: 75

umieszczony:
20 października 2016
03:29

nazwa pliku	rozmiar
plik makro.xlsm	46.30 kB

Zrobiłem tak jak chciałeś po kliknięciu " Otwórz nowy " doda nowy wpis w jednym i drugim arkuszu,
Teraz bym chciał żeby dodawało w pierwszym arkuszu "DQR Logbook" w kolejna wolna kolumnę obok dodanej, a w arkuszu "Over Inspection Record" co dodaje z góry w dol to żeby dodawało tak samo w kolejny pusty wiersz tylko z odstępem jednego wiersza.

Z góry dzięki za pomoc

Pozdrawiam

napisał: Trebor postów: 1209 umieszczony: 19 października 2016 16:32
	Wykonaj dwa kopiowania dla każdego arkusza z ręcznym poprawieniem odnośników. Zamieść taki skoroszyt na forum.

napisał:

toczi1
postów: 75

umieszczony:
19 października 2016
12:37

nazwa pliku	rozmiar
plik makro.xlsx	37.02 kB

Witam Trebor
Potrzebował bym aby zaznaczone w arkuszach kolorem zielonym zakresy były kopiowane w arkuszu 1 w lewo cały zakres i w 2 arkuszu w dół cały zakres z zachowaniem formatów i formuł śledzących. W 2 arkuszu przy 3 komórkach masz komentarze o co chodzi .

Chodzi mi żeby po kliknięciu tworzyło następna kopie tego zaznaczonego i podbierało do 2 arkusza łączę w te 3 komórki jak stworzy nowy wpis u dołu .

wstecz 1 dalej

wszystkich stron: 1