Cezary Buras

Cezary Buras Student, Uniwersytet
Ekonomiczny w
Krakowie

Temat: Kopiowanie i wklejanie wielu komórek

Witam,

Chciałem zapytać czy istnieje może możliwość
1)zaznaczenia kilku komórek
2)klikniecie w dowolne komórki puste, w które chce wkleić zawartośc komórek już skopiowanych
3)wklejenie komórek
Spędziłem sporo czasu nad szukanie rozwiązania, ale niestety nie mogę sobie z tym poradzić. Byłbym bardzo wdzięczny za ewentualną pomoc.

Pozdrawiam,

Cezary Buras

konto usunięte

Temat: Kopiowanie i wklejanie wielu komórek

Może nie jest to najpiekniejszy kod, ale generalnie spełnia swoją funkcję.
Zaznaczasz komórki do skopiowania, uruchamiasz makro, zaznaczasz puste komórki gdzie mają być wklejone dane.

Sub KopiujNieciaglyZakresKomorek()
Dim PustyZakres As Range
Dim PustaKomorka As Range
Dim PelnaKomorka As Range

Set PustyZakres = Application.InputBox("Wskaz puste komórki", Type:=8)

For Each PelnaKomorka In Selection
For Each PustaKomorka In PustyZakres
If PustaKomorka = "" Then
PustaKomorka = PelnaKomorka
GoTo n1
Else
GoTo n
End If
n: Next
n1: Next
End SubTen post został edytowany przez Autora dnia 03.07.14 o godzinie 09:36
Cezary Buras

Cezary Buras Student, Uniwersytet
Ekonomiczny w
Krakowie

Temat: Kopiowanie i wklejanie wielu komórek

Bardzo dziekuje za pomoc !



Wyślij zaproszenie do