ID tematu: 63987
 |
makro kopiujace dane w wierszu |
Autor |
Wiadomość |
ezq
forumowicz

Posty: 21
|
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
|
|
|
 |
|
|
|
Marecki
Excel Expert


Pomógł: 2053 razy Posty: 6794
|
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
|
|
|
|
Wersja Office-a: Win Office 2019
|
|
|
|
 |
|
|
Artik


Pomógł: 2602 razy Posty: 8571
|
Wysłany: 30-01-2019, 20:16
|
|
|
Marecki, nie odciąłeś pępowiny?
Artik |
_________________ Persistence is a virtue in the world of programming. |
|
 | ID posta:
361607
|
|
|
|
Wersja Office-a: Win Office 365
|
|
|
|
 |
|
|
Marecki
Excel Expert


Pomógł: 2053 razy Posty: 6794
|
Wysłany: 30-01-2019, 22:54
|
|
|
Nooo,
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
|
|
|
|
Wersja Office-a: Win Office 2019
|
|
|
|
 |
|
|
ezq
forumowicz

Posty: 21
|
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 11 raz(y) 18.28 KB |
|
|
 | ID posta:
361629
|
|
|
 |
|
|
Marecki
Excel Expert


Pomógł: 2053 razy Posty: 6794
|
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
|
|
|
|
Wersja Office-a: Win Office 2019
|
|
|
|
 |
|
|
ezq
forumowicz

Posty: 21
|
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
|
|
|
 |
|
|
Marecki
Excel Expert


Pomógł: 2053 razy Posty: 6794
|
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
|
|
|
|
Wersja Office-a: Win Office 2019
|
|
|
|
 |
|
|
ezq
forumowicz

Posty: 21
|
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
|
|
|
 |
|
|
Marecki
Excel Expert


Pomógł: 2053 razy Posty: 6794
|
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
|
|
|
|
Wersja Office-a: Win Office 2019
|
|
|
|
 |
|
|
ezq
forumowicz

Posty: 21
|
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
|
|
|
 |
|
|
ezq
forumowicz

Posty: 21
|
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
|
|
|
 |
|
|
Tadek
Excel Expert

Pomógł: 1465 razy Posty: 4725
|
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 5 raz(y) 17.01 KB |
|
|
 | ID posta:
362051
|
|
|
 |
|
|
ezq
forumowicz

Posty: 21
|
Wysłany: 08-02-2019, 00:12
|
|
|
o to mi chodziło dzięki |
|
 | ID posta:
362180
|
|
|
 |
|
|
|