🚀 go-pugleaf

W dniu 2010-04-09 21:31, Piotr K. pisze:
> Witam,
>
> mam taki problem,
> co nalezy wpisac w kodzie VBA aby po kliknięciu w przycisk w jednym
> arkuszu, zaznaczenie komórki zostało przesunięte do konkretnej pozycji w
> innym arkuszu.
>
> inaczej mowiac w jednym arkuszu mam przycisk, wciskam go i w innym
> arkuszu zaznaczenie przechodzi w konkretne miejsce,
>
> pozdr. i z gory dzieki za pomoc,
> Piotr


Piszę z głowy więc sprawdź poprawność:

Sheets("Arkusz 2").Cells(rząd,kol).Acivate

czyli musisz wskazać drugi obiekt w tym wypadku np. Arkusz2, tam w 
podając wspólrzedne konkretnej komórki,aktywujesz ją. Pamietaj o 
powrocie do pierwotnego arkusza. Czyli prawie to samo tylko, ze "Arkusz 
1" i jakieś współrzędne kom.
Jeśli masz tam więcej do zrobienia, to możesz użyć składni:

With Sheets("Arkusz 2")
	cells(x,y) = s
	.........
End With
					lub

Set s1=Shets("Arkusz 1")        'operacje w pierwszym arkuszu
Set s2=Shets("Arkusz 2")	'operacje w pierwszym arkuszu
	s2.Cells(x,y)= yyyyyy	'2 arkusz
	s1.Cells(f,g)=s2.Cells(x,y)	'np. przyrównanie kom z 2 ark do kom z 1ark
	itp. itd.
	s1.activate			'pozostań w ark 1

Mniej więcej tak można do tego podejść na szybko.
O ile się nie walnąłem? Śpiący już jestem  nie chce mi się sprawdzać 
syntaktycznie :-)

Oczywiście wstawiasz sobie tą linijkę do procedury i podpinasz skrót 
klawiszowy, lub "przycisk" na ekranie wedle uznania.