Excel Forum - Porady, Pomoc,  Excel Help, Excel FAQ Strona Główna
 FAQ  RegulaminRegulamin  Szukaj   Użytkownicy   Grupy   Rejestracja   Profil   Twoje wiadomości   Zaloguj 


Poprzedni temat «» Następny temat
ID tematu: 63987 Skopiuj do schowka makro kopiujace dane w wierszu
Autor Wiadomość
ezq
Starszy Forumowicz


Posty: 46
Wysłany: 30-01-2019, 19:16   makro kopiujace dane w wierszu

Jak zmienić to makro aby zamiast kopiować dane z A1 do kolumny G kopiował je np. do wiersza 5.

Kod:
 Makro1 Makro
    Range("A1").Select
    Selection.Copy
    Range("g" & Rows.Count).End(xlUp).Offset(1).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub


Edit: mkkk23
Przy wpisywaniu kodów makr lub formuł używaj znaczników [code] (zgodnie z pkt. 3.1 Regulaminu naszego forum).
ID posta: 361601 Skopiuj do schowka
 
 
Marecki 
Excel Expert



Wersja: Win Office 2019
Pomógł: 2161 razy
Posty: 7149
Wysłany: 30-01-2019, 19:24   

Jaki opis - taki kod:
Kod:
Range("A1").Copy Range("G5")
_________________
Hardware - ta część komputera, którą można kopnąć kiedy software przestanie funkcjonować.

Szkolenia z Excela , FB
Office 2019 Professional Plus , Windows 10 x64
Pozdrawiam, były mkkk23 teraz Marecki.
ID posta: 361603 Skopiuj do schowka
 
 
Artik 



Wersja: Win Office 365
Pomógł: 2659 razy
Posty: 8828
Wysłany: 30-01-2019, 20:16   

Marecki, nie odciąłeś pępowiny?
Cytat:
Edit: mkkk23

:mrgreen:

Artik
_________________
Persistence is a virtue in the world of programming.
ID posta: 361607 Skopiuj do schowka
 
 
Marecki 
Excel Expert



Wersja: Win Office 2019
Pomógł: 2161 razy
Posty: 7149
Wysłany: 30-01-2019, 22:54   

Nooo, :mrgreen:
Niech w tym poście jeszcze zostanie :-) .
_________________
Hardware - ta część komputera, którą można kopnąć kiedy software przestanie funkcjonować.

Szkolenia z Excela , FB
Office 2019 Professional Plus , Windows 10 x64
Pozdrawiam, były mkkk23 teraz Marecki.
ID posta: 361619 Skopiuj do schowka
 
 
ezq
Starszy Forumowicz


Posty: 46
Wysłany: 31-01-2019, 08:31   

przepraszam że piszę niezrozumiale, załączam pliczek może trochę się rozjaśni

mak.xlsm
Pobierz Plik ściągnięto 22 raz(y) 18.28 KB

ID posta: 361629 Skopiuj do schowka
 
 
Marecki 
Excel Expert



Wersja: Win Office 2019
Pomógł: 2161 razy
Posty: 7149
Wysłany: 31-01-2019, 09:17   

Kod:
Range("A1").Copy Cells(2, Cells(2, Columns.Count).End(xlToLeft).Column + 1)
_________________
Hardware - ta część komputera, którą można kopnąć kiedy software przestanie funkcjonować.

Szkolenia z Excela , FB
Office 2019 Professional Plus , Windows 10 x64
Pozdrawiam, były mkkk23 teraz Marecki.
ID posta: 361634 Skopiuj do schowka
 
 
ezq
Starszy Forumowicz


Posty: 46
Wysłany: 31-01-2019, 19:33   

dzięki działa, kod wkleja komórke od kolumny B czy jest możliwość aby wklejał od kolumny A?
ID posta: 361681 Skopiuj do schowka
 
 
Marecki 
Excel Expert



Wersja: Win Office 2019
Pomógł: 2161 razy
Posty: 7149
Wysłany: 31-01-2019, 20:21   

Kod:
    If Len(Range("A2").Value) = 0 Then
        Range("A1").Copy Range("A2")
    Else
        Range("A1").Copy Cells(2, Cells(2, Columns.Count).End(xlToLeft).Column + 1)
    End If
_________________
Hardware - ta część komputera, którą można kopnąć kiedy software przestanie funkcjonować.

Szkolenia z Excela , FB
Office 2019 Professional Plus , Windows 10 x64
Pozdrawiam, były mkkk23 teraz Marecki.
ID posta: 361684 Skopiuj do schowka
 
 
ezq
Starszy Forumowicz


Posty: 46
Wysłany: 01-02-2019, 21:31   

dzięki, ale mam jeszcze jeden mały problem, zapomniałem wspomnieć sorki, w komurce A1 jest formuła, więc dane muszą być wklejane jako specjalne Wartość.
czy da się to zrobić?
ID posta: 361786 Skopiuj do schowka
 
 
Marecki 
Excel Expert



Wersja: Win Office 2019
Pomógł: 2161 razy
Posty: 7149
Wysłany: 01-02-2019, 21:54   

Kod:
    If Len(Range("A2").Value) = 0 Then
        Range("A2").Value = Range("A1").Value
    Else
        Cells(2, Cells(2, Columns.Count).End(xlToLeft).Column + 1).Value = Range("A1").Value
    End If
_________________
Hardware - ta część komputera, którą można kopnąć kiedy software przestanie funkcjonować.

Szkolenia z Excela , FB
Office 2019 Professional Plus , Windows 10 x64
Pozdrawiam, były mkkk23 teraz Marecki.
ID posta: 361791 Skopiuj do schowka
 
 
ezq
Starszy Forumowicz


Posty: 46
Wysłany: 02-02-2019, 12:38   

dzięki, a jak to zrobić dla całej kolumny? np. chce aby całą kolumne C kopiował do nastepnej wolnej kolumny zaczynając od kolumny F?
ID posta: 361817 Skopiuj do schowka
 
 
ezq
Starszy Forumowicz


Posty: 46
Wysłany: 05-02-2019, 23:01   

jeśli nie da się skopiować całej kolumny to czy da się zakres? np. C1:C20, do następnej wolnej kolumny zaczynając od kolumny F jako wartości?
oczywiście mogę użyć tej formuły co ty podałeś robiąc 20 wpisów na każdy wiersz osobno ale może da się zrobić jednym wpisem w makro podając zakres?
ID posta: 362037 Skopiuj do schowka
 
 
Tadek
Excel Expert


Pomógł: 1565 razy
Posty: 4932
Wysłany: 06-02-2019, 08:16   

Można np. tak:
Kod:
Sub wstaw_kol()
Dim ostK&, ostC&
ostK = Cells(1, Columns.Count).End(xlToLeft).Column
ostC = Cells(Rows.Count, "C").End(xlUp).Row
If ostK < 6 Then
    Range("F1:F" & ostC).Value = Range("C1:C" & ostC).Value
    Else
    Range(Cells(1, ostK + 1), Cells(ostC, ostK + 1)).Value = Range("C1:C" & ostC).Value
End If
End Sub
Zobacz załącznik.
Pozdrawiam Tadek

mak (2).xlsm
Pobierz Plik ściągnięto 18 raz(y) 17.01 KB

ID posta: 362051 Skopiuj do schowka
 
 
ezq
Starszy Forumowicz


Posty: 46
Wysłany: 08-02-2019, 00:12   

o to mi chodziło dzięki
ID posta: 362180 Skopiuj do schowka
 
 
Wyświetl posty z ostatnich:   
Odpowiedz do tematu
Nie możesz pisać nowych tematów
Nie możesz odpowiadać w tematach
Nie możesz zmieniać swoich postów
Nie możesz usuwać swoich postów
Nie możesz głosować w ankietach
Nie możesz załączać plików na tym forum
Możesz ściągać załączniki na tym forum
Dodaj temat do Ulubionych
Wersja do druku

Skocz do:  

Powered by phpBB modified by Przemo © 2003 phpBB Group
Theme xandgreen created by spleen& Programosy modified v0.3 by warna
Opieka techniczna www.marketingNET.pl

Archiwum

Strona używa plików cookies.

Kliknij tutaj, żeby dowiedzieć się jaki jest cel używania cookies oraz jak zmienić ustawienia cookie w przeglądarce.
Korzystając ze strony użytkownik wyraża zgodę na używanie plików cookies, zgodnie z bieżącymi ustawieniami przeglądarki.
Sprawdź, w jaki sposób przetwarzamy dane osobowe