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
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: 94
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 Skopiuj do schowka
 
 
Tajan


Pomógł: 5451 razy
Posty: 11869
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 Skopiuj do schowka
 
 
madasz 
Fan Excela


Wersja: Win Office 2016
Posty: 94
Wysłany: 18-01-2023, 00:21   

Plik mały 12kb. nawet na pw do Ciebie nie mogę wysłać
ID posta: 424297 Skopiuj do schowka
 
 
Tajan


Pomógł: 5451 razy
Posty: 11869
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 Skopiuj do schowka
 
 
madasz 
Fan Excela


Wersja: Win Office 2016
Posty: 94
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 23 raz(y) 190.72 KB

ID posta: 424472 Skopiuj do schowka
 
 
Tajan


Pomógł: 5451 razy
Posty: 11869
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 Skopiuj do schowka
 
 
madasz 
Fan Excela


Wersja: Win Office 2016
Posty: 94
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 Skopiuj do schowka
 
 
madasz 
Fan Excela


Wersja: Win Office 2016
Posty: 94
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 Skopiuj do schowka
 
 
Tajan


Pomógł: 5451 razy
Posty: 11869
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 Skopiuj do schowka
 
 
madasz 
Fan Excela


Wersja: Win Office 2016
Posty: 94
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 Skopiuj do schowka
 
 
Tajan


Pomógł: 5451 razy
Posty: 11869
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 Skopiuj do schowka
 
 
Tajan


Pomógł: 5451 razy
Posty: 11869
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 Skopiuj do schowka
 
 
madasz 
Fan Excela


Wersja: Win Office 2016
Posty: 94
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 Skopiuj do schowka
 
 
Tajan


Pomógł: 5451 razy
Posty: 11869
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 Skopiuj do schowka
 
 
madasz 
Fan Excela


Wersja: Win Office 2016
Posty: 94
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 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.wip.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