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	Szukanie 1 pustej komórki i wklejanie tabelki otwarty rozpoczął: 4est04 postów: 3

napisał: 4est04 postów: 2 umieszczony: 28 sierpnia 2008 22:38 edytowany: 29 sierpnia 2008 11:06
	Hej :) Generalnie sytuacja troszke sie zmienila . Teraz robie to przy pomocy kwerendy Importuj dane zewnetrzne => Nowa kwerenda sieci WEB. Wystarczy raz przeleciec caly cennik dostawcy i potem odswiezac. Takze nie jest juz mi ta komenda na "gwalt" potrzebna. Ale moze sie przydac komus innemu dlatego jeszcze raz dokladnie wytlumacze . Zaluzmy ze chcemy skopiowac wszystkie aukcje na Allegro znajdujace Allegro › Dom i Ogród › Rękodzielnictwo › Filcowanie Potrzebujemy z kazdej aukcji potrzebujemy Nazwa, Cena, z dostawą, Ofert oraz Do końca . Zaznaczamy myszka na stronie Kategotii robimy Ctrl+C i chcemy teraz to wkleic specjalnie aby nie bylo obrazkow w Excelu , najlepiej przy pomocy Ctrl+V . Do tego jest pierwsza czesc makro. Po czym przechodzimy na kolejna strone na allegro i zaznaczamy i chcemy w Excelu aby byla juz zaznaczona odpowiednia komorka , zeby nie trzeba bylo szukac docelowego miejsca wklejenia. I w tym tkwi problem ze sie wkleja ponownie w tym samym miejscu a nie nizej. Juz sie wszysko udalo. A oto jak powinno to wygladac Cytat: Sub Makro1() Dim iWiersz As Integer ActiveSheet.PasteSpecial Format:="Tekst", Link:=False, DisplayAsIcon:= _ False iWiersz = 1 While (Cells(iWiersz, 1) <> "") iWiersz = iWiersz + 1 Wend Range(Cells(iWiersz, 1), Cells(iWiersz, 1)).Select End Sub

napisał: Trebor postów: 1209 umieszczony: 28 sierpnia 2008 14:38
	Wskaż stronę i miejsce, w którym znajdują się dane kopiowane. Wykonanie tego nie powinno nastręczać wielu kłopotów (czytałem wyjaśnienia na CodersCity) Hej

napisał: 4est04 postów: 2 umieszczony: 27 sierpnia 2008 22:10
	Hej! Codziennie w pracy wykonuję czynność którą dobrze by było usprawnić. Chodzi o to że kopiuje ze strony(za każdym razem z innej) tabelkę i wklejam ją w Excelu. Czynność powtarzam wielokrotnie. Oczywiście jedna pod drugą w jednym pliku. I chciałbym aby dało się wklejać przy pomocy kombinacji klawiszy. Oraz aby kursor sam sie ustawiał w którym miejscu ma wkleic dane. Powiedzcie co robie nie tak Cytat: Sub Makro1() Dim iWiersz As Integer 'Według mnie szukanie pierwszej pustej komórki iWiersz = 1 While (Cells(iWiersz, 2) <> "") iWiersz = iWiersz + 1 Wend `Zaznaczanie komórek w wierszu Range(Cells(iWiersz, 1), Cells(iWiersz, 6)).Select `Wklejanie specjalne tabelki ActiveSheet.PasteSpecial Format:="Tekst", Link:=False, DisplayAsIcon:= _ False End Sub

wstecz 1 dalej

wszystkich stron: 1