Przesunięty przez: Kaper
10-01-2023, 22:45 |
Jak przenieść zawartość wiersza do wskazanego w G1 zeszytu |
| Autor |
Wiadomość |
madasz 
Fan Excela
Wersja: Win Office 2016
Posty: 87
|
 Wysłany: 17-01-2023, 13:07
|
|
|
Witam Pana
Mam nowe zapytanie ale forum odrzuca -Serwer www.excelforum.pl nie może teraz obsłużyć tego żądania.
Może Ban?
Co robić? jak teraz umieścić nowy plik |
|
 | ID posta:
424269
|
|
|
 |
|
|
|
|
Tajan
Pomógł: 5234 razy
Posty: 11412
|
| Wysłany: 17-01-2023, 20:21
|
|
|
Gdybyś miał bana, to nie zamieściłbyś tej wiadomości  Może plik jest za duży? Wytnij to co niepotrzebne i spróbuj załączyć. |
|
 | ID posta:
424284
|
|
|
|
|
|
|
madasz
Fan Excela
Wersja: Win Office 2016
Posty: 87
|
| Wysłany: 18-01-2023, 00:21
|
|
|
| Plik mały 12kb. nawet na pw do Ciebie nie mogę wysłać |
|
| ID posta:
424297
|
|
|
|
|
|
Tajan
Pomógł: 5234 razy
Posty: 11412
|
| Wysłany: 18-01-2023, 00:33
|
|
|
| Forum czasem nie akceptuje nazw plików w rodzaju "Zeszyt1". Może to również taki przypadek. Jeżeli tak, to nadaj plikowi jakąś inną nazwę. |
|
| ID posta:
424298
|
|
|
|
|
|
madasz
Fan Excela
Wersja: Win Office 2016
Posty: 87
|
| Wysłany: 23-01-2023, 15:52
|
|
|
Ponawiam prośbę w temacie j/w.
Makro nie przenosi plików do wybranego arkusza.
new.xlsb
|
 Pobierz Plik ściągnięto 9 raz(y) 190.72 KB |
|
|
| ID posta:
424472
|
|
|
|
|
|
Tajan
Pomógł: 5234 razy
Posty: 11412
|
| Wysłany: 23-01-2023, 16:36
|
|
|
Nie bardzo rozumiem... Wyciąłeś z makra cały kod przenoszący dane do arkusza, więc jak ma to ci przenosić? Porównaj początek makra "Wstaw_Tytuł" który wkleiłeś wcześniej w tym temacie z tym co masz aktualnie w załączonym pliku.
Zrób trochę porządków w tym pliku i pousuwaj zbędne, puste moduły. |
|
| ID posta:
424474
|
|
|
|
|
|
madasz
Fan Excela
Wersja: Win Office 2016
Posty: 87
|
| Wysłany: 23-01-2023, 16:50
|
|
|
Czyli ten kawałek kodu jest w niewłaściwym miejscu od:
-'====================== segment 2=====
Nie wiem jak to poprawić, gdzie mam przenieść? w makro "Wstaw_Tytuł".
Dzięki Tajan za Twoją pomoc. |
|
| ID posta:
424475
|
|
|
|
|
|
madasz
Fan Excela
Wersja: Win Office 2016
Posty: 87
|
| Wysłany: 23-01-2023, 16:58
|
|
|
Kolejność w/g mnie jest taka-
1. wstawiam zawartość z B2 itd. do listy
2. sortuję po wstawieniu
3. wykonuję polecenie od segmentu 2. |
|
| ID posta:
424478
|
|
|
|
|
|
Tajan
Pomógł: 5234 razy
Posty: 11412
|
| Wysłany: 23-01-2023, 17:07
|
|
|
Czy naprawdę nie potrafisz porównać dwóch makr? W aktualnym nie masz na początku:
| Kod: | Sub Wstaw_Tytuł()
'
' Wstaw_Tytuł Makro
'--------------------------napis rezerwa---------------
Dim mojArkusz As String
Range("G1").Select
'kop do wstaw
Sheets("Dialog").Select
Range("D19").Select
Selection.Copy
Sheets("Lista").Select
Range("G1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
With Selection.Font
.ThemeColor = xlThemeColorDark1
.TintAndShade = 0
End With
Sheets("lista").Select
Range("b1:f1").Copy
mojArkusz = Sheets("Lista").Range("G1").Value
ActiveWorkbook.Worksheets(mojArkusz).Range("B1000") _
.End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlValues
'===========================lista======================== |
Taki powinien być początek makra, które masz w pliku a reszta bez zmian. |
|
| ID posta:
424480
|
|
|
|
|
|
madasz
Fan Excela
Wersja: Win Office 2016
Posty: 87
|
| Wysłany: 23-01-2023, 17:25
|
|
|
Zmieniłem tak jak poleciłeś.
jednak do rezerwy 2 wkleja tylko tytuł z komórki b14, no i nie wstawia daty z a1 w lista. |
|
| ID posta:
424481
|
|
|
|
|
|
Tajan
Pomógł: 5234 razy
Posty: 11412
|
| Wysłany: 23-01-2023, 17:28
|
|
|
| madasz napisał/a: | | 3. wykonuję polecenie od segmentu 2. |
Teraz zauwazyłem, że tutaj coś próbujesz robić. Ale tam brakuje kodu do przenoszenia danych. Powinno być:
| Kod: | '====================== segment 2=====
Dim mojArkusz As String
mojArkusz = Sheets("Dialog").Range("D19").Value
Sheets("Lista").Range("G1").Value = mojArkusz
Sheets("lista").Range("b1:f1").Copy
Sheets(mojArkusz).Range("B1000") _
.End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlValues
Range("A3").Select
|
|
|
| ID posta:
424482
|
|
|
|
|
|
Tajan
Pomógł: 5234 razy
Posty: 11412
|
| Wysłany: 23-01-2023, 17:35
|
|
|
| madasz napisał/a: | | o i nie wstawia daty z a1 w lista. |
Wstawia, tylko niżej bo w okolicach 40 wiersza miałeś jakieś śmieci i tam właśnie był wybierany pierwszy wolny wiersz do wstawienia. |
|
| ID posta:
424483
|
|
|
|
|
|
madasz
Fan Excela
Wersja: Win Office 2016
Posty: 87
|
| Wysłany: 23-01-2023, 17:51
|
|
|
Ktoś kiedyś napisał, że im więcej dane będą męczone tym gorzej.
Dziwne, bo w zeszycie rezerwa 2 pojawia się w B3 "rezerwa 2" a w B4 kopiowany jest ten tytuł z listy B14 lecz nadal bez daty z D14. |
|
| ID posta:
424484
|
|
|
|
|
|
Tajan
Pomógł: 5234 razy
Posty: 11412
|
| Wysłany: 23-01-2023, 18:06
|
|
|
| Odnoszę wrażenie, że ty zupełnie nie starasz się zrozumieć jak działa to makro. Przecież do arkusza "Rezerwa 2" nie są wklejane dane z D14 lecz z B1:F1 a tam nie ma daty. Gdyby data była w D1, to zostałaby również skopiowana. Ja nie znam twojego pliku, więc nie wiem dlaczego data jest w A1 a nie w D1. |
|
| ID posta:
424487
|
|
|
|
|
|
madasz
Fan Excela
Wersja: Win Office 2016
Posty: 87
|
| Wysłany: 23-01-2023, 18:20
|
|
|
poprawiłem z tą datą. teraz jest lepiej ale nadal w arkuszu rezerwa 2 jest B3 Rezerwa 2.
Tajan ze mnie taki fachowiec w Excelu jak z koziej d..., Mam77+. Wybacz |
|
| ID posta:
424489
|
|
|
|
|
|
|
|
Regulamin
