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ść
Tajan


Pomógł: 5441 razy
Posty: 11853
Wysłany: 23-01-2023, 18:25   

Załącz jeszcze raz plik. Sprawdzę co namieszałeś.
ID posta: 424490 Skopiuj do schowka
 
 
madasz 
Fan Excela


Wersja: Win Office 2016
Posty: 94
Wysłany: 23-01-2023, 18:28   

OK!

new.xlsb
Pobierz Plik ściągnięto 19 raz(y) 191.16 KB

ID posta: 424491 Skopiuj do schowka
 
 
Tajan


Pomógł: 5441 razy
Posty: 11853
Wysłany: 23-01-2023, 19:05   

Ja tak widziałbym to makro:
Kod:
Sub Wstaw_Tytuł()
    '
    ' Wstaw_Tytuł Makro
 
 Dim mojArkusz As String
 
     mojArkusz = Sheets("Dialog").Range("D19").Value
 
    '===========================lista========================
With Sheets("lista")

    .Range("G1").Value = mojArkusz
    .Range("B1:H1").Copy
    .Range("B6500") _
         .End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlValues
 
 '====================== i sortuj po wstawieniu=====
    With .Sort
         .SortFields.Clear
         .SortFields.Add Key:=Range("B7:B6500"), _
                SortOn:=xlSortOnValues, Order:=xlAscending, _
                DataOption:=xlSortTextAsNumbers
        .SetRange Range("B7:h6500")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
'====================== segment 2=====
   .Range("b1:f1").Copy
   Sheets(mojArkusz).Range("B1000") _
      .End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlValues
    .Range("h1").Copy
    Sheets(mojArkusz).Range("B1000") _
      .End(xlUp).Offset(0, 5).PasteSpecial Paste:=xlValues
   .Range("A3").Select
End With

Application.CutCopyMode = False

End Sub

Nie wiem, czy dobrze zrozumiałem intencje.

new (1).xlsb
Pobierz Plik ściągnięto 20 raz(y) 183.64 KB

ID posta: 424494 Skopiuj do schowka
 
 
madasz 
Fan Excela


Wersja: Win Office 2016
Posty: 94
Wysłany: 23-01-2023, 19:24   

:clap
Makro zmniejszyło się.
Ta data w komórce a1 jest pobierana w innych arkuszach.
ale będzie ok!
ID posta: 424495 Skopiuj do schowka
 
 
Tajan


Pomógł: 5441 razy
Posty: 11853
Wysłany: 23-01-2023, 20:14   

A data nie może być pobierana z D1?
ID posta: 424498 Skopiuj do schowka
 
 
madasz 
Fan Excela


Wersja: Win Office 2016
Posty: 94
Wysłany: 23-01-2023, 20:57   

W d1 wpisałem dziś() zobaczę jak będzie dalej.
ID posta: 424501 Skopiuj do schowka
 
 
madasz 
Fan Excela


Wersja: Win Office 2016
Posty: 94
Wysłany: 23-01-2023, 21:08   

Ja ten plik do analizy okroiłem z makr tworzonych wcześniej i takich "perełek" jakie były w mojej wersji
poprawionej przez Ciebie może być więcej. Staram się jakoś sobie radzić, czasami przy Waszej pomocy.
ID posta: 424502 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