VBA.Mania

vbamania.pl

Dziś jest sobota, 18 maja 2024 roku.

Ustaw jako stronę startową

Ulubione

Napisz

Powrót

Powrót do serwisu

Regulamin

RSS

	tytuł wątku:
Wątki dyskusji	Kopiowanie określonych wierszy i wklejanie jeden pod drugim otwarty rozpoczął: arhetyp postów: 4

napisał: crespiom postów: 43 umieszczony: 26 października 2009 12:05
	Sory zapomniełem THEN Cytat: Witam, Jestem początkującym użytkownikiem VBA pod Excel, moje pytanie jest następujące. jak zrobić, aby skopiować z Arkusza1 wszystkie wiersze, dla których w kolumnie "I" jest wartość 160 i wrzucić je jeden pod drugim do Arkusza2. Pozdrawiam, Arek Dim i as Long Do While Worksheets("Arkusz1").Cells(i, 9) <> "" If Worksheets("Arkusz1").Cells(i, 9).Value = 160 Then Worksheets("Arkusz1").Rows(i).Copy Destination:=Worksheets("Arkusz2").Range("A65536").End(xlUp) End If i = i + 1 Loop Pozdrawiam

napisał: crespiom postów: 43 umieszczony: 26 października 2009 12:03
	Cytat: Witam, Jestem początkującym użytkownikiem VBA pod Excel, moje pytanie jest następujące. jak zrobić, aby skopiować z Arkusza1 wszystkie wiersze, dla których w kolumnie "I" jest wartość 160 i wrzucić je jeden pod drugim do Arkusza2. Pozdrawiam, Arek Dim i as Long Do While Worksheets("Arkusz1").Cells(i, 9) <> "" If Worksheets("Arkusz1").Cells(i, 9).Value = 160 Worksheets("Arkusz1").Rows(i).Copy Destination:=Worksheets("Arkusz2").Range("A65536").End(xlUp) End If i = i + 1 Loop Pozdrawiam

napisał: sigmo postów: 1 umieszczony: 21 lipca 2009 18:24
	Cytat: Witam, Jestem początkującym użytkownikiem VBA pod Excel, moje pytanie jest następujące. jak zrobić, aby skopiować z Arkusza1 wszystkie wiersze, dla których w kolumnie "I" jest wartość 160 i wrzucić je jeden pod drugim do Arkusza2. Pozdrawiam, Arek Hmm na moje oko :) To najlepiej używać licznika (np i) które na początku stawiasz na 1. Po znalezieniu odpowiedniej komórki (w twoim przypadku komórki o wartości "160") zaznaczasz i kopiujesz cały wiersz do innego arkusza w wierszu i-tym - po skopiowaniu inkrementujesz i. I znowu jak znajdziesz kolejna komórke skopiujesz ją do innego arkusza do wiersza o i-tej współrzędnej (czyli i=2) znowu inkrementujesz i. I tak dalej, i dalej... Dzisiaj będę robił coś podobnego - gdybyś miał z tym problemy to pisz! Pozdrawiam

napisał: arhetyp postów: 3 umieszczony: 15 lipca 2009 08:47
	Witam, Jestem początkującym użytkownikiem VBA pod Excel, moje pytanie jest następujące. jak zrobić, aby skopiować z Arkusza1 wszystkie wiersze, dla których w kolumnie "I" jest wartość 160 i wrzucić je jeden pod drugim do Arkusza2. Pozdrawiam, Arek

wstecz 1 dalej

wszystkich stron: 1