GoldenLine
Zaloguj się
Jacek Cetnarski

Jacek Cetnarski Data Analyst

Temat: szybkie kopiowanie danych w poziomie

Podwojne klikniecie w prawym dolnym rogu komorki powoduje skopiowanie w pionie. Czy istnieje rownie szybka opcja kopiowania ale w poziomie?
Link do wypowiedziLink

konto usunięte

Temat: szybkie kopiowanie danych w poziomie

Może nie aż tak szybka ;)

Sub kopiujwpoziomie()
Dim ilekolumn As Long
Dim i As Long

ilekolumn = InputBox("Podaj ilość kolumn do skopiowania danych")

For i = 1 To ilekolumn
ActiveCell.Offset(0, i) = ActiveCell
Next
End Sub
Link do wypowiedziLink
Mariusz Jankowski

Mariusz Jankowski Programista
Excel/VBA

Temat: szybkie kopiowanie danych w poziomie

Tomasz - mam kilka uwag odnośnie kodu.

1. Co w sytuacji gdy user kliknie Anuluj lub zamknie okienko nie wpisując nic?
2. Co w sytuacji gdy user wpisze tekst?
3. Co wtedy gdy kolumn jest 256 (Ex 2003) a user wpisze np. 500?
4. Co wtedy gdy aktywna komórka znajduje się w ostatniej kolumnie tabeli?
5. Co wtedy gdy obok aktywnej komórki znajdują się ważne dane?
6. InputBox zwraca zawsze wartość typu String, nawet wtedy gdy user niczego nie wpisał, może zamiast tego lepiej zastosować bardziej zaawansowaną metodę InputBox obiektu Application i zmusić użytkownika do podawania tylko liczb? :-)Mariusz Jankowski edytował(a) ten post dnia 22.10.11 o godzinie 19:36
Link do wypowiedziLink

Wojciech Gardziński

Wypowiedzi autora zostały ukryte. Pokaż autora
Mariusz Jankowski

Mariusz Jankowski Programista
Excel/VBA

Temat: szybkie kopiowanie danych w poziomie

A skopiowanie w lewo? bo Ctrl+L tworzy listę.
Link do wypowiedziLink

konto usunięte

Temat: szybkie kopiowanie danych w poziomie

Mariusz, oczywiście wszyskie uwagi są jak najbardziej trafne i oczywiste z punktu widzenia piszącego aplikację... Natomiast moją intencją nigdy nie jest podawanie pytającemu wszystkiego na tacy ;) Jakaś wskazówka do dalszego kombinowania i samodzielnej pracy powinna być chyba wystarczająca?
Pozdr.
Link do wypowiedziLink

Wojciech Gardziński

Wypowiedzi autora zostały ukryte. Pokaż autora
Monika M.

Monika M. PROGRAMISTA VBA,
Excel, Access,
Outlook, Word -
SZKOLENIA

Temat: szybkie kopiowanie danych w poziomie

Wojciech Gardziński:
[Ctrl+R]

Ale "cza" zaznaczyć puste komórki w wierszu, aby skopiować formułę.
Jeszcze mamy Ctrl+D do kopiowania w dół, ale też na zaznaczonych komórkach.

W lewo można przez Narzędzia główne, sekcja Edycja, Wypełnienie, W lewo.
Link do wypowiedziLink
« Wróć do tematów
Odpowiedz

Podobne tematy


Następna dyskusja:

Kopiowanie danych z kilku p...




Wyślij zaproszenie do
Anuluj